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

Call ungetregister for NR_D2 at m68k-palmos syscall exit

Browse Source 
git-svn-id: trunk@37351 -
This commit is contained in:
pierre 2017-09-28 14:55:41 +00:00
parent 8fccd2aefc
commit 8b63f97173
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/m68k/n68kcal.pas
View File

@ -110,7 +110,7 @@ implementation
current_asmdata.CurrAsmList.concat(taicpu.op_const(A_TRAP,S_NO,15)); current_asmdata.CurrAsmList.concat(taicpu.op_const(A_TRAP,S_NO,15));
current_asmdata.CurrAsmList.concat(tai_const.create_16bit(tprocdef(procdefinition).extnumber)); current_asmdata.CurrAsmList.concat(tai_const.create_16bit(tprocdef(procdefinition).extnumber));
if po_syscall_has_importnr in tprocdef(procdefinition).procoptions then if po_syscall_has_importnr in tprocdef(procdefinition).procoptions then
cg.getcpuregister(current_asmdata.CurrAsmList,NR_D2); cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_D2);
end end
else else
internalerror(2017081201); internalerror(2017081201);