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

* More syscall fixes

Browse Source 
git-svn-id: trunk@47476 -
This commit is contained in:
michael 2020-11-20 11:22:23 +00:00
parent 7d14de0521
commit 60ecdb00ae
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 else
// remove legacy or basesysv on MorphOS syscalls // remove legacy or basesysv on MorphOS syscalls
begin begin
if CurTokenIsIdentifier('legacy') or CurTokenIsIdentifier('BaseSysV') then if CurTokenIsIdentifier('legacy') or CurTokenIsIdentifier('BaseSysV') or CurTokenIsIdentifier('_ExecBase') then
NextToken; NextToken;
end; end;
end; end;

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

@ -123,6 +123,7 @@ type
procedure TestCallingConventionSysV_ABI_Default; procedure TestCallingConventionSysV_ABI_Default;
procedure TestCallingConventionVectorCall; procedure TestCallingConventionVectorCall;
procedure TestCallingConventionSysCall; procedure TestCallingConventionSysCall;
procedure TestCallingConventionSysCallExecbase;
Procedure TestProcedurePublic; Procedure TestProcedurePublic;
Procedure TestProcedurePublicIdent; Procedure TestProcedurePublicIdent;
Procedure TestFunctionPublic; Procedure TestFunctionPublic;
@ -819,6 +820,12 @@ begin
AssertProc([],[],ccSysCall,0); AssertProc([],[],ccSysCall,0);
end; end;
procedure TTestProcedureFunction.TestCallingConventionSysCallExecbase;
begin
ParseProcedure('; syscall _execBase 123');
AssertProc([],[],ccSysCall,0);
end;
procedure TTestProcedureFunction.TestCallingConventionHardFloat; procedure TTestProcedureFunction.TestCallingConventionHardFloat;
begin begin
ParseProcedure('; HardFloat'); ParseProcedure('; HardFloat');