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

+ add support for passing 32-bit values in a pair of registers in

Browse Source 
tcg8086.a_load_const_cgpara. This fixes passing const longint parameters in
  dx:ax when using the register calling convention on i8086.

git-svn-id: trunk@38785 -
This commit is contained in:
nickysn 2018-04-18 15:40:09 +00:00
parent a73aabcc39
commit bd3d35f2da
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/i8086/cgcpu.pas
View File

@ -1395,6 +1395,19 @@ unit cgcpu;
push_const(list,pushsize,a); push_const(list,pushsize,a);
end; end;
end end
else if (tcgsize2size[cgpara.Size]>2) and
(cgpara.location^.loc in [LOC_REGISTER,LOC_CREGISTER]) and
(cgpara.location^.Next<>nil) then
begin
if (tcgsize2size[cgpara.Size]<>4) or
(tcgsize2size[cgpara.location^.Size]<>2) or
not (cgpara.location^.Next^.Loc in [LOC_REGISTER,LOC_CREGISTER]) or
(tcgsize2size[cgpara.location^.Next^.Size]<>2) or
(cgpara.location^.Next^.Next<>nil) then
internalerror(2018041801);
a_load_const_reg(list,cgpara.location^.size,a and $FFFF,cgpara.location^.register);
a_load_const_reg(list,cgpara.location^.Next^.size,a shr 16,cgpara.location^.Next^.register);
end
else else
inherited a_load_const_cgpara(list,size,a,cgpara); inherited a_load_const_cgpara(list,size,a,cgpara);
end; end;