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

* fix for Mantis #32476: use the correct string to check i2

Browse Source 
git-svn-id: trunk@37361 -
This commit is contained in:
svenbarth 2017-09-30 11:22:02 +00:00
parent abbea4c416
commit 5c447cba50
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cutils.pas
View File

@ -1243,7 +1243,7 @@ implementation
exit(res); exit(res);
{ if one of the two is at the end while the other isn't, add a '.0' } { if one of the two is at the end while the other isn't, add a '.0' }
if (i1>length(s1)) and if (i1>length(s1)) and
(i2<=length(s1)) then (i2<=length(s2)) then
s1:=s1+'.0' s1:=s1+'.0'
else if i2>length(s2) then else if i2>length(s2) then
s2:=s2+'.0'; s2:=s2+'.0';