paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 02:49:22 +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; index:=31;
end; end;
If Prec>index then If Prec>index then
ToAdd:=HexStr(vq,index) ToAdd:=HexStr(int64(vq),index)
else else
begin begin
// determine minimum needed number of hex digits. // determine minimum needed number of hex digits.
@ -327,7 +327,7 @@ begin
inc(Index); inc(Index);
If Index>Prec then If Index>Prec then
Prec:=Index; Prec:=Index;
ToAdd:=HexStr(vq,Prec); ToAdd:=HexStr(int64(vq),Prec);
end; end;
end; end;
'%': ToAdd:='%'; '%': ToAdd:='%';