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

merged from 0-99-12 branch

Browse Source
This commit is contained in:
pierre 1999-06-28 10:49:48 +00:00
parent 6a15aaffb9
commit f426433d78
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/symsym.inc
View File

@ -1032,7 +1032,7 @@
vs_value,
vs_const :
begin
case definition^.deftype of
(*case definition^.deftype of
arraydef,
setdef,
stringdef,
@ -1041,8 +1041,12 @@
getpushsize:=target_os.size_of_pointer;
else
getpushsize:=definition^.size;
end;
end;
this is obsolete use push_param instead (PM) *)
if push_addr_param(definition) then
getpushsize:=target_os.size_of_pointer
else
getpushsize:=definition^.size;
end;
end;
end
else
@ -2015,7 +2019,13 @@
{
$Log$
Revision 1.95 1999-06-22 16:24:48 pierre
Revision 1.96 1999-06-28 10:49:48 pierre
merged from 0-99-12 branch
Revision 1.94.2.2 1999/06/28 10:32:29 pierre
* fixes bug453
Revision 1.94.2.1 1999/06/22 16:26:45 pierre
* local browser stuff corrected
Revision 1.94 1999/06/03 16:25:05 pierre