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

* fixed pushing of high value for openarray

Browse Source
This commit is contained in:
peter 1998-08-11 14:07:27 +00:00
parent d5e1886c8c
commit 90fc7e176d
1 changed files with 29 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/symsym.inc
View File

@ -941,13 +941,32 @@
begin
case varspez of
vs_value : getsize:=definition^.size;
vs_var : getsize:=sizeof(pointer);
vs_var : begin
{ open arrays push also the high valye }
if (definition^.deftype=arraydef) and
(parraydef(definition)^.lowrange=0) and
(parraydef(definition)^.highrange=-1) then
getsize:=sizeof(pointer)+4
else
getsize:=sizeof(pointer);
end;
vs_const : begin
if (definition^.deftype in [stringdef,arraydef,
recorddef,objectdef,setdef]) then
getsize:=sizeof(pointer)
else
getsize:=definition^.size;
case definition^.deftype of
stringdef,
recorddef,
objectdef,
setdef : getsize:=sizeof(pointer);
arraydef : begin
{ open arrays push also the high valye }
if (parraydef(definition)^.lowrange=0) and
(parraydef(definition)^.highrange=-1) then
getsize:=sizeof(pointer)+4
else
getsize:=sizeof(pointer);
end;
else
getsize:=definition^.size;
end;
end;
end;
end
@ -1652,7 +1671,10 @@
{
$Log$
Revision 1.27 1998-08-10 14:50:31 peter
Revision 1.28 1998-08-11 14:07:27 peter
* fixed pushing of high value for openarray
Revision 1.27 1998/08/10 14:50:31 peter
+ localswitches, moduleswitches, globalswitches splitting
Revision 1.26 1998/08/10 10:18:35 peter