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

fcl-passrc: fixed proc arg file

Browse Source
This commit is contained in:
mattias 2025-01-10 08:51:41 +01:00
parent c3110dfaa9
commit 5e41a1417f
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

@ -2159,7 +2159,7 @@ Const
NoHintTokens = [tkProcedure,tkFunction];
InterfaceKindTypes : Array[Boolean] of TPasObjKind = (okInterface,okObjcProtocol);
ClassKindTypes : Array[TLocalClassType] of TPasObjKind = (okClass,okObjCClass,okObjcCategory,okClassHelper);
FuncArgResultTypeTokens = [tkIdentifier,tkarray,tkSpecialize];
FuncArgResultTypeTokens = [tkIdentifier,tkarray,tkSpecialize,tkfile];
var
PM: TPackMode;

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

@ -104,6 +104,7 @@ type
Procedure TestFunctionArrayOfConstArg;
procedure TestProcedureConstArrayOfConstArg;
Procedure TestFunctionConstArrayOfConstArg;
Procedure TestProcedureArgFile;
Procedure TestProcedureCdecl;
Procedure TestFunctionCdecl;
@ -832,6 +833,12 @@ begin
AssertArrayArg(FuncType,0,'B',argConst,'');
end;
procedure TTestProcedureFunction.TestProcedureArgFile;
begin
ParseProcedure('(Const B : File)');
AssertProc([],[],ccDefault,1);
end;
procedure TTestProcedureFunction.TestCallingConventionSysV_ABI_Default;
begin
ParseProcedure('; SysV_ABI_Default');