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

* Consoledevice

Browse Source 
git-svn-id: trunk@47478 -
This commit is contained in:
michael 2020-11-20 11:42:39 +00:00
parent be4d0be10c
commit 9d4a1d1ac5
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-passrc/src/pparser.pp
View File

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

7
packages/fcl-passrc/tests/tcprocfunc.pas
View File

@ -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');