hedgewars/uTeams.pas
changeset 14594 9be988a01565
parent 14557 181509fe1ae8
child 14632 3cf7799e04b5
--- a/hedgewars/uTeams.pas	Mon Jan 14 03:52:09 2019 +0100
+++ b/hedgewars/uTeams.pas	Mon Jan 14 03:53:21 2019 +0100
@@ -773,7 +773,7 @@
 procedure makeTeamNameUnique(chTeam: PTeam);
 var tail: shortstring;
     t, numLen, numTail: LongInt;
-    valOK: Word;
+//    valOK: Word;    -- see pas2c-related FIXME below
     nameDupeCheck: boolean;
     chChar: char;
 begin