Pārlūkot izejas kodu

Handle arm-palmos syscall modifier

git-svn-id: trunk@37223 -
pierre 7 gadi atpakaļ
vecāks
revīzija
efcb10f537
1 mainītis faili ar 2 papildinājumiem un 1 dzēšanām
  1. 2 1
      compiler/pdecsub.pas

+ 2 - 1
compiler/pdecsub.pas

@@ -2103,6 +2103,7 @@ procedure pd_syscall(pd:tabstractprocdef);
         syscall: psyscallinfo;
         syscall: psyscallinfo;
       begin
       begin
         case target_info.system of
         case target_info.system of
+          system_arm_palmos,
           system_m68k_palmos,
           system_m68k_palmos,
           system_m68k_atari,
           system_m68k_atari,
           system_m68k_amiga,
           system_m68k_amiga,
@@ -2180,7 +2181,7 @@ begin
 {$if defined(powerpc) or defined(m68k) or defined(i386) or defined(x86_64) or defined(arm)}
 {$if defined(powerpc) or defined(m68k) or defined(i386) or defined(x86_64) or defined(arm)}
   include_po_syscall;
   include_po_syscall;
 
 
-  if target_info.system = system_m68k_palmos then
+  if target_info.system in [system_arm_palmos, system_m68k_palmos] then
     begin
     begin
       v:=get_intconst;
       v:=get_intconst;
       tprocdef(pd).extnumber:=longint(v.svalue);
       tprocdef(pd).extnumber:=longint(v.svalue);