# HG changeset patch # User nemo # Date 1546445194 18000 # Node ID bcb418530a1c2c641e5f57a867d9bb6d15500d53 # Parent 64d73515abba8fc62c68f80fb8cb176476841e54 remove Wuzzy's val checking, add a FIXME to add that to the C implementation diff -r 64d73515abba -r bcb418530a1c hedgewars/uTeams.pas --- a/hedgewars/uTeams.pas Wed Jan 02 03:30:54 2019 +0100 +++ b/hedgewars/uTeams.pas Wed Jan 02 11:06:34 2019 -0500 @@ -799,6 +799,7 @@ // Number found: Increment it by 1 begin tail:= Copy(chTeam^.TeamName, Length(chTeam^.TeamName) - numLen + 1, numLen); +(* FIXME - pas2c missing 3rd param for val valOK:= 1; Val(tail, numTail, valOK); Inc(numTail); @@ -806,7 +807,11 @@ tail:= IntToStr(numTail) else // This should not happen - tail:= 'X'; + tail:= shortstring('X'); +*) + Val(tail, numTail); + Inc(numTail); + tail:= IntToStr(numTail) chTeam^.TeamName:= Copy(chTeam^.TeamName, 0, Length(chTeam^.TeamName) - numLen) + tail; end else