paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-15 15:40:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* extend TParamFlag by pfConstRef which is set for constref parameters

Browse Source 
* extend test trtti9.pp accordingly

git-svn-id: trunk@35175 -
This commit is contained in:
svenbarth 2016-12-20 21:37:07 +00:00
parent 1553aa5639
commit 2acf542737
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/typinfo.pp
View File

@ -55,7 +55,7 @@ unit typinfo;
TMethodKind = (mkProcedure,mkFunction,mkConstructor,mkDestructor, TMethodKind = (mkProcedure,mkFunction,mkConstructor,mkDestructor,
mkClassProcedure,mkClassFunction,mkClassConstructor, mkClassProcedure,mkClassFunction,mkClassConstructor,
mkClassDestructor,mkOperatorOverload); mkClassDestructor,mkOperatorOverload);
TParamFlag = (pfVar,pfConst,pfArray,pfAddress,pfReference,pfOut); TParamFlag = (pfVar,pfConst,pfArray,pfAddress,pfReference,pfOut,pfConstRef);
TParamFlags = set of TParamFlag; TParamFlags = set of TParamFlag;
TIntfFlag = (ifHasGuid,ifDispInterface,ifDispatch,ifHasStrGUID); TIntfFlag = (ifHasGuid,ifDispInterface,ifDispatch,ifHasStrGUID);
TIntfFlags = set of TIntfFlag; TIntfFlags = set of TIntfFlag;

7
tests/test/trtti9.pp
View File

@ -7,7 +7,7 @@ uses
type type
PProcedureParam = ^TProcedureParam; PProcedureParam = ^TProcedureParam;
TProc = procedure(var A: Integer; S: String); stdcall; TProc = procedure(var A: Integer; S: String; constref U: UnicodeString); stdcall;
function TestParam(Param: PProcedureParam; Flags: TParamFlags; ParamType: Pointer; Name: ShortString): Boolean; function TestParam(Param: PProcedureParam; Flags: TParamFlags; ParamType: Pointer; Name: ShortString): Boolean;
begin begin
@ -27,7 +27,7 @@ begin
halt(2); halt(2);
if Data^.ProcSig.ResultType <> nil then if Data^.ProcSig.ResultType <> nil then
halt(3); halt(3);
if Data^.ProcSig.ParamCount <> 2 then if Data^.ProcSig.ParamCount <> 3 then
halt(4); halt(4);
Param := Data^.ProcSig.GetParam(0); Param := Data^.ProcSig.GetParam(0);
if not TestParam(Param, [pfVar], TypeInfo(Integer), 'A') then if not TestParam(Param, [pfVar], TypeInfo(Integer), 'A') then
@ -35,4 +35,7 @@ begin
Param := Data^.ProcSig.GetParam(1); Param := Data^.ProcSig.GetParam(1);
if not TestParam(Param, [], TypeInfo(String), 'S') then if not TestParam(Param, [], TypeInfo(String), 'S') then
halt(6); halt(6);
Param := Data^.ProcSig.GetParam(2);
if not TestParam(Param, [pfConstRef], TypeInfo(UnicodeString), 'U') then
halt(7);
end. end.