* Consoledevice

git-svn-id: trunk@47478 -

packages/fcl-passrc/src/pparser.pp

@@ -5373,7 +5373,7 @@ begin
         else
           // remove legacy or basesysv on MorphOS syscalls
           begin
-          if CurTokenIsIdentifier('legacy')
+          if CurTokenIsIdentifier('legacy') or CurTokenIsIdentifier('consoledevice')
              or (Curtoken=tkIdentifier) and (Pos('base',LowerCase(CurtokenText))>0) then
             NextToken;
           end;

packages/fcl-passrc/tests/tcprocfunc.pas

@@ -125,6 +125,7 @@ type
     procedure TestCallingConventionSysCall;
     procedure TestCallingConventionSysCallExecbase;
     procedure TestCallingConventionSysCallUtilitybase;
+    procedure TestCallingConventionSysCallConsoleDevice;
     Procedure TestProcedurePublic;
     Procedure TestProcedurePublicIdent;
     Procedure TestFunctionPublic;
@@ -833,6 +834,12 @@ begin
   AssertProc([],[],ccSysCall,0);
 end;
 
+procedure TTestProcedureFunction.TestCallingConventionSysCallConsoleDevice;
+begin
+  ParseProcedure('; syscall ConsoleDevice 123');
+  AssertProc([],[],ccSysCall,0);
+end;
+
 procedure TTestProcedureFunction.TestCallingConventionHardFloat;
 begin
   ParseProcedure('; HardFloat');