From 003487baaba2ed0cc795480beabcf5b8616461c8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?K=C3=A1roly=20Balogh?= Date: Mon, 3 Oct 2016 23:39:36 +0000 Subject: [PATCH] m68k: code generation for atari syscalls git-svn-id: trunk@34611 - --- compiler/m68k/n68kcal.pas | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/compiler/m68k/n68kcal.pas b/compiler/m68k/n68kcal.pas index f31f0bef31..c80742abae 100644 --- a/compiler/m68k/n68kcal.pas +++ b/compiler/m68k/n68kcal.pas @@ -70,6 +70,19 @@ implementation tmpref: treference; begin case target_info.system of + system_m68k_atari: + begin + if po_syscall in tprocdef(procdefinition).procoptions then + begin + reference_reset_base(tmpref,NR_SP,0,2); + tmpref.direction:=dir_dec; + current_asmdata.CurrAsmList.concat(taicpu.op_const_ref(A_MOVE,S_W,tprocdef(procdefinition).import_nr,tmpref)); + current_asmdata.CurrAsmList.concat(taicpu.op_const(A_TRAP,S_NO,tprocdef(procdefinition).extnumber)); + inc(pushedparasize,2); { kludge, trap code should be a hidden para instead... } + end + else + internalerror(2016100301); + end; system_m68k_amiga: begin if po_syscall_legacy in tprocdef(procdefinition).procoptions then