mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-09 18:26:16 +02:00
* fixed writing of para locations for procedures with explicit locations for parameters
This commit is contained in:
parent
0eb61a4823
commit
926da4b9c9
@ -3530,7 +3530,7 @@ implementation
|
||||
hp.is_hidden:=boolean(ppufile.getbyte);
|
||||
if po_explicitparaloc in procoptions then
|
||||
begin
|
||||
ppufile.getdata(hp.paraloc,sizeof(hp.paraloc));
|
||||
ppufile.getdata(hp.paraloc[callerside].add_location^,sizeof(hp.paraloc[callerside].location^));
|
||||
has_paraloc_info:=true;
|
||||
end;
|
||||
{ Parameters are stored left to right in both ppu and memory }
|
||||
@ -3577,8 +3577,10 @@ implementation
|
||||
ppufile.putderef(hp.parasymderef);
|
||||
ppufile.putbyte(byte(hp.is_hidden));
|
||||
if po_explicitparaloc in procoptions then
|
||||
ppufile.putdata(hp.paraloc,sizeof(hp.paraloc));
|
||||
|
||||
begin
|
||||
hp.paraloc[callerside].check_simple_location;
|
||||
ppufile.putdata(hp.paraloc[callerside].location^,sizeof(hp.paraloc[callerside].location^));
|
||||
end;
|
||||
hp:=TParaItem(hp.next);
|
||||
end;
|
||||
end;
|
||||
@ -6216,7 +6218,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.263 2004-11-01 23:30:11 peter
|
||||
Revision 1.264 2004-11-03 09:46:34 florian
|
||||
* fixed writing of para locations for procedures with explicit locations for parameters
|
||||
|
||||
Revision 1.263 2004/11/01 23:30:11 peter
|
||||
* support > 32bit accesses for x86_64
|
||||
* rewrote array size checking to support 64bit
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user