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

* use Str instead of IntToStr to avoid overload problems with unsigned types

Browse Source 
git-svn-id: trunk@48400 -
This commit is contained in:
svenbarth 2021-01-24 14:57:24 +00:00
parent c3fd06b6b5
commit b446023e5b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/syshelpo.inc
View File

@ -18,7 +18,7 @@ end;
Class Function TORDINALHELPER.ToString(const AValue: TORDINALTYPE): string; overload; inline; static; Class Function TORDINALHELPER.ToString(const AValue: TORDINALTYPE): string; overload; inline; static;
begin begin
Result:=IntToStr(AValue); Str(AValue,Result);
end; end;
Class Function TORDINALHELPER.TryParse(const AString: string; out AValue: TORDINALTYPE): Boolean; inline; static; Class Function TORDINALHELPER.TryParse(const AString: string; out AValue: TORDINALTYPE): Boolean; inline; static;
@ -77,7 +77,7 @@ end;
Function TORDINALHELPER.ToString: string; overload; inline; Function TORDINALHELPER.ToString: string; overload; inline;
begin begin
Result:=IntToStr(Self); Str(Self,Result);
end; end;
Function TORDINALHELPER.SetBit(const index: TORDINALBITINDEX) : TORDINALTYPE; inline; Function TORDINALHELPER.SetBit(const index: TORDINALBITINDEX) : TORDINALTYPE; inline;