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

* hack for arraydef.size overflow

Browse Source
This commit is contained in:
peter 1998-11-29 12:45:59 +00:00
parent 6df97708c1
commit a53f6ba9d4
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symdef.inc
View File

@ -1565,7 +1565,11 @@
function tarraydef.size : longint; function tarraydef.size : longint;
begin begin
size:=(highrange-lowrange+1)*elesize; { dirty hack to overcome an overflow (PFV) }
if highrange=$7fffffff then
size:=$7fffffff
else
size:=(highrange-lowrange+1)*elesize;
end; end;
@ -3219,7 +3223,10 @@
{ {
$Log$ $Log$
Revision 1.74 1998-11-27 14:50:47 peter Revision 1.75 1998-11-29 12:45:59 peter
* hack for arraydef.size overflow
Revision 1.74 1998/11/27 14:50:47 peter
+ open strings, $P switch support + open strings, $P switch support
Revision 1.73 1998/11/26 14:47:00 michael Revision 1.73 1998/11/26 14:47:00 michael