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

* fixed potential range errors

Browse Source 
git-svn-id: trunk@8321 -
This commit is contained in:
Jonas Maebe 2007-08-28 19:01:49 +00:00
parent ae364ab187
commit 9238ea2850
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/sysformt.inc
View File

@ -318,7 +318,7 @@ begin
index:=31;
end;
If Prec>index then
ToAdd:=HexStr(vq,index)
ToAdd:=HexStr(int64(vq),index)
else
begin
// determine minimum needed number of hex digits.
@ -327,7 +327,7 @@ begin
inc(Index);
If Index>Prec then
Prec:=Index;
ToAdd:=HexStr(vq,Prec);
ToAdd:=HexStr(int64(vq),Prec);
end;
end;
'%': ToAdd:='%';