[Stratagus-CVS] stratagus/src/missile ccl_missile.c

[Jimmy Salmon]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Jimmy Salmon <address@hidden>   03/09/28 21:16:50

Modified files:
        src/missile    : ccl_missile.c 

Log message:
        Fixed bug cleaning burned building frames

Patches:
Index: stratagus/src/missile/ccl_missile.c
diff -u stratagus/src/missile/ccl_missile.c:1.32 
stratagus/src/missile/ccl_missile.c:1.33
--- stratagus/src/missile/ccl_missile.c:1.32    Sat Sep 27 00:00:55 2003
+++ stratagus/src/missile/ccl_missile.c Sun Sep 28 21:16:50 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_missile.c,v 1.32 2003/09/27 04:00:55 jsalmon3 Exp $
+//     $Id: ccl_missile.c,v 1.33 2003/09/29 01:16:50 jsalmon3 Exp $
 
 //@{
 
@@ -324,15 +324,17 @@
     SCM value;
     SCM sublist;
     BurningBuildingFrame** frame;
+    BurningBuildingFrame* ptr;
     BurningBuildingFrame* next;
     char* str;
 
-    frame = &BurningBuildingFrames;
-    while (*frame) {
-       next = (*frame)->Next;
-       free(*frame);
-       frame = &next;
+    ptr = BurningBuildingFrames;
+    while (ptr) {
+       next = ptr->Next;
+       free(ptr);
+       ptr = next;
     }
+    BurningBuildingFrames = NULL;
 
     frame = &BurningBuildingFrames;