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

* fixed the handling of the register parameters of i8086 interrupt procedures

Browse Source 
git-svn-id: trunk@27502 -
This commit is contained in:
nickysn 2014-04-07 22:19:10 +00:00
parent 59a9a595c5
commit e725af86fe
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/i8086/cpupara.pas
View File

@ -418,13 +418,15 @@ unit cpupara;
paracgsize : tcgsize;
firstparaloc,
pushaddr : boolean;
pushleftright: boolean;
begin
paraalign:=get_para_align(p.proccalloption);
{ we push Flags and CS as long
to cope with the IRETD
and we save 6 register + 4 selectors }
{ interrupt routines need parameter fixup }
if po_interrupt in p.procoptions then
inc(parasize,8+6*4+4*2);
if po_far in p.procoptions then
dec(parasize,6)
else
dec(parasize,4);
{ Offset is calculated like:
sub esp,12
mov [esp+8],para3
@ -434,12 +436,13 @@ unit cpupara;
That means for pushes the para with the
highest offset (see para3) needs to be pushed first
}
if p.proccalloption in pushleftright_pocalls then
pushleftright:=(p.proccalloption in pushleftright_pocalls) or (po_interrupt in p.procoptions);
if pushleftright then
i:=paras.count-1
else
i:=0;
while ((p.proccalloption in pushleftright_pocalls) and (i>=0)) or
(not(p.proccalloption in pushleftright_pocalls) and (i<=paras.count-1)) do
while (pushleftright and (i>=0)) or
(not(pushleftright) and (i<=paras.count-1)) do
begin
hp:=tparavarsym(paras[i]);
paradef:=hp.vardef;
@ -554,7 +557,7 @@ unit cpupara;
firstparaloc:=false;
end;
end;
if p.proccalloption in pushleftright_pocalls then
if pushleftright then
dec(i)
else
inc(i);