浏览代码

* split ena_rq define

git-svn-id: trunk@10316 -
florian 17 年之前
父节点
当前提交
cae52272aa
共有 1 个文件被更改,包括 5 次插入3 次删除
  1. 5 3
      compiler/htypechk.pas

+ 5 - 3
compiler/htypechk.pas

@@ -1072,7 +1072,7 @@ implementation
                       if report_errors then
                       if report_errors then
                         CGMessagePos2(hp.fileinfo,type_e_typecast_wrong_size_for_assignment,tostr(fromdef.size),tostr(todef.size));
                         CGMessagePos2(hp.fileinfo,type_e_typecast_wrong_size_for_assignment,tostr(fromdef.size),tostr(todef.size));
                   end;
                   end;
-                  
+
                  { when typecasting to the same size but changing the signdness of
                  { when typecasting to the same size but changing the signdness of
                    an ordinal, the value cannot be in a register if it's < sizeof(aint).
                    an ordinal, the value cannot be in a register if it's < sizeof(aint).
                    The reason is that a tc_int_2_int type conversion changing the sign
                    The reason is that a tc_int_2_int type conversion changing the sign
@@ -1948,10 +1948,12 @@ implementation
         releasecurrpt : boolean;
         releasecurrpt : boolean;
         cdoptions : tcompare_defs_options;
         cdoptions : tcompare_defs_options;
 
 
-    {$ifopt r+}{$define ena_rq}{$q-}{$r-}{$endif}
+    {$ifopt r+}{$define ena_r}{$r-}{$endif}
+    {$ifopt q+}{$define ena_q}{$q-}{$endif}
       const
       const
         inf=1.0/0.0;
         inf=1.0/0.0;
-    {$ifdef ena_rq}{$q+}{$r+}{$endif}
+    {$ifdef ena_r}{$r+}{$endif}
+    {$ifdef ena_q}{$q+}{$endif}
 
 
       begin
       begin
         cdoptions:=[cdo_check_operator];
         cdoptions:=[cdo_check_operator];