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

* fix for Mantis : 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

2
compiler/cutils.pas
View File

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