* few small changes to add syscall support to M68k/Amiga target

compiler/ncal.pas

@@ -1243,7 +1243,7 @@ type
 {$ifdef powerpc}
               else
                 { lib parameter has no special type but proccalloptions must be a syscall }
-                if (target_info.system=system_powerpc_morphos) and
+                if (target_info.system in [system_powerpc_morphos,system_m68k_amiga]) and
                   (procdefinition.proccalloption=pocall_syscall) then
                   begin
                     hiddentree:=cloadnode.create(tprocdef(procdefinition).libsym,tprocdef(procdefinition).libsym.owner);
@@ -2050,7 +2050,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.232  2004-05-01 22:05:01  florian
+  Revision 1.233  2004-05-12 13:21:09  karoly
+    * few small changes to add syscall support to M68k/Amiga target
+
+  Revision 1.232  2004/05/01 22:05:01  florian
     + added lib support for Amiga/MorphOS syscalls
 
   Revision 1.231  2004/03/14 20:07:13  peter

compiler/parser.pas

@@ -123,6 +123,8 @@ implementation
          case target_info.system of
            system_powerpc_morphos:
              include(supported_calling_conventions,pocall_syscall);
+	   system_m68k_amiga:
+	     include(supported_calling_conventions,pocall_syscall);
          end;
       end;
 
@@ -711,7 +713,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.64  2004-04-28 15:19:03  florian
+  Revision 1.65  2004-05-12 13:21:09  karoly
+    * few small changes to add syscall support to M68k/Amiga target
+
+  Revision 1.64  2004/04/28 15:19:03  florian
     + syscall directive support for MorphOS added
 
   Revision 1.63  2004/03/16 16:20:49  peter

compiler/pdecsub.pas

@@ -463,7 +463,7 @@ implementation
                    single_type(tt,hs1,false);
                  end;
 
-                if (target_info.system in [system_powerpc_morphos]) then
+                if (target_info.system in [system_powerpc_morphos,system_m68k_amiga]) then
                   begin
                     if (idtoken=_LOCATION) then
                       begin
@@ -533,7 +533,7 @@ implementation
               end;
              pd.concatpara(nil,tt,vs,defaultvalue,false);
 
-             if (target_info.system in [system_powerpc_morphos]) then
+             if (target_info.system in [system_powerpc_morphos,system_m68k_amiga]) then
                begin
                  if locationstr<>'' then
                    begin
@@ -1162,7 +1162,7 @@ begin
     internalerror(2003042614);
   tprocdef(pd).forwarddef:=false;
 {$ifdef powerpc}
-  if target_info.system=system_powerpc_morphos then
+  if target_info.system in [system_powerpc_morphos,system_m68k_amiga] then
     begin
      pd.has_paraloc_info:=true;
      include(pd.procoptions,po_explicitparaloc);
@@ -2238,7 +2238,10 @@ const
 end.
 {
   $Log$
-  Revision 1.177  2004-05-11 22:52:48  olle
+  Revision 1.178  2004-05-12 13:21:09  karoly
+    * few small changes to add syscall support to M68k/Amiga target
+
+  Revision 1.177  2004/05/11 22:52:48  olle
     * Moved import_implicit_external to symsym
 
   Revision 1.176  2004/05/11 18:29:41  olle