source: azure_iot_hub/trunk/asp3_dcre/arch/rx630_gcc/prc_kernel.trb@ 388

# -*- coding: utf-8 -*-
#
#   TOPPERS/ASP Kernel
#       Toyohashi Open Platform for Embedded Real-Time Systems/
#       Advanced Standard Profile Kernel
# 
#   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
#   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
#               Graduate School of Information Science, Nagoya Univ., JAPAN
# 
#   上記著作権者
は，以下の(1)～(4)ã®æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§
#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
#   変・再é…
å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
#   (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
#       スコード中に含まれていること．
#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
#       用できる形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
#       者
マニュアルなど）に，上記の著作権表示，この利用条件および下記
#       の無保証規定を掲載すること．
#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
#       用できない形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
#       と．
#     (a) 再é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
マニュアルなど）に，上記の著
#         作権表示，この利用条件および下記の無保証規定を掲載すること．
#     (b) 再é…
å¸ƒã®å½¢æ…
‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
#         å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
#       害からも，上記著作権者
およびTOPPERSプロジェクトをå…
è²¬ã™ã‚‹ã“と．
#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
#       由に基づく請求からも，上記著作権者
およびTOPPERSプロジェクトを
#       å…
è²¬ã™ã‚‹ã“と．
# 
#   本ソフトウェアは，無保証で提供されているものである．上記著作権者
お
#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
#   ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
# 
#   $Id$
# 

#
#               パス2の生成スクリプトのコア依存部（RX63x用）
#

# 
#  割込み番号と割込みハンドラ番号の定義
# 
#  RX630では割込み番号と割込みハンドラ番号が1対1で対応する．
# 
$INTNO_VALID = [ 16, 21, 23, *(27..59), 62, *(64..79), 90, 91, 92, 93, 98, 102, *(106..112), 114, *(122..167), *(170..203), *(214..253) ]
$INHNO_VALID = $INTNO_VALID

# 
#  例外番号の定義
# 
#  å›ºå®šãƒ™ã‚¯ã‚¿ãƒ†ãƒ¼ãƒ–ãƒ«ã®ãƒ™ã‚¯ã‚¿ãƒ†ãƒ¼ãƒ–ãƒ«ã‚¢ãƒ‰ãƒ¬ã‚¹ã®å°ã•ã„é †ç•ªã«ä¾‹å¤–ç•ªå·ã‚’å‰²æŒ¯ã‚‹ï¼Ž
#  (äºˆç´„é ˜åŸŸã‚‚å«ã‚€)
# 

$EXCNO_VALID = [ 20, 23, 25, 30 ]

# 
#  INT割込みの番号
# 

$INTNO_INT = [ *(64..79) ]

# 
#  割込み番号，割込みハンドラ番号，例外番号の範囲
# 
# (äºˆç´„é ˜åŸŸã‚‚å«ã‚€)
# 

$INTNO_RANGE = [ *(0..255) ]
$INHNO_RANGE = $INTNO_RANGE
$EXCNO_RANGE = [ *(0..31)  ]

# 
#  ATT_ISRで使用できる割込み番号とそれに対応する割込みハンドラ番号
# 

$INTNO_ATTISR_VALID = $INTNO_VALID
$INHNO_ATTISR_VALID = $INHNO_VALID


# 
#  DEF_INT／DEF_EXCで使用できる割込みハンドラ番号／CPU例外ハンドラ番号
# 

$INHNO_DEFINH_VALID = $INHNO_VALID
$EXCNO_DEFEXC_VALID = $EXCNO_VALID


# 
#  CFG_INTで使用できる割込み番号と割込み優å…
ˆåº¦
# 

$INTNO_CFGINT_VALID = $INHNO_VALID
$INTPRI_CFGINT_VALID = [ *(-7..-1) ]


# 
#  ターゲット非依存部に含まれる標準の割込み管理機能/例外管理機能の初期化処理を使用する
# 

$OMIT_INITIALIZE_INTERRUPT = false
$OMIT_INITIALIZE_EXCEPTION = false


# 
#  スタックサイズのチェック方法指定
# 

$CHECK_STKSZ_ALIGN = 4


# 
#  タスクスタックサイズの最小値
# 
#  タスク起動時に4byte,
#  割込みå…
¥å£å‡¦ç†ã«ã¦48byte, CPU例外å…
¥å£å‡¦ç†ã«ã¦84byte,
#  であるため, 最小値は88byteとする.
# 

$TARGET_MIN_STKSZ = 88

# 
#  定数定義
# 

$TA_POSEDGE = $TA_EDGE

#
#  ターゲット定義の割込み要求ライン属性
#
$TARGET_INTATR = $TA_POSEDGE|$TA_NEGEDGE|$TA_BOTHEDGE|$TA_LOWLEVEL

