equal
deleted
inserted
replaced
771 // Make sure the team name of chTeam is unique. |
771 // Make sure the team name of chTeam is unique. |
772 // If it isn't, the name is changed to be unique. |
772 // If it isn't, the name is changed to be unique. |
773 procedure makeTeamNameUnique(chTeam: PTeam); |
773 procedure makeTeamNameUnique(chTeam: PTeam); |
774 var tail: shortstring; |
774 var tail: shortstring; |
775 t, numLen, numTail: LongInt; |
775 t, numLen, numTail: LongInt; |
776 valOK: Word; |
776 // valOK: Word; -- see pas2c-related FIXME below |
777 nameDupeCheck: boolean; |
777 nameDupeCheck: boolean; |
778 chChar: char; |
778 chChar: char; |
779 begin |
779 begin |
780 nameDupeCheck:= false; |
780 nameDupeCheck:= false; |
781 while(nameDupeCheck = false) do |
781 while(nameDupeCheck = false) do |