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

* adjust parameters of far procedures for the extra segment that's pushed on the stack by the far call instruction

Browse Source 
git-svn-id: trunk@24818 -
This commit is contained in:
nickysn 2013-06-08 20:42:13 +00:00
parent aa63efc27e
commit 6fdd48878f
1 changed files with 24 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/i8086/cpupara.pas
View File

@ -495,7 +495,11 @@ unit cpupara;
paralen:=16; paralen:=16;
paraloc^.reference.offset:=parasize; paraloc^.reference.offset:=parasize;
if side=calleeside then if side=calleeside then
inc(paraloc^.reference.offset,target_info.first_parm_offset); begin
inc(paraloc^.reference.offset,target_info.first_parm_offset);
if po_far in p.procoptions then
inc(paraloc^.reference.offset,2);
end;
parasize:=align(parasize+paralen,varalign); parasize:=align(parasize+paralen,varalign);
end end
else else
@ -537,11 +541,15 @@ unit cpupara;
varalign:=used_align(size_2_align(l),paraalign,paraalign); varalign:=used_align(size_2_align(l),paraalign,paraalign);
paraloc^.reference.offset:=parasize; paraloc^.reference.offset:=parasize;
if side=calleeside then if side=calleeside then
if not(po_nostackframe in p.procoptions) then begin
inc(paraloc^.reference.offset,target_info.first_parm_offset) if not(po_nostackframe in p.procoptions) then
else inc(paraloc^.reference.offset,target_info.first_parm_offset)
{ return addres } else
inc(paraloc^.reference.offset,4); { return addres }
inc(paraloc^.reference.offset,2);
if po_far in p.procoptions then
inc(paraloc^.reference.offset,2);
end;
parasize:=align(parasize+l,varalign); parasize:=align(parasize+l,varalign);
dec(paralen,l); dec(paralen,l);
firstparaloc:=false; firstparaloc:=false;
@ -660,7 +668,11 @@ unit cpupara;
varalign:=used_align(size_2_align(paralen),paraalign,paraalign); varalign:=used_align(size_2_align(paralen),paraalign,paraalign);
paraloc^.reference.offset:=parasize; paraloc^.reference.offset:=parasize;
if side=calleeside then if side=calleeside then
inc(paraloc^.reference.offset,target_info.first_parm_offset); begin
inc(paraloc^.reference.offset,target_info.first_parm_offset);
if po_far in p.procoptions then
inc(paraloc^.reference.offset,2);
end;
parasize:=align(parasize+paralen,varalign); parasize:=align(parasize+paralen,varalign);
end end
else else
@ -701,7 +713,11 @@ unit cpupara;
varalign:=used_align(size_2_align(l),paraalign,paraalign); varalign:=used_align(size_2_align(l),paraalign,paraalign);
paraloc^.reference.offset:=parasize; paraloc^.reference.offset:=parasize;
if side=calleeside then if side=calleeside then
inc(paraloc^.reference.offset,target_info.first_parm_offset); begin
inc(paraloc^.reference.offset,target_info.first_parm_offset);
if po_far in p.procoptions then
inc(paraloc^.reference.offset,2);
end;
parasize:=align(parasize+l,varalign); parasize:=align(parasize+l,varalign);
dec(paralen,l); dec(paralen,l);
firstparaloc:=false; firstparaloc:=false;