source: asp3_wo_tecs/trunk/arch/arm_gcc/common/core_check.trb@ 304

# -*- coding: utf-8 -*-
# 
#               パス3の生成スクリプトのコア依存部（ARM用）
# 
#  $Id: core_check.trb 572 2016-02-01 14:40:09Z ertl-hiro $
#

# 
#  ターゲット非依存部のインクルード
# 
IncludeTrb("kernel/kernel_check.trb")

#
#  割込みハンドラテーブルに関するチェック
#
# DEF_INHで登録した割込みハンドラのみチェックする．逆に言うと，コンフィ
# ギュレータで生成した割込みハンドラや，default_int_handlerのチェックは
# 行わない．
#
inhTable = SYMBOL("_kernel_inh_table")
$cfgData[:DEF_INH].each do |id, params|
  inthdr = PEEK(inhTable + params[:inhno] * $sizeof_FP, $sizeof_FP)

  #     割込みハンドラのå…
ˆé ­ç•ªåœ°ã®ãƒã‚§ãƒƒã‚¯ï¼»NGKI3056ï¼½
  if (inthdr & ($CHECK_FUNC_ALIGN - 1)) != 0
    error_wrong_id("E_PAR", params, :inthdr, :inhno, "not aligned")
  end
  if $CHECK_FUNC_NONNULL == 1 && inthdr == 0
    error_wrong_id("E_PAR", params, :inthdr, :inhno, "null")
  end
end

#
#  CPU例外ハンドラテーブルに関するチェック
#
# DEF_EXCで登録したCPU例外ハンドラのみチェックする．逆に言うと，
# default_exc_handlerのチェックは行わない．
#
excTable = SYMBOL("_kernel_exc_table")
$cfgData[:DEF_EXC].each do |id, params|
  exchdr = PEEK(excTable + params[:excno] * $sizeof_FP, $sizeof_FP)

  # CPU例外ハンドラのå…
ˆé ­ç•ªåœ°ã®ãƒã‚§ãƒƒã‚¯ï¼»NGKI3135ï¼½
  if (exchdr & ($CHECK_FUNC_ALIGN - 1)) != 0
    error_wrong_id("E_PAR", params, :exchdr, :excno, "not aligned")
  end
  if $CHECK_FUNC_NONNULL == 1 && exchdr == 0
    error_wrong_id("E_PAR", params, :exchdr, :excno, "null")
  end
end