# 
# ターゲット依存の割込みハンドラ属性の定義
# 

$TARGET_INHATR = $TA_NONKERNEL


# 
# カーネル管理外割込みハンドラは固定させないため,
# INTNO_FIX_KERNEL
# INHNO_FIX_KERNEL
# INHNO_FIX_NONKERNEL
# INHNO_FIX_NONKERNEL
# を定義しない.
# 

$USE_INHINIB_TABLE = true
$USE_INTINIB_TABLE = true

#
#  標準テンプレートファイルのインクルード
#
IncludeTrb("kernel/kernel.trb")

#
#  割込み番号から割込み優å…
ˆåº¦åŠã³å±žæ€§ã‚’取り出すテーブル
#
$kernelCfgC.comment_header("Interrupt Level and Attribute Table")

$kernelCfgC.add("const CFG_INT_INFO _kernel_cfg_int_table[#{$INTNO_RANGE.length}] = {")
$INTNO_RANGE.each do |intnoVal|
  if $cfgData[:CFG_INT].has_key?(intnoVal)
    $kernelCfgC.append("\t{ #{-$cfgData[:CFG_INT][intnoVal][:intpri].val}, #{$cfgData[:CFG_INT][intnoVal][:intatr]} }")
  else
    $kernelCfgC.append("\t{  0, 0xFFFFFFFF }")
  end
  $kernelCfgC.append(",") if intnoVal < ($INTNO_RANGE.length - 1)
  $kernelCfgC.add("\t/* #{sprintf("%02u", intnoVal)} */ ")
end
$kernelCfgC.add2("};")

$kernelCfgAsm = GenFile.new("kernel_cfg_asm.S")

#
#  割込みベクタ及び割込みハンドラ定義
#
$kernelCfgAsm.add(<<EOS)
;
;  RX630アーキテクチャ依存出力ファイル
;
;  割込みベクタ及び割込みハンドラ定義
;


        .section P, CODE
        .global _kernel_interrupt
        .global __kernel_default_int_handler
        .global __kernel_default_exc_handler
EOS

$INHNO_RANGE.each do |inhnoVal|
  if $cfgData[:DEF_INH].has_key?(inhnoVal)
    $kernelCfgAsm.add(<<EOS)
        .global _#{$cfgData[:DEF_INH][inhnoVal][:inthdr]}
        .global __kernel_#{$cfgData[:DEF_INH][inhnoVal][:inthdr]}_#{inhnoVal}_entry
__kernel_#{$cfgData[:DEF_INH][inhnoVal][:inthdr]}_#{inhnoVal}_entry:
        pushm   r1-r5
        mov.l   \##{inhnoVal}, r1
        mov.l   \#_#{$cfgData[:DEF_INH][inhnoVal][:inthdr]}, r2
        bra.a   _kernel_interrupt
EOS
    $kernelCfgAsm.add
  end
end

$kernelCfgAsm.add(<<EOS)
        .global __kernel_default_int_handler_entry
__kernel_default_int_handler_entry:
        pushm   r1-r5
        mov.l   \#0FFFFFFFFH, r1
        mov.l   \#__kernel_default_int_handler, r2
        bra.a   _kernel_interrupt

        .global __kernel_break_int_handler_entry
__kernel_break_int_handler_entry:
        rts
EOS
$kernelCfgAsm.add

$kernelCfgAsm.add(<<EOS)
        .global _kernel_exception
EOS

$EXCNO_VALID.each do |excnoVal|
  if $cfgData[:DEF_EXC].has_key?(excnoVal)
    $kernelCfgAsm.add(<<EOS)
        .global _#{$cfgData[:DEF_EXC][excnoVal][:exchdr]}
        .global __kernel_#{$cfgData[:DEF_EXC][excnoVal][:exchdr]}_#{excnoVal}_entry
__kernel_#{$cfgData[:DEF_EXC][excnoVal][:exchdr]}_#{excnoVal}_entry:
        pushm   r1-r5
        mov.l   \##{excnoVal}, r1
        mov.l   \#_#{$cfgData[:DEF_EXC][excnoVal][:exchdr]}, r2
        bra.a   _kernel_exception
EOS
    $kernelCfgAsm.add
  end
end

$kernelCfgAsm.add(<<EOS)
        .global __kernel_default_exc_handler_entry
__kernel_default_exc_handler_entry:
        pushm   r1-r5
        mov.l   \#0FFFFFFFFH, r1
        mov.l   \#__kernel_default_exc_handler, r2
        bra.a   _kernel_exception
EOS
$kernelCfgAsm.add

