Changeset 305 for asp3_wo_tecs/trunk/kernel/interrupt.trb

Timestamp:

Jun 26, 2017, 6:45:41 PM (7 years ago)

Author:

ertl-honda

Message:

3.0.0のリリース版に追従

File:

• asp3_wo_tecs/trunk/kernel/interrupt.trb (modified) (11 diffs)

asp3_wo_tecs/trunk/kernel/interrupt.trb

@@ -53 +53 @@
 #   ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
 # 
-#   $Id: interrupt.trb 572 2016-02-01 14:40:09Z ertl-hiro $
+#   $Id: interrupt.trb 612 2016-02-08 04:27:57Z ertl-hiro $
 # 
 
@@ -65 +65 @@
 $kernelCfgH.add("#define TNUM_ISRID\t#{$cfgData[:CRE_ISR].size}")
 
-$cfgData[:CRE_ISR].sort.each do |id, params|
+$cfgData[:CRE_ISR].sort.each do |key, params|
   $kernelCfgH.add("#define #{params[:isrid]}\t#{params[:isrid].val}")
 end
@@ -127 +127 @@
 #  割込み要求ラインに関するエラーチェック
 #
-$cfgData[:CFG_INT].each do |id, params|
+$cfgData[:CFG_INT].each do |key, params|
   #     intnoãŒå‰²è¾¼ã¿ç•ªå·ã¨ã—ã¦æ­£ã—ããªã„å ´åˆï¼ˆE_PAR）［NGKI2972ï¼½
   if $INTNO_VALID.index(params[:intno]).nil?
@@ -172 +172 @@
 #  割込みハンドラに関するエラーチェック
 #
-$cfgData[:DEF_INH].each do |id, params|
+$cfgData[:DEF_INH].each do |key, params|
   # inhnoãŒå‰²è¾¼ã¿ãƒãƒ³ãƒ‰ãƒ©ç•ªå·ã¨ã—ã¦æ­£ã—ããªã„å ´åˆï¼ˆE_PAR）［NGKI3055ï¼½
   if $INHNO_VALID.index(params[:inhno]).nil?
@@ -243 +243 @@
 #  割込みサービスルーチン（ISR）に関するエラーチェックと割込みハンドラの生成
 #
-$cfgData[:CRE_ISR].sort.each do |id, params|
+$cfgData[:CRE_ISR].sort.each do |key, params|
   #     isratrãŒç„¡åŠ¹ã®å ´åˆï¼ˆE_RSATR）［NGKI2998ï¼½
   #（TARGET_ISRATRä»¥å¤–ã®ãƒ“ãƒƒãƒˆãŒã‚»ãƒƒãƒˆã•ã‚Œã¦ã„ã‚‹å ´åˆï¼‰
@@ -264 +264 @@
 
 $INTNO_CREISR_VALID.each do |intnoVal|
-  inhnoVal = $toInhnoVal[intnoVal]
-
   # 割込み番号intnoに対して登録されたISRのリストの作成
   isrParamsList = []
-  $cfgData[:CRE_ISR].sort.each do |id, params|
-    if params[:intno] == intnoVal
+  $cfgData[:CRE_ISR].sort.each do |key, params|
+    if params[:intno].val == intnoVal
       isrParamsList.push(params)
     end
@@ -276 +274 @@
   #     割込み番号intnoに対して登録されたISRãŒå­˜åœ¨ã™ã‚‹å ´åˆ
   if isrParamsList.size > 0
+    inhnoVal = $toInhnoVal[intnoVal]
+
     # intnoに対応するinhnoに対してDEF_INHãŒã‚ã‚‹å ´åˆï¼ˆE_OBJ）［NGKI3013ï¼½
     if $cfgData[:DEF_INH].has_key?(inhnoVal)
@@ -312 +312 @@
     $cfgData[:DEF_INH][inhnoVal] = params
 
-    # ISR用の割込みハンドラ
+    # 割込みサービスルーチン用の割込みハンドラ
     $kernelCfgC.add("void")
     $kernelCfgC.add("_kernel_inthdr_#{intnoVal}(void)")
     $kernelCfgC.add("{")
-    # ISRを優å
+    # 割込みサービスルーチンを優å
 ˆåº¦é †ã«å‘¼ã³å‡ºã™
-    isrParamsList.sort_by {|params| params[:isrpri]}.each_with_index \
-                                                                                                                do |params, index|
+    i = 0               # stable sortを行うための変数
+    isrParamsList.sort_by {|params| [ params[:isrpri].val, i += 1 ]} \
+                                                                                .each_with_index do |params, index|
       if index > 0
         $kernelCfgC.add
@@ -353 +354 @@
     #  割込みハンドラのエントリ
     #
-    $cfgData[:DEF_INH].each do |id, params|
+    $cfgData[:DEF_INH].each do |key, params|
       if (params[:inhatr] & $TA_NONKERNEL) == 0
         $kernelCfgC.add("INTHDR_ENTRY(#{params[:inhno]}, " \
@@ -365 +366 @@
     #
     $kernelCfgC.add("const INHINIB _kernel_inhinib_table[TNUM_DEF_INHNO] = {")
-    $cfgData[:DEF_INH].each_with_index do |(id, params), index|
+    $cfgData[:DEF_INH].each_with_index do |(key, params), index|
       $kernelCfgC.add(",") if index > 0
       if (params[:inhatr] & $TA_NONKERNEL) == 0
@@ -402 +403 @@
   if $cfgData[:CFG_INT].size != 0
     $kernelCfgC.add("const INTINIB _kernel_intinib_table[TNUM_CFG_INTNO] = {")
-    $cfgData[:CFG_INT].each_with_index do |(id, params), index|
+    $cfgData[:CFG_INT].each_with_index do |(key, params), index|
       $kernelCfgC.add(",") if index > 0
       $kernelCfgC.append("\t{ (#{params[:intno]}), (#{params[:intatr]}), " \