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

fcl-passrc: improvement for Amiga, OS4, MorphOS syscalls

Browse Source 
git-svn-id: trunk@48909 -
This commit is contained in:
marcus 2021-03-08 15:00:07 +00:00
parent fc6769329f
commit e668f8732a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5495,8 +5495,12 @@ begin
else
// remove legacy or basesysv on MorphOS syscalls
begin
if CurTokenIsIdentifier('legacy') or CurTokenIsIdentifier('consoledevice')
or (Curtoken=tkIdentifier) and (Pos('base',LowerCase(CurtokenText))>0) then
if (Pos('sysv',LowerCase(CurtokenText))>0) or CurTokenIsIdentifier('legacy') then
NextToken;
// remove LibBase (Amiga, AROS, MorphOS) or Interface (OS4)
if CurTokenIsIdentifier('consoledevice') or
((Curtoken=tkIdentifier) and (Pos('base',LowerCase(CurtokenText)) > 0)) or
((Curtoken=tkIdentifier) and (CurtokenText[1] = 'I')) then
NextToken;
end;
end;