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

* use a Word instead of a Byte for the attribute index (after all the compiler writes a Word to the count field)

Browse Source 
git-svn-id: trunk@42367 -
This commit is contained in:
svenbarth 2019-07-12 22:05:39 +00:00
parent 5153a288dc
commit 788d976f3a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/typinfo.pp
View File

@ -916,9 +916,9 @@ function GetNextTypeInfo(ATypeInfo: PTypeInfo): PTypeInfo;
function GetAttributeData(TypeInfo: PTypeInfo): PAttributeData; function GetAttributeData(TypeInfo: PTypeInfo): PAttributeData;
function GetPropAttribute(PropInfo: PPropInfo; AttributeNr: byte): TCustomAttribute; function GetPropAttribute(PropInfo: PPropInfo; AttributeNr: Word): TCustomAttribute;
function GetAttribute(AttributeData: PAttributeData; AttributeNr: byte): TCustomAttribute; function GetAttribute(AttributeData: PAttributeData; AttributeNr: Word): TCustomAttribute;
// Auxiliary routines, which may be useful // Auxiliary routines, which may be useful
Function GetEnumName(TypeInfo : PTypeInfo;Value : Integer) : string; Function GetEnumName(TypeInfo : PTypeInfo;Value : Integer) : string;
@ -1150,7 +1150,7 @@ begin
result := nil; result := nil;
end; end;
function GetPropAttribute(PropInfo: PPropInfo; AttributeNr: byte): TCustomAttribute; function GetPropAttribute(PropInfo: PPropInfo; AttributeNr: Word): TCustomAttribute;
var var
attrtable: PAttributeData; attrtable: PAttributeData;
begin begin
@ -1163,7 +1163,7 @@ begin
end; end;
end; end;
function GetAttribute(AttributeData: PAttributeData; AttributeNr: byte): TCustomAttribute; function GetAttribute(AttributeData: PAttributeData; AttributeNr: Word): TCustomAttribute;
var var
AttributeProcList: TAttributeProcList; AttributeProcList: TAttributeProcList;
begin begin