paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:00:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* More base address fixes

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

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

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

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

@ -124,6 +124,7 @@ type
procedure TestCallingConventionVectorCall;
procedure TestCallingConventionSysCall;
procedure TestCallingConventionSysCallExecbase;
procedure TestCallingConventionSysCallUtilitybase;
Procedure TestProcedurePublic;
Procedure TestProcedurePublicIdent;
Procedure TestFunctionPublic;
@ -826,6 +827,12 @@ begin
AssertProc([],[],ccSysCall,0);
end;
procedure TTestProcedureFunction.TestCallingConventionSysCallUtilitybase;
begin
ParseProcedure('; syscall _utilityBase 123');
AssertProc([],[],ccSysCall,0);
end;
procedure TTestProcedureFunction.TestCallingConventionHardFloat;
begin
ParseProcedure('; HardFloat');