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

+ write/read alignment to ppu for explicit parameter locations

Browse Source 
git-svn-id: trunk@12765 -
This commit is contained in:
florian 2009-02-21 22:59:58 +00:00
parent 344ccfce72
commit 6911b70dc4
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symsym.pas
View File

@ -1299,6 +1299,7 @@ implementation
paraloc[callerside].init; paraloc[callerside].init;
if vo_has_explicit_paraloc in varoptions then if vo_has_explicit_paraloc in varoptions then
begin begin
paraloc[callerside].alignment:=ppufile.getbyte;
b:=ppufile.getbyte; b:=ppufile.getbyte;
if b<>sizeof(paraloc[callerside].location^) then if b<>sizeof(paraloc[callerside].location^) then
internalerror(200411154); internalerror(200411154);
@ -1328,6 +1329,7 @@ implementation
if vo_has_explicit_paraloc in varoptions then if vo_has_explicit_paraloc in varoptions then
begin begin
paraloc[callerside].check_simple_location; paraloc[callerside].check_simple_location;
ppufile.putbyte(sizeof(paraloc[callerside].alignment));
ppufile.putbyte(sizeof(paraloc[callerside].location^)); ppufile.putbyte(sizeof(paraloc[callerside].location^));
ppufile.putdata(paraloc[callerside].location^,sizeof(paraloc[callerside].location^)); ppufile.putdata(paraloc[callerside].location^,sizeof(paraloc[callerside].location^));
end; end;