[Stratagus-CVS] stratagus/src/ai new_ai.c

[ludovic pollet]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     ludovic pollet <address@hidden> 03/11/15 03:54:55

Modified files:
        src/ai         : new_ai.c 

Log message:
        Fixed memory leak in AI

Patches:
Index: stratagus/src/ai/new_ai.c
diff -u stratagus/src/ai/new_ai.c:1.88 stratagus/src/ai/new_ai.c:1.89
--- stratagus/src/ai/new_ai.c:1.88      Fri Nov 14 12:35:51 2003
+++ stratagus/src/ai/new_ai.c   Sat Nov 15 03:54:54 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//      $Id: new_ai.c,v 1.88 2003/11/14 17:35:51 pludov Exp $
+//      $Id: new_ai.c,v 1.89 2003/11/15 08:54:54 pludov Exp $
 
 
 //@{
@@ -782,7 +782,7 @@
 {
     CLprintf(file, "\n;;; -----------------------------------------\n");
     CLprintf(file,
-       ";;; MODULE: AI $Id: new_ai.c,v 1.88 2003/11/14 17:35:51 pludov Exp 
$\n\n");
+       ";;; MODULE: AI $Id: new_ai.c,v 1.89 2003/11/15 08:54:54 pludov Exp 
$\n\n");
 
     SaveAiTypesWcName(file);
     SaveAiHelper(file);
@@ -951,6 +951,9 @@
            }
 
            for (i = 0; i < AI_MAX_RUNNING_SCRIPTS; ++i) {
+               if (pai->Scripts[i].gauges) {
+                   free(pai->Scripts[i].gauges);
+               }
 #if defined(USE_GUILE) || defined(USE_SIOD)
                CclGcUnprotect(&pai->Scripts[i].Script);
 #elif defined(USE_LUA)