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

* pushf/push cs on all platforms when directly calling an interrupt procedure, with the

Browse Source 
recent changes needed for 16 byte stack alignment it should work now

git-svn-id: trunk@43508 -
This commit is contained in:
florian 2019-11-17 14:16:32 +00:00
parent 0b888bb4ce
commit 2d3ef8b4bc
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i386/n386cal.pas
View File

@ -86,19 +86,18 @@ implementation
end;
end;
procedure ti386callnode.gen_syscall_para(para: tcallparanode);
begin
{ lib parameter has no special type but proccalloptions must be a syscall }
para.left:=cloadnode.create(tcpuprocdef(procdefinition).libsym,tcpuprocdef(procdefinition).libsym.owner);
end;
procedure ti386callnode.extra_interrupt_code;
begin
if not(target_info.system in [system_i386_darwin,system_i386_iphonesim,system_i386_android]) then
begin
emit_none(A_PUSHF,S_L);
emit_reg(A_PUSH,S_L,NR_CS);
end;
emit_none(A_PUSHF,S_L);
emit_reg(A_PUSH,S_L,NR_CS);
end;
@ -168,5 +167,5 @@ implementation
begin
ccallnode:=ti386callnode;
ccallnode:=ti386callnode;
end.