paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 10:38:26 +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

32
compiler/symsym.inc
View File

@ -941,15 +941,34 @@
begin begin
case varspez of case varspez of
vs_value : getsize:=definition^.size; 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 vs_const : begin
if (definition^.deftype in [stringdef,arraydef, case definition^.deftype of
recorddef,objectdef,setdef]) then stringdef,
getsize:=sizeof(pointer) 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 else
getsize:=definition^.size; getsize:=definition^.size;
end; end;
end; end;
end;
end end
else else
getsize:=0; getsize:=0;
@ -1652,7 +1671,10 @@
{ {
$Log$ $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 + localswitches, moduleswitches, globalswitches splitting
Revision 1.26 1998/08/10 10:18:35 peter Revision 1.26 1998/08/10 10:18:35 peter