$kernelCfgAsm.append(<<EOS)
;
;  可変ベクタテーブル
;

        .global _start

        .global _vvector_table


        .section .rvectors, ROMDATA

_vvector_table:
EOS

$INHNO_RANGE.each do |inhnoVal|
  if $cfgData[:DEF_INH].has_key?(inhnoVal)
    $kernelCfgAsm.append("      .lword  __kernel_#{$cfgData[:DEF_INH][inhnoVal][:inthdr]}_#{inhnoVal}_entry")
  elsif inhnoVal != 0
    $kernelCfgAsm.append("      .lword  __kernel_default_int_handler_entry")
  else
    $kernelCfgAsm.append("      .lword  __kernel_break_int_handler_entry")
  end
  $kernelCfgAsm.add("           ; #{sprintf("%02d", inhnoVal)} ")
end

$kernelCfgAsm.add2

$kernelCfgAsm.append(<<EOS)
;
;  固定ベクタテーブル
;

        .global _fvector_table

        .section .fvectors, ROMDATA

_fvector_table:
         .word   0FFFFFFFFH      ; Endian Select Register (little)
         .space  004H
         .word   0FFFFFFFFH      ; OFS1
         .word   0FFFFFFFFH      ; OFS0
         .space  010H
         .word   0FFFFFFFFH      ; 制御コード, IDコード1 - 3
         .word   0FFFFFFFFH      ; IDコード4 - 7
         .word   0FFFFFFFFH      ; IDコード8 - 11
         .word   0FFFFFFFFH      ; IDコード12 - 15
EOS
(12..30).each do |excnoVal|
  if $cfgData[:DEF_EXC].has_key?(excnoVal)
    $kernelCfgAsm.append("      .word    __kernel_#{$cfgData[:DEF_EXC][excnoVal][:exchdr]}_#{excnoVal}_entry")
  elsif $EXCNO_VALID.include?(excnoVal)
    $kernelCfgAsm.append("      .word    __kernel_default_exc_handler_entry")
  else
    $kernelCfgAsm.append("      .word    0")
  end
  $kernelCfgAsm.add("           ; #{excnoVal} ")
end

$kernelCfgAsm.add("     .word    _start         ; 31:Reset")
$kernelCfgAsm.add2(".end")

#
#  割込み要求ライン属性に関するターゲット依存のエラーチェック
#
$cfgData[:CFG_INT].each do |key, params|
  # IRQ割込み番号かどうかをチェック
  if $INTNO_INT.include?(key)
    # TA_POSEDGEとTA_NEGEDGEãŒåŒæ™‚ã«è¨­å®šã•ã‚Œã¦ã„ã‚‹å ´åˆ
    if (params[:intatr].val & ($TA_POSEDGE|$TA_NEGEDGE)) == $TA_POSEDGE|$TA_NEGEDGE
      error_illegal_sym("E_RSATR", params, :intatr, :intno)
    end
    # TA_POSEDGEとTA_BOTHEDGEãŒåŒæ™‚ã«è¨­å®šã•ã‚Œã¦ã„ã‚‹å ´åˆ
    if (params[:intatr].val & ($TA_POSEDGE|$TA_BOTHEDGE)) == $TA_POSEDGE|$TA_BOTHEDGE
      error_illegal_sym("E_RSATR", params, :intatr, :intno)
    end
    # TA_NEGEDGEとTA_BOTHEDGEãŒåŒæ™‚ã«è¨­å®šã•ã‚Œã¦ã„ã‚‹å ´åˆ
    if (params[:intatr].val & ($TA_NEGEDGE|$TA_BOTHEDGE)) == $TA_NEGEDGE|$TA_BOTHEDGE
      error_illegal_sym("E_RSATR", params, :intatr, :intno)
    end
    # TA_POSEDGEとTA_NEGEDGEとTA_BOTHEDGEãŒåŒæ™‚ã«è¨­å®šã•ã‚Œã¦ã„ã‚‹å ´åˆ
    if (params[:intatr].val & ($TA_POSEDGE|$TA_NEGEDGE|$TA_BOTHEDGE)) == $TA_POSEDGE|$TA_NEGEDGE|$TA_BOTHEDGE
      error_illegal_sym("E_RSATR", params, :intatr, :intno)
    end
  else
    # IRQå‰²è¾¼ã¿ä»¥å¤–ã®å‰²è¾¼ã¿ã«å¯¾ã—ã¦å‰²è¾¼ã¿å±žæ€§ãŒæŒ‡å®šã•ã‚Œã¦ã„ã‚‹å ´åˆ
    if (params[:intatr].val & (~($TA_ENAINT|$TA_EDGE))) != 0
      error_illegal_sym("E_RSATR", params, :intatr, :intno)
    end
  end
end