# ======================================================================
#
#   TOPPERS/ASP Kernel
#       Toyohashi Open Platform for Embedded Real-Time Systems/
#       Advanced Standard Profile Kernel
#
#   Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
#                               Toyohashi Univ. of Technology, JAPAN
#   Copyright (C) 2005-2015 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: core.tf 322 2015-04-30 13:23:48Z ertl-ishikawa $
#
# =====================================================================

#
#     パス2のアーキテクチャ依存テンプレート（ARM-M用）
#

#
#  有効な割込み番号，割込みハンドラ番号
#
$INTNO_VALID = Array(15..$TMAX_INTNO)
$INHNO_VALID = $INTNO_VALID

#
#  有効なCPU例外番号
#  7,8はエミュレートされた例外
#
$EXCNO_VALID = [ 2,3,4,5,6,7,8,11,12,14 ]

#
#  CRE_ISRで使用できる割込み番号とそれに対応する割込みハンドラ番号
#
$INTNO_CREISR_VALID = $INTNO_VALID
$INHNO_CREISR_VALID = $INHNO_VALID

#
#  DEF_INT／DEF_EXCで使用できる割込みハンドラ番号／CPU例外ハンドラ番号
#
$INHNO_DEFINH_VALID = $INHNO_VALID
$EXCNO_DEFEXC_VALID = $EXCNO_VALID

#
#  CFG_INTで使用できる割込み番号と割込み優先度
#  最大優先度はBASEPRIレジスタでマスクできない優先度（内部優先度'0'）
#  そのため，カーネル管理外の割込みでのみ指定可能．
$INTNO_CFGINT_VALID = $INTNO_VALID
$INTPRI_CFGINT_VALID = Array(-(1 << $TBITW_IPRI)..-2)

#
#  kernel/kernel.tf のターゲット依存部
#

#
#  TSKINICTXBの初期化情報を生成
#
def GenerateTskinictxb(key, params)
   return("{" \
          "\t#{params[:tinib_stksz]}, " \
          "\t((void *)((char *)(#{params[:tinib_stk]}) + " \
          "(#{params[:tinib_stksz]}))), " \
          "},")
end

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

$kernelCfgC.append(<<EOS)
/*
 *  Target-dependent Definitions (ARM-M)
 */

/*
 *  ベクターテーブル
 */
__attribute__ ((section(".vector")))
const FP _kernel_vector_table[] = {
    (FP)(TOPPERS_ISTKPT(_kernel_istack, ROUND_STK_T(DEFAULT_ISTKSZ))),   /* 0 The initial stack pointer */
    (FP)start,                 /* 1 The reset handler */
EOS
Array(2..14).each { |excno|
    if excno == 11
        $kernelCfgC.add("    (FP)(_exit_and_dispatch),      /* 11 SVCall handler */")
    elsif excno == 14
        $kernelCfgC.add("    (FP)(_dispatch),      /* 14 PendSV handler */")
    else
        $kernelCfgC.add("    (FP)(_kernel_core_exc_entry), /* #{excno} */")
    end
}
$INTNO_VALID.each { |inhno|
    #if $cfgData[:DEF_INH][inhno]) && ((INH.INHATR[inhno] & TA_NONKERNEL) != 0)$
    inh = $cfgData[:DEF_INH].select { |k,v|
        (v[:inhno] == inhno) && (v[:inhatr] & $TA_NONKERNEL)
    }
    if !inh.empty?
        inh.each_value { |v|
   	        $kernelCfgC.add("    (FP)(#{v[:inthdr]}), /* #{inhno} */")
        }
    else
   	    $kernelCfgC.add("    (FP)(_kernel_core_int_entry), /* #{inhno} */")
    end
}
$kernelCfgC.add2("};")

$kernelCfgC.add("const FP _kernel_exc_tbl[] = {")
Array(0..14).each { |excno|
    exc = $cfgData[:DEF_EXC].select { |k,v|
        (v[:excno] == excno)
    }
    if !exc.empty?
        exc.each_value { |v|
   	        $kernelCfgC.add("   (FP)(#{v[:exchdr]}), /* #{excno} */")
        }
    else
   	    $kernelCfgC.add("   (FP)(_kernel_default_exc_handler), /* #{excno} */")
    end
}
$INTNO_VALID.each { |inhno|
    inh = $cfgData[:DEF_INH].select { |k,v|
        (v[:inhno] == inhno)
    }
    if !inh.empty?
        inh.each_value { |v|
   	        $kernelCfgC.add("   (FP)(#{v[:inthdr]}), /* #{inhno} */")
        }
    else
   	    $kernelCfgC.add("   (FP)(_kernel_default_int_handler), /* #{inhno} */")
    end
}
$kernelCfgC.add2("};")

#
#  _kernel_bitpat_cfgintの生成
#

bitpat_cfgint_num = 0
bitpat_cfgint = 0
if ($TMAX_INTNO & 0x0f) == 0x00
    bitpat_cfgint_num = ($TMAX_INTNO >> 4)
else
    bitpat_cfgint_num = ($TMAX_INTNO >> 4) + 1
end

$kernelCfgC.add
$kernelCfgC.add("const uint32_t _kernel_bitpat_cfgint[#{bitpat_cfgint_num}] = {")
Array(0..(bitpat_cfgint_num-1)).each { |num|
    Array((num*32)..((num*32)+31)).each { |inhno|
        inh = $cfgData[:DEF_INH].select { |k,v|
            (v[:inhno] == inhno)
        }
        if !inh.empty?
            bitpat_cfgint = bitpat_cfgint | (1 << (inhno & 0x01f))
        end
    }
    $kernelCfgC.add(sprintf("   UINT32_C(0x%08x),", bitpat_cfgint))
}
$kernelCfgC.add2("};")

#
#  割込み優先度テーブル（内部表現）
#
$kernelCfgC.add("const uint32_t _kernel_int_iipm_tbl[] = {")
Array(0..14).each { |excno|
    $kernelCfgC.add(sprintf("   UINT32_C(0x%08x), /* 0x%03x */", 0, excno))
}
$INTNO_VALID.each { |intno|
    int = $cfgData[:CFG_INT].select { |k,v|
        (v[:intno] == intno)
    }
    intpri = 0
    if !int.empty?
        #	 LSBを1にしているのは，割込み属性が設定されていないことを判
        #	 別するためである．
        int.each_value { |v|
       	    intpri = (((1 << $TBITW_IPRI) + v[:intpri]) << (8 - $TBITW_IPRI))
        }
    end
    $kernelCfgC.add(sprintf("   UINT32_C(0x%08x), /* 0x%03x */", intpri, intno))
}
$kernelCfgC.add2("};")