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

* move some types to the top of the unit

Browse Source 
git-svn-id: trunk@40696 -
This commit is contained in:
svenbarth 2018-12-29 19:21:05 +00:00
parent c3081f7cf3
commit feff0c673f
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -47,6 +47,19 @@ type
TRttiProperty = class;
TRttiInstanceType = class;
TFunctionCallCallback = Pointer;
TFunctionCallFlag = (
fcfStatic
);
TFunctionCallFlags = set of TFunctionCallFlag;
TFunctionCallParameterInfo = record
ParamType: PTypeInfo;
ParamFlags: TParamFlags;
ParaLocs: PParameterLocations;
end;
IValueData = interface
['{1338B2F3-2C21-4798-A641-CA2BC5BF2396}']
procedure ExtractRawData(ABuffer: pointer);
@ -431,12 +444,6 @@ type
EInvocationError = class(Exception);
ENonPublicType = class(Exception);
TFunctionCallParameterInfo = record
ParamType: PTypeInfo;
ParamFlags: TParamFlags;
ParaLocs: PParameterLocations;
end;
TFunctionCallParameter = record
ValueRef: Pointer;
ValueSize: SizeInt;
@ -444,13 +451,6 @@ type
end;
TFunctionCallParameterArray = specialize TArray<TFunctionCallParameter>;
TFunctionCallFlag = (
fcfStatic
);
TFunctionCallFlags = set of TFunctionCallFlag;
TFunctionCallCallback = Pointer;
TFunctionCallProc = procedure(const aArgs: TValueArray; out aResult: TValue; aContext: Pointer);
TFunctionCallMethod = procedure(const aArgs: TValueArray; out aResult: TValue; aContext: Pointer) of object;