paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 13:58:33 +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 }
if (pconstsym(srsym)^.value>=-(int64(2147483647)+int64(1))) and (pconstsym(srsym)^.value<=2147483647) then
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
p1:=genordinalconstnode(pconstsym(srsym)^.value,cs64bitdef);
conststring :
@ -2418,7 +2420,10 @@ _LECKKLAMMER : begin
end.
{
$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
Revision 1.21 2000/12/15 13:26:01 jonas