[Stratagus-CVS] stratagus/src/unit unittype.c

[Russell Smith]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Russell Smith <address@hidden>  03/09/21 05:34:23

Modified files:
        src/unit       : unittype.c 

Log message:
        Missed Freeing Explosion name if defined

Patches:
Index: stratagus/src/unit/unittype.c
diff -u stratagus/src/unit/unittype.c:1.100 stratagus/src/unit/unittype.c:1.101
--- stratagus/src/unit/unittype.c:1.100 Sun Sep 21 05:31:52 2003
+++ stratagus/src/unit/unittype.c       Sun Sep 21 05:34:23 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: unittype.c,v 1.100 2003/09/21 09:31:52 mr-russ Exp $
+//     $Id: unittype.c,v 1.101 2003/09/21 09:34:23 mr-russ Exp $
 
 //@{
 
@@ -1112,7 +1112,7 @@
     char **sp;
 
     CLprintf(file,"\n;;; -----------------------------------------\n");
-    CLprintf(file,";;; MODULE: unittypes $Id: unittype.c,v 1.100 2003/09/21 
09:31:52 mr-russ Exp $\n\n");
+    CLprintf(file,";;; MODULE: unittypes $Id: unittype.c,v 1.101 2003/09/21 
09:34:23 mr-russ Exp $\n\n");
 
     // Original number to internal unit-type name.
 
@@ -1468,6 +1468,9 @@
        }
        if( type->Missile.Name ) {
            free(type->Missile.Name);
+       }
+       if( type->Explosion.Name ) {
+           free(type->Explosion.Name);
        }
        if( type->CorpseName ) {
            free(type->CorpseName);