diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-20 11:42:39 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-20 11:42:39 +0000 |
| commit | 8976a12a8a43e277a8d4f344995c187e4130e57d (patch) | |
| tree | c7cc17577170f12a58fa69206d84d101357b00d9 /packages | |
| parent | 9f5370fd77272dd5b1fe7663bc048c235763cdf6 (diff) | |
| download | fpc-8976a12a8a43e277a8d4f344995c187e4130e57d.tar.gz | |
* Consoledevice
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47478 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages')
| -rw-r--r-- | packages/fcl-passrc/src/pparser.pp | 2 | ||||
| -rw-r--r-- | packages/fcl-passrc/tests/tcprocfunc.pas | 7 |
2 files changed, 8 insertions, 1 deletions
diff --git a/packages/fcl-passrc/src/pparser.pp b/packages/fcl-passrc/src/pparser.pp index 5b49392aee..3b66a4c535 100644 --- a/packages/fcl-passrc/src/pparser.pp +++ b/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; diff --git a/packages/fcl-passrc/tests/tcprocfunc.pas b/packages/fcl-passrc/tests/tcprocfunc.pas index e867a369f4..c8158b15fe 100644 --- a/packages/fcl-passrc/tests/tcprocfunc.pas +++ b/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'); |