Parcourir la source

* use tconstexpruint instead of qword

peter il y a 23 ans
Parent
commit
865e10d6b0
1 fichiers modifiés avec 5 ajouts et 7 suppressions
  1. 5 7
      compiler/ncgcon.pas

+ 5 - 7
compiler/ncgcon.pas

@@ -154,12 +154,7 @@ implementation
     procedure tcgordconstnode.pass_2;
       begin
          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;
 
 
@@ -532,7 +527,10 @@ begin
 end.
 {
   $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
      (warning : Some features do not work under Delphi)