paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 16:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use tconstexpruint instead of qword

Browse Source
This commit is contained in:
peter 2002-10-06 21:01:50 +00:00
parent c610d3d0dd
commit 865e10d6b0
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ncgcon.pas
View File

@ -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} location.valueqword:=TConstExprUInt(value);
{ Delphi crashes on this statement }
location.valueqword:=value;
{$else}
location.valueqword:=qword(value);
{$endif}
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)