Changeset 290 for rubycfg_ssp

Timestamp:

May 7, 2017, 12:41:19 AM (6 years ago)

Author:

nmir-saito

Message:

defepr_success変数の削除およびDEF_EPRのエラー出力の修正

Location:

rubycfg_ssp/trunk

Files:

• kernel.trb (modified) (1 diff)
• task.trb (modified) (2 diffs)

rubycfg_ssp/trunk/kernel.trb

@@ -280 +280 @@
 #  その際，スタックサイズの指定値が実際の割当てサイズより大きいかを確認する．
 #
-if $defepr_success && $defstk_success
+if $defstk_success
   result_str = <<EOS
 =====================================

rubycfg_ssp/trunk/task.trb

@@ -150 +150 @@
 
       # 実行時優先度
-      if $cfgData[:DEF_EPR][params[:tskid].val]
+      defepr_params = $cfgData[:DEF_EPR][params[:tskid].val]
+
+      if defepr_params
+        exepri = defepr_params[:exepri]
+
         # exepri は TMIN_TPRI 以上 かつ TMAX_TPRI 以下(E_PAR)
-        exepri = $cfgData[:DEF_EPR][params[:tskid].val][:exepri]
         if $TMIN_TPRI > exepri || $TMAX_TPRI < exepri
-          $defepr_success = false
-          error_illegal_id("E_PAR", params, :exepri, :tskid)
+          error_exit("E_PAR: illegal exepri '#{exepri}' in DEF_EPR of #{params[:tskid]}", \
+                "#{defepr_params[:_file_]}:#{defepr_params[:_line_]}:")
         end
 
         # exepri は atskpri 以下の値をもつ(優先度が高い) (E_ILUSE)
         if exepri > params[:atskpri]
-          $defepr_success = false
-          error_illegal_id("E_ILUSE", params, :exepri, :tskid)
+          error_exit("E_ILUSE: illegal exepri '#{exepri}' in DEF_EPR of #{params[:tskid]}", \
+                "#{defepr_params[:_file_]}:#{defepr_params[:_line_]}:")
         end
       end
@@ -346 +349 @@
 #
 
-# 実行時優先度のコンフィギュレーションに成功したかどうか
-$defepr_success = true
-
 $kernelCfgC.comment_header("Task Management Functions")
 if $cfgData[:CRE_TSK].size() == 0