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

* Make GetEnumName safer, check actual type. Allow passing an integer

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-06 18:04:29 +01:00
parent 46508f6af1
commit cde58d66fc
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/typinfo.pp
View File

@ -1479,7 +1479,7 @@ begin
Result:=''; Result:='';
end; end;
end end
else else if TypeInfo^.Kind=tkEnumeration then
begin begin
PS:=@PT^.NameList; PS:=@PT^.NameList;
dec(Value,PT^.MinValue); dec(Value,PT^.MinValue);
@ -1489,7 +1489,11 @@ begin
Dec(Value); Dec(Value);
end; end;
Result:=PS^; Result:=PS^;
end; end
else if TypeInfo^.Kind=tkInteger then
Result:=IntToStr(Value)
else
Result:='';
end; end;