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

* declare the first field of TProcedureParam as TParamFlags to avoid potential problems if more than 8 entries should be used (especially if some day the hidden Self and High parameters should be written)

Browse Source 
* rename first field of TProcedureParam to ParamFlags and introduce a property Flags for backwards and Delphi compatibility

git-svn-id: trunk@35174 -
This commit is contained in:
svenbarth 2016-12-20 21:13:04 +00:00
parent e2bb22e106
commit 1553aa5639
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/typinfo.pp
View File

@ -169,10 +169,12 @@ unit typinfo;
record record
private private
function GetParamType: PTypeInfo; inline; function GetParamType: PTypeInfo; inline;
function GetFlags: Byte; inline;
public public
property ParamType: PTypeInfo read GetParamType; property ParamType: PTypeInfo read GetParamType;
property Flags: Byte read GetFlags;
public public
Flags: Byte; ParamFlags: TParamFlags;
ParamTypeRef: TypeInfoPtr; ParamTypeRef: TypeInfoPtr;
Name: ShortString; Name: ShortString;
end; end;
@ -2277,6 +2279,11 @@ begin
Result := DerefTypeInfoPtr(ParamTypeRef); Result := DerefTypeInfoPtr(ParamTypeRef);
end; end;
function TProcedureParam.GetFlags: Byte;
begin
Result := Byte(ParamFlags);
end;
{ TManagedField } { TManagedField }
function TManagedField.GetTypeRef: PTypeInfo; function TManagedField.GetTypeRef: PTypeInfo;