paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 22:59:29 +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;
paraloc^.reference.offset:=parasize;
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);
end
else
@ -537,11 +541,15 @@ unit cpupara;
varalign:=used_align(size_2_align(l),paraalign,paraalign);
paraloc^.reference.offset:=parasize;
if side=calleeside then
if not(po_nostackframe in p.procoptions) then
inc(paraloc^.reference.offset,target_info.first_parm_offset)
else
{ return addres }
inc(paraloc^.reference.offset,4);
begin
if not(po_nostackframe in p.procoptions) then
inc(paraloc^.reference.offset,target_info.first_parm_offset)
else
{ 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);
dec(paralen,l);
firstparaloc:=false;
@ -660,7 +668,11 @@ unit cpupara;
varalign:=used_align(size_2_align(paralen),paraalign,paraalign);
paraloc^.reference.offset:=parasize;
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);
end
else
@ -701,7 +713,11 @@ unit cpupara;
varalign:=used_align(size_2_align(l),paraalign,paraalign);
paraloc^.reference.offset:=parasize;
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);
dec(paralen,l);
firstparaloc:=false;