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

* cardinal const expr fix from jonas

Browse Source
This commit is contained in:
peter 2000-12-19 20:36:03 +00:00
parent 70c63623e6
commit 1103739912
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pexpr.pas
View File

@ -1319,6 +1319,8 @@ implementation
{ do a very dirty trick to bootstrap this code } { do a very dirty trick to bootstrap this code }
if (pconstsym(srsym)^.value>=-(int64(2147483647)+int64(1))) and (pconstsym(srsym)^.value<=2147483647) then if (pconstsym(srsym)^.value>=-(int64(2147483647)+int64(1))) and (pconstsym(srsym)^.value<=2147483647) then
p1:=genordinalconstnode(pconstsym(srsym)^.value,s32bitdef) p1:=genordinalconstnode(pconstsym(srsym)^.value,s32bitdef)
else if (pconstsym(srsym)^.value > maxlongint) and (pconstsym(srsym)^.value <= int64(maxlongint)+int64(maxlongint)+1) then
p1:=genordinalconstnode(pconstsym(srsym)^.value,u32bitdef)
else else
p1:=genordinalconstnode(pconstsym(srsym)^.value,cs64bitdef); p1:=genordinalconstnode(pconstsym(srsym)^.value,cs64bitdef);
conststring : conststring :
@ -2418,7 +2420,10 @@ _LECKKLAMMER : begin
end. end.
{ {
$Log$ $Log$
Revision 1.22 2000-12-17 14:00:18 peter Revision 1.23 2000-12-19 20:36:03 peter
* cardinal const expr fix from jonas
Revision 1.22 2000/12/17 14:00:18 peter
* fixed static variables * fixed static variables
Revision 1.21 2000/12/15 13:26:01 jonas Revision 1.21 2000/12/15 13:26:01 jonas