paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +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
private
function GetParamType: PTypeInfo; inline;
function GetFlags: Byte; inline;
public
property ParamType: PTypeInfo read GetParamType;
property Flags: Byte read GetFlags;
public
Flags: Byte;
ParamFlags: TParamFlags;
ParamTypeRef: TypeInfoPtr;
Name: ShortString;
end;
@ -2277,6 +2279,11 @@ begin
Result := DerefTypeInfoPtr(ParamTypeRef);
end;
function TProcedureParam.GetFlags: Byte;
begin
Result := Byte(ParamFlags);
end;
{ TManagedField }
function TManagedField.GetTypeRef: PTypeInfo;