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

* range check error

Browse Source
This commit is contained in:
peter 2004-01-23 15:47:23 +00:00
parent 883bdeff12
commit 22a6b598be
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symppu.pas
View File

@ -101,7 +101,7 @@ implementation
{$endif Range_check_on}
end
else
result:=getlongint;
result:=tconstexprint(getlongint);
end;
@ -128,7 +128,7 @@ implementation
{$endif Range_check_on}
end
else
result:=getlongint;
result:=TConstPtrUInt(getlongint);
end;
@ -400,7 +400,10 @@ implementation
end.
{
$Log$
Revision 1.24 2003-12-22 22:15:13 peter
Revision 1.25 2004-01-23 15:47:23 peter
* range check error
Revision 1.24 2003/12/22 22:15:13 peter
* fix write pointerconst
Revision 1.23 2003/10/28 15:36:01 peter