[Stratagus-CVS] stratagus/src/sound ccl_sound.c

[Jimmy Salmon]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Jimmy Salmon <address@hidden>   03/10/16 14:18:07

Modified files:
        src/sound      : ccl_sound.c 

Log message:
        Fixed error message

Patches:
Index: stratagus/src/sound/ccl_sound.c
diff -u stratagus/src/sound/ccl_sound.c:1.52 
stratagus/src/sound/ccl_sound.c:1.53
--- stratagus/src/sound/ccl_sound.c:1.52        Wed Oct  1 20:11:34 2003
+++ stratagus/src/sound/ccl_sound.c     Thu Oct 16 14:18:06 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_sound.c,v 1.52 2003/10/02 00:11:34 jsalmon3 Exp $
+//     $Id: ccl_sound.c,v 1.53 2003/10/16 18:18:06 jsalmon3 Exp $
 
 //@{
 
@@ -335,11 +335,11 @@
                    break;
                }
            }
-           free(str);
            if (i == PlayerRaces.Count) {
                fprintf(stderr, "Unknown race: %s\n", str);
                ExitFatal(1);
            }
+           free(str);
            sublist = gh_cdr(sublist);
            data = gh_car(sublist);
            if (!CCL_SOUNDP(data)) {
@@ -364,11 +364,11 @@
                    break;
                }
            }
-           free(str);
            if (i == PlayerRaces.Count) {
                fprintf(stderr, "Unknown race: %s\n", str);
                ExitFatal(1);
            }
+           free(str);
            sublist = gh_cdr(sublist);
            data = gh_car(sublist);
            if (!CCL_SOUNDP(data)) {