paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 17:09:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ unbroke m68k-amiga syscalls

Browse Source 
git-svn-id: trunk@5586 -
This commit is contained in:
Károly Balogh 2006-12-13 20:19:43 +00:00
parent 387d19aa3f
commit f4b44b8a97
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

@ -57,7 +57,7 @@ implementation
if po_syscall_legacy in tprocdef(procdefinition).procoptions then if po_syscall_legacy in tprocdef(procdefinition).procoptions then
begin begin
reference_reset_base(tmpref,NR_A6,-tprocdef(procdefinition).extnumber); reference_reset_base(tmpref,NR_A6,-tprocdef(procdefinition).extnumber);
current_asmdata.CurrAsmList.concat(taicpu.op_ref_reg(A_JSR,S_NO,tmpref,NR_NO)); current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_JSR,S_NO,tmpref));
end end
else else
internalerror(2005010403); internalerror(2005010403);