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

* patch by Alfred to fix cutils.CompareVersionStrings, resolves #38514

Browse Source 
git-svn-id: trunk@48757 -
This commit is contained in:
florian 2021-02-21 18:04:12 +00:00
parent 71887b902b
commit f333fb08ec
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cutils.pas
View File

@ -1298,9 +1298,10 @@ implementation
{ 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(s2)) then (i2<=length(s2)) then
s1:=s1+'.0' s1:=s1+'.0';
else if i2>length(s2) then if (i2>length(s2)) and
s2:=s2+'.0'; (i1<=length(s1)) then
s2:=s2+'.0';
{ compare non-numerical characters normally } { compare non-numerical characters normally }
while (i1<=length(s1)) and while (i1<=length(s1)) and
not(s1[i1] in ['0'..'9']) and not(s1[i1] in ['0'..'9']) and