瀏覽代碼

+ added error message in case the HUGEPOINTERNORMALIZATION directive is used
with an invalid argument

git-svn-id: trunk@28152 -

nickysn 11 年之前
父節點
當前提交
7f9fa145e8
共有 4 個文件被更改,包括 486 次插入474 次删除
  1. 4 1
      compiler/msg/errore.msg
  2. 3 2
      compiler/msgidx.inc
  3. 477 471
      compiler/msgtxt.inc
  4. 2 0
      compiler/scandir.pas

+ 4 - 1
compiler/msg/errore.msg

@@ -136,7 +136,7 @@ general_f_oserror=01025_F_Operating system error: $1
 #
 # Scanner
 #
-# 02097 is the last used one
+# 02098 is the last used one
 #
 % \section{Scanner messages.}
 % This section lists the messages that the scanner emits. The scanner takes
@@ -404,6 +404,9 @@ scan_w_invalid_stacksize=02096_W_The specified stack size is not within the vali
 scan_w_heapmax_lessthan_heapmin=02097_W_The specified HeapMax value is smaller than the HeapMin value. Setting HeapMax ignored.
 % The HeapMax value (if specified) must be greater than or equal to the HeapMin
 % value. Otherwise, the HeapMax value is ignored.
+scan_e_illegal_hugepointernormalization=02098_E_Illegal argument for HUGEPOINTERNORMALIZATION
+% The only allowed values for HUGEPOINTERNORMALIZATION are BORLANDC, MICROSOFTC
+% and WATCOMC.
 % \end{description}
 #
 # Parser

+ 3 - 2
compiler/msgidx.inc

@@ -119,6 +119,7 @@ const
   scan_e_unsupported_switch=02095;
   scan_w_invalid_stacksize=02096;
   scan_w_heapmax_lessthan_heapmin=02097;
+  scan_e_illegal_hugepointernormalization=02098;
   parser_e_syntax_error=03000;
   parser_e_dont_nest_interrupt=03004;
   parser_w_proc_directive_ignored=03005;
@@ -993,9 +994,9 @@ const
   option_info=11024;
   option_help_pages=11025;
 
-  MsgTxtSize = 71901;
+  MsgTxtSize = 71955;
 
   MsgIdxMax : array[1..20] of longint=(
-    26,98,339,123,89,57,126,27,202,64,
+    26,99,339,123,89,57,126,27,202,64,
     58,20,1,1,1,1,1,1,1,1
   );

File diff suppressed because it is too large
+ 477 - 471
compiler/msgtxt.inc


+ 2 - 0
compiler/scandir.pas

@@ -1599,6 +1599,8 @@ unit scandir;
                recordpendinglocalswitch(cs_hugeptr_arithmetic_normalization,'-');
                recordpendinglocalswitch(cs_hugeptr_comparison_normalization,'+');
              end;
+          else
+            Message(scan_e_illegal_hugepointernormalization);
         end;
       end;
 

Some files were not shown because too many files changed in this diff