From 865e10d6b05a26f38215c85caaf3891146362f29 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 6 Oct 2002 21:01:50 +0000
Subject: [PATCH]   * use tconstexpruint instead of qword

---
 compiler/ncgcon.pas | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/compiler/ncgcon.pas b/compiler/ncgcon.pas
index ef36e0d0d8..dc3eca0353 100644
--- a/compiler/ncgcon.pas
+++ b/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)