Changeset 306 for asp3_wo_tecs/trunk/kernel/kernel.trb

Timestamp:

Jun 27, 2017, 10:53:32 AM (7 years ago)

Author:

ertl-honda

Message:

3.1.0を反映

File:

• asp3_wo_tecs/trunk/kernel/kernel.trb (modified) (17 diffs)

asp3_wo_tecs/trunk/kernel/kernel.trb

@@ -45 +45 @@
 #       å
 è²¬ã™ã‚‹ã“と．
-#
+# 
 #   本ソフトウェアは，無保証で提供されているものである．上記著作権è€
 お
@@ -52 +52 @@
 #   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
 #   ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
-#
-#   $Id: kernel.trb 588 2016-02-05 12:54:58Z ertl-hiro $
-#
+# 
+#   $Id: kernel.trb 670 2016-03-03 15:08:11Z ertl-hiro $
+# 
 
 #
@@ -60 +60 @@
 #
 
-# 
+#
 #  タイムスタンプファイルの指定
-# 
+#
 $timeStampFileName = "kernel_cfg.timestamp"
 
@@ -70 +70 @@
 #
 $kernelCfgH = GenFile.new("kernel_cfg.h")
-$kernelCfgH.append(<<EOS)
+$kernelCfgH.add(<<EOS)
 /* kernel_cfg.h */
 #ifndef TOPPERS_KERNEL_CFG_H
 #define TOPPERS_KERNEL_CFG_H
-
 EOS
 
@@ -82 +81 @@
 #
 $kernelCfgC = GenFile.new("kernel_cfg.c")
-$kernelCfgC.append(<<EOS)
+$kernelCfgC.add(<<EOS)
 /* kernel_cfg.c */
 #include "kernel/kernel_int.h"
@@ -90 +89 @@
 #error The kernel does not match this configuration file.
 #endif
-
-EOS
-
-# 
+EOS
+
+#
 #  インクルードディレクティブ（#include）
-# 
+#
 $kernelCfgC.comment_header("Include Directives")
 $includeFiles.each do |file|
@@ -142 +140 @@
 
     # オブジェクトのID番号を保持する変数
