2
0
Эх сурвалжийг харах

* split ena_rq define

git-svn-id: trunk@10316 -
florian 17 жил өмнө
parent
commit
cae52272aa
1 өөрчлөгдсөн 5 нэмэгдсэн , 3 устгасан
  1. 5 3
      compiler/htypechk.pas

+ 5 - 3
compiler/htypechk.pas

@@ -1072,7 +1072,7 @@ implementation
                       if report_errors then
                         CGMessagePos2(hp.fileinfo,type_e_typecast_wrong_size_for_assignment,tostr(fromdef.size),tostr(todef.size));
                   end;
-                  
+
                  { 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).
                    The reason is that a tc_int_2_int type conversion changing the sign
@@ -1948,10 +1948,12 @@ implementation
         releasecurrpt : boolean;
         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
         inf=1.0/0.0;
-    {$ifdef ena_rq}{$q+}{$r+}{$endif}
+    {$ifdef ena_r}{$r+}{$endif}
+    {$ifdef ena_q}{$q+}{$endif}
 
       begin
         cdoptions:=[cdo_check_operator];