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

* use tconstexpruint instead of qword

peter 23 жил өмнө
parent
commit
865e10d6b0

+ 5 - 7
compiler/ncgcon.pas

@@ -154,12 +154,7 @@ implementation
     procedure tcgordconstnode.pass_2;
     procedure tcgordconstnode.pass_2;
       begin
       begin
          location_reset(location,LOC_CONSTANT,def_cgsize(resulttype.def));
          location_reset(location,LOC_CONSTANT,def_cgsize(resulttype.def));
-{$ifdef delphi}
-   { Delphi crashes on this statement }
-         location.valueqword:=value;
-{$else}         
-         location.valueqword:=qword(value);
-{$endif}
+         location.valueqword:=TConstExprUInt(value);
       end;
       end;
 
 
 
 
@@ -532,7 +527,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.20  2002-10-05 12:43:25  carl
+  Revision 1.21  2002-10-06 21:01:50  peter
+    * use tconstexpruint instead of qword
+
+  Revision 1.20  2002/10/05 12:43:25  carl
     * fixes for Delphi 6 compilation
     * fixes for Delphi 6 compilation
      (warning : Some features do not work under Delphi)
      (warning : Some features do not work under Delphi)