-    if !$USE_EXTERNAL_ID.nil?
+    if $USE_EXTERNAL_ID
       $cfgData[@api].sort.each do |key, params|
         $kernelCfgC.add("const ID #{params[@objid]}_id" \
@@ -224 +222 @@
                                                                 || (nfymode2 == $TENFY_SETFLG && epar2.nil?)
     # ãƒ‘ãƒ©ãƒ¡ãƒ¼ã‚¿ãŒè¶³ã‚Šãªã„å ´åˆ
-    error_api(params, "too few parameters for nfymode `#{nfymode}'" \
-                                                        " in #{params[:apiname]} of #{params[objid]}")
+    error_api(params, "too few parameters for nfymode `#{nfymode}' " \
+                                                                                        "in %apiname of %#{objid}")
   elsif (nfymode2 == 0 && !epar1.nil?) \
                                         || (nfymode2 != $TENFY_SETFLG && !epar2.nil?)
     # ãƒ‘ãƒ©ãƒ¡ãƒ¼ã‚¿ãŒå¤šã™ãŽã‚‹å ´åˆ
-    error_api(params, "too many parameters for nfymode `#{nfymode}'" \
-                                                        " in #{params[:apiname]} of #{params[objid]}")
+    error_api(params, "too many parameters for nfymode `#{nfymode}' " \
+                                                                                        "in %apiname of %#{objid}")
   elsif nfymode == $TNFY_HANDLER
     # タイムイベントハンドラの呼出し
@@ -354 +352 @@
 IncludeTrb("kernel/exception.trb")
 
-# 
+#
 #  éžã‚¿ã‚¹ã‚¯ã‚³ãƒ³ãƒ†ã‚­ã‚¹ãƒˆç”¨ã®ã‚¹ã‚¿ãƒƒã‚¯é ˜åŸŸ
-# 
+#
 $kernelCfgC.comment_header("Stack Area for Non-task Context")
 
-if $cfgData[:DEF_ICS].size() == 0
+if $cfgData[:DEF_ICS].size == 0
   # DEF_ICSãŒãªã„å ´åˆã®ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ã®è¨­å®š
   if $DEFAULT_ISTK.nil?
@@ -371 +369 @@
 else
   # 静的API「DEF_ICS」が複数ある（E_OBJ）［NGKI3216］
-  if $cfgData[:DEF_ICS].size() > 1
+  if $cfgData[:DEF_ICS].size > 1
     error("E_OBJ: too many DEF_ICS")
   end
@@ -378 +376 @@
   params = $cfgData[:DEF_ICS][1]
 
+  # パラメータが省略された時のデフォルト値の設定
+  params[:istk] ||= "NULL"
+
   # istkszがターゲット定義の最小値（TARGET_MIN_ISTKSZï¼Œæœªå®šç¾©ã®å ´åˆã¯1）
   # ã‚ˆã‚Šã‚‚å°ã•ã„å ´åˆï¼ˆE_PAR）［NGKI3254ï¼½
-  if params[:istksz] <= $TARGET_MIN_ISTKSZ
+  if params[:istksz] < $TARGET_MIN_ISTKSZ
     error_wrong("E_PAR", params, :istksz, "too small")
   end
 
-  if (params[:istk] == "NULL")
+  if params[:istk] == "NULL"
     # ã‚¹ã‚¿ãƒƒã‚¯é ˜åŸŸã®è‡ªå‹•å‰²ä»˜ã‘
-        istksz = AllocStack("_kernel_istack", params[:istksz])
+    istksz = AllocStack("_kernel_istack", params[:istksz])
     istk = "_kernel_istack"
   else
@@ -399 +400 @@
 end
 
-$kernelCfgC.append(<<EOS)
+$kernelCfgC.add(<<EOS)
 const size_t _kernel_istksz = #{istksz};
 STK_T *const _kernel_istk = #{istk};
@@ -406 +407 @@
 STK_T *const _kernel_istkpt = TOPPERS_ISTKPT(#{istk}, #{istksz});
 #endif /* TOPPERS_ISTKPT */
-
-EOS
-
-# 
+EOS
+
+#
 #  タイムイベント管理
-# 
+#
 $kernelCfgC.comment_header("Time Event Management")
-$kernelCfgC.append(<<EOS)
+$kernelCfgC.add(<<EOS)
 TMEVTN   _kernel_tmevt_heap[1 + TNUM_TSKID + TNUM_CYCID + TNUM_ALMID];
-
-EOS
-
-# 
+EOS
+
+#
 #  各モジュールの初期化関数
-# 
+#
 $kernelCfgC.comment_header("Module Initialization Function")
 $kernelCfgC.append(<<EOS)
@@ -428 +427 @@
 EOS
 $initializeFunctions.each do |func|
-        $kernelCfgC.add("\t#{func}")
+  $kernelCfgC.add("\t#{func}")
 end
 $kernelCfgC.add2("}")
 
-# 
+#
 #  初期化ルーチン機能
-# 
-# 
+#
 $kernelCfgC.comment_header("Initialization Routine")
 
@@ -442 +440 @@
   # iniatrãŒç„¡åŠ¹ã®å ´åˆï¼ˆE_RSATR）［NGKI3241ï¼½
   #（TA_NULLã§ãªã„å ´åˆï¼‰
-  if (params[:iniatr] != 0)
+  if (params[:iniatr] != $TA_NULL)
     error_illegal_sym("E_RSATR", params, :iniatr, :inirtn)
   end
@@ -459 +457 @@
 $kernelCfgC.add2("}")
 
-# 
+#
 #  終了処理ルーチン機能
-# 
+#
 $kernelCfgC.comment_header("Termination Routine")
 
@@ -468 +466 @@
   # teratrãŒç„¡åŠ¹ã®å ´åˆï¼ˆE_RSATR）［NGKI3248ï¼½
   #（TA_NULLã§ãªã„å ´åˆï¼‰
-  if (params[:teratr] != 0)
+  if (params[:teratr] != $TA_NULL)
     error_illegal_sym("E_RSATR", params, :teratr, :terrtn)
   end