paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 08:28:09 +02: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
begin
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
else
internalerror(2005010403);