paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:09:20 +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 else
// remove legacy or basesysv on MorphOS syscalls // remove legacy or basesysv on MorphOS syscalls
begin 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; NextToken;
end; end;
end; end;

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

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