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

m68k: code generation for atari syscalls

Browse Source 
git-svn-id: trunk@34611 -
This commit is contained in:
Károly Balogh 2016-10-03 23:39:36 +00:00
parent 5db02f4202
commit 003487baab
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/m68k/n68kcal.pas
View File

@ -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