Memory Leaks @ Vanilla Torque

void GuiMessageVectorCtrl::createSpecialMarkers(SpecialMarkers& rSpecial, const char* string)
{
   // The first thing we need to do is create a version of the string with no uppercase
   //  chars for matching...
   char* pLCCopy = new char[dStrlen(string) + 1]; // KIM 081030 Here is the LEAK...
   for (U32 i = 0; string[i] != '[[60c1db107584f]]'; i++)
      pLCCopy[i] = dTolower(string[i]);
   pLCCopy[dStrlen(string)] = '[[60c1db107584f]]';

   Vector<TempLineBreak> tempSpecials(__FILE__, __LINE__);
   Vector<S32>           tempTypes(__FILE__, __LINE__);

   const char* pCurr = pLCCopy;
   while (pCurr[0] != '[[60c1db107584f]]') {
      const char* pMinMatch = &pLCCopy[dStrlen(string)];
      U32 minMatchType = 0xFFFFFFFF;
      AssertFatal(pMinMatch[0] == '[[60c1db107584f]]', "Error, bad positioning of sentry...");

      for (U32 i = 0; i < 16; i++) {
         if (mAllowedMatches[i][0] == '[[60c1db107584f]]')
            continue;

         // Not the most efficient...
         char matchBuffer[512];
         dStrncpy(matchBuffer, mAllowedMatches[i], 500);
         matchBuffer[499] = '[[60c1db107584f]]';
         dStrcat(matchBuffer, "://");

         const char* pMatch = dStrstr(pCurr, (const char*)matchBuffer);
         if (pMatch != NULL && pMatch < pMinMatch) {
            pMinMatch = pMatch;
            minMatchType = i;
         }
      }

      if (pMinMatch[0] != '[[60c1db107584f]]') {
         AssertFatal(minMatchType != 0xFFFFFFFF, "Hm, that's bad");
         // Found a match...
         U32 start = pMinMatch - pLCCopy;
         U32 j;
         for (j = 0; pLCCopy[start + j] != '[[60c1db107584f]]'; j++) {
            if (pLCCopy[start + j] == '\n' ||
                pLCCopy[start + j] == ' '  ||
                pLCCopy[start + j] == '\t')
               break;
         }
         AssertFatal(j > 0, "Error, j must be > 0 at this point!");
         U32 end = start + j - 1;

         tempSpecials.increment();
         tempSpecials.last().start = start;
         tempSpecials.last().end   = end;
         tempTypes.push_back(minMatchType);

         pCurr  = &pLCCopy[end + 1];
      } else {
         // No match.  This will cause the while loop to terminate...
         pCurr = pMinMatch;
      }
   }

   if ((rSpecial.numSpecials = tempSpecials.size()) != 0) {
      rSpecial.specials = new SpecialMarkers::Special[tempSpecials.size()];
      for (U32 i = 0; i < tempSpecials.size(); i++) {
         rSpecial.specials[i].start       = tempSpecials[i].start;
         rSpecial.specials[i].end         = tempSpecials[i].end;
         rSpecial.specials[i].specialType = tempTypes[i];
      }
   } else {
      rSpecial.specials = NULL;
   }
   delete pLCCopy; // + KIM 081030 LEAK_FIX
}

struct Field {
	   // + KIM 081031 LEAK_FIX
	   ~Field()
	   {
		   if ( validator )
		   {
			   delete validator;
		   }
	   }
	   // - KIM 081031 LEAK_FIX

           const char* pFieldname;    ///< Name of the field.
           const char* pGroupname; 
           // ... ...

/********* KIM 081020 Move to terrain/terrCollision.cc. purpose: LEAK_FIX
TerrainBlock::~TerrainBlock()
{
   delete lightMap;
   if(whiteMap)
	   delete whiteMap;
}
**********/

// ++ KIM 081020 LEAK_FIX Moved from terrain/terrData.cc
TerrainBlock::~TerrainBlock()
{
	//Con::errorf("~TerrainBlock : %d", this->getId());
	sTerrainConvexList.collectGarbage(); // + KIM 081020 LEAK_FIX
        delete lightMap;
        if(whiteMap)
	   delete whiteMap;
}
// -- KIM 081020 MOVE

DataChunker::DataChunker(S32 size)
{
   chunkSize          = size;
   curBlock           = new DataBlock(size); // core/dataChunker.cc line 15, leak 12 bytes
   curBlock->next     = NULL;
   curBlock->curIndex = 0;
}

void *DataChunker::alloc(S32 size)
{
   AssertFatal(size <= chunkSize, "Data chunk too large.");
   if(!curBlock || size + curBlock->curIndex > chunkSize)
   {
      DataBlock *temp = new DataBlock(chunkSize); // core/dataChunker.cc line 30, leak 12 bytes
      temp->next = curBlock;
      temp->curIndex = 0;
      curBlock = temp;
   }
   void *ret = curBlock->data + curBlock->curIndex;
   curBlock->curIndex += (size + 3) & ~3; // dword align
   return ret;
}

DataChunker::DataBlock::DataBlock(S32 size)
{
   data = new U8[size]; // core/dataChunker.cc line 42, leak 16376 bytes and happens quite often
}

~GameInterface(); // KIM 081103 LEAK_FIX

// + KIM 081103 LEAK_FIX
GameInterface::~GameInterface()
{
	Mutex::destroyMutex(gGameEventQueueMutex);
}
// - KIM 081103 LEAK_FIX

// + KIM 081104 LEAK_FIX
//////////////////////////////////////////////////////////////////////////
/// \brief Function for cleaning up memory leak
//////////////////////////////////////////////////////////////////////////
typedef void (*fnShutdown)();
// - KIM 081104 LEAK_FIX

...
struct ConsoleParser
{
        ...
        ...
        fnSetScanBuffer  setScanBuffer;   //!< SetScanBuffer lexer function (console/consoleParser.h line 51)
	fnShutdown		 shutdown;	//!< Shutdown function, to cleanup memory leak // + KIM 081104 LEAK_FIX
};
...
...

#define CON_DECLARE_PARSER(prefix) \
	const char * prefix##GetCurrentFile(); \
	S32 prefix##GetCurrentLine(); \
	void prefix##SetScanBuffer(const char *sb, const char *fn); \
	S32 prefix##parse(); \
	void prefix##restart(FILE *input_file); \             // + KIM 081104 line continuation symbol '\'
	void prefix##shutdown()	// + KIM 081104 LEAK_FIX void prefix##shutdown

#define CON_ADD_PARSER(prefix, ext, def) \
	Compiler::addConsoleParser(ext, prefix##GetCurrentFile, prefix##GetCurrentLine, prefix##parse, \
		prefix##restart, prefix##SetScanBuffer, prefix##shutdown, def)	// +KIM 081104 LEAK_FIX prefix##shutdown

void freeConsoleParserList(void)
{
	ConsoleParser *pParser;

	while(pParser = gParserList)
	{
		// + KIM 081104 LEAK_FIX - console/consoleParser.cc line 21
		if ( pParser->shutdown )
			pParser->shutdown();
		// - KIM 081104 LEAK_FIX
		gParserList = pParser->next;
		delete pParser;
	}

	gDefaultParser = NULL;
}

// KIM 081104 add fnShutdown to the argument list
bool addConsoleParser(char *ext, fnGetCurrentFile gcf, fnGetCurrentLine gcl, fnParse p, fnRestart r, fnSetScanBuffer ssb, fnShutdown shtdwn, bool def /* = false */)
{
	AssertFatal(ext && gcf && gcl && p && r, "AddConsoleParser called with one or more NULL arguments");

	ConsoleParser *pParser;
	if(pParser = new ConsoleParser)
	{
	    ...
            ...
}

void shutdown()
{
   AssertFatal(active == true, "Con::shutdown should only be called once.");
   active = false;

   consoleLogFile.close();
   Namespace::shutdown();

   // + KIM 081104 LEAK_FIX
   Compiler::freeConsoleParserList();
   // - KIM 081104 LEAK_FIX
}

// + KIM 081104 LEAK_FIX
#define yyshutdown CMDshutdown
// - KIM 081104 LEAK_FIX

// + KIM 081104 LEAK_FIX MOVED originally from line 2045
#ifdef YY_USE_PROTOS
static void yy_flex_free( void *ptr )
#else
static void yy_flex_free( ptr )
void *ptr;
#endif
	{
	free( ptr );
	}
// - KIM 081104 LEAK_FIX MOVED originally from line 2045

struct yy_buffer_state
	{
		// + KIM 081104 LEAK_FIX - line 163
		~yy_buffer_state()
		{
			if ( yy_ch_buf )
			{
				yy_flex_free( (void*) yy_ch_buf );
			}
		}
		// - KIM 081104 LEAK_FIX
	FILE *yy_input_file;
        ... ... ...

void yyshutdown()
{
	if ( yy_current_buffer )
	{
		yy_current_buffer->~yy_buffer_state();
		yy_flex_free( (void*) yy_current_buffer );
	}		
}
// - KIM 081104 LEAK_FIX

// + KIM 081104 LEAK_FIX
#define yyshutdown BASshutdown
// - KIM 081104 LEAK_FIX

// ++ KIM 081104 LEAK_FIX MOVED
	/****************************************
#ifdef YY_USE_PROTOS
static void yy_flex_free( void *ptr )
#else
static void yy_flex_free( ptr )
void *ptr;
#endif
	{
	free( ptr );
	}
	*****************************************/
// -- KIM 081104 LEAK_FIX MOVED

// + KIM 081104 LEAK_FIX MOVED
#ifdef YY_USE_PROTOS
static void yy_flex_free( void *ptr )
#else
static void yy_flex_free( ptr )
void *ptr;
#endif
	{
	free( ptr );
	}
// - KIM 081104 LEAK_FIX MOVED

struct yy_buffer_state
	{
		// + KIM 081104 LEAK_FIX
		~yy_buffer_state()
		{
			if ( yy_ch_buf )
			{
				yy_flex_free( (void*) yy_ch_buf );
			}
		}
		// - KIM 081104 LEAK_FIX
	FILE *yy_input_file;
        ... ... ...

// + KIM 081104 LEAK_FIX
void yyshutdown()
{
	if ( yy_current_buffer )
	{
		yy_current_buffer->~yy_buffer_state();
		yy_flex_free( (void*) yy_current_buffer );
	}		
}
// - KIM 081104 LEAK_FIX

struct StringStack
{
	// + KIM 081105 LEAK_FIX
	~StringStack();
	// - KIM 081105 LEAK_FIX
        enum {
        ... ... ...

// KIM 081105 LEAK_FIX
StringStack::~StringStack()
{
	if ( mBuffer )
		dFree( mBuffer );
	if ( mArgBuffer )
		dFree( mArgBuffer );
}
// KIM 081105 LEAK_FIX

Container::~Container()
{
	// + KIM 081105 LEAK_FIX
	if ( mBinArray )
	{
		delete mBinArray;
                mBinArray = NULL;
	}
	// - KIM 081105 LEAK_FIX

   for (U32 i = 0; i < mRefPoolBlocks.size(); i++)
   ... ... ...

/////////////////////////////////////////////////////////////////
// sim object counts
// orion elenzil
// 20081107
//
// this utility will count all the instanciations of each class in your simulation.
// usage:
// dumpClassInstanceCounts(simGroup %group, bool %verbose)
// where
// %group is a simGroup of interest, such as a particular GuiCOntrol or RootGroup
// %verbose is a boolean telling the routine to dump a tree along the way.
//
// note you may get many script warnings about undefined method "getCount()".
// if this happens and bothers you, see the note in the code about how to get around it.
//
// oxe

function dumpClassInstanceCounts(%group, %verbose)
{
   if (%group $= "")
   {
      %group = RootGroup;
      // other groups of interest:
      // MissionGroup
      // ServerGroup
      // Canvas
      // MyGuiControl
   }
      
   %list = getClassInstanceCounts(%group, %verbose);
   
   echo("here they are:" NL %list);
}


function getClassInstanceCounts(%group, %verbose)
{
   $gClassCountSeenList = " ";  // this will accumulate a list of all the different classes we've seen
   
   if (%verbose $= "")
      %verbose = false;
   
   _accumulateClassInstanceCounts_Recursive(%group, %verbose, "");
   
   // okay, $gClassCountSeenList is now a space-delimited list of all the classes we encountered,
   // and $gClassCounts[<some classname>] is the count.
   // let's compose it all into fields and records and stuff.
   // there's a leading blank word as well.
   %ret = "";
   %num = getWordCount($gClassCountSeenList) - 1;
   for (%n = 1; %n <= %num; %n++)
   {
      %className  = getWord($gClassCountSeenList, %n);
      %classCount = $gClassCounts[%className];
      %ret = %ret @ %className SPC %classCount @ "\n";
   }
   
   return %ret;
}

// don't call this directly. call getClassInstanceCounts() instead.
function _accumulateClassInstanceCounts_Recursive(%object, %verbose, %indent)
{
   %className = %object.getClassName();
   
   if (%verbose)
   {
      echo(%indent @ %className SPC %object.getId() SPC %object.getName());
   }
   
   %classNameMunged = " " @ %className @ " ";   // to avoid class names which may be proper substrings of other classnames.
   if (strstr($gClassCountSeenList, %classNameMunged) < 0)
   {
      // first time seen, let's record it as seen and clear out the totals
      $gClassCounts[%className] = 0;
      $gClassCountSeenList = $gClassCountSeenList @ %className @ " ";
//    echo("saw" SPC %className);
   }
   
   // increment the count
   $gClassCounts[%className] = $gClassCounts[%className] + 1;

   // the following throws craploads of warnings,
   // but i don't know how else to do it w/ stock TGE script.
   // you can get around the warns by implementing the "isSimSet" resource:
   // http://www.garagegames.com/index.php?sec=mg&mod=resource&page=view&qid=13244
   %num = %object.getCount();
   for (%n = 0; %n < %num; %n++)
   {
      %child = %object.getObject(%n);
      _accumulateClassInstanceCounts_Recursive(%child, %verbose, %indent @ "|  ");
   }
}

==>dumpClassInstanceCounts(canvas, 0);
here they are:
GuiCanvas 1
GuiChunkedBitmapCtrl 1
GuiTreeViewCtrl 1
GuiControl 4
GuiBitmapCtrl 9
GuiBitmapButtonCtrl 14
GuiMLTextCtrl 8
GuiFadeinBitmapCtrl 1
GuiWindowCtrl 1
GuiScrollCtrl 2
GuiConsole 1
GuiConsoleEditCtrl 1
GuiPaneControl 1

==>dumpClassInstanceCounts(canvas, 1);
GuiCanvas 1057 Canvas
|  GuiChunkedBitmapCtrl 1273 MainMenuGui
|  |  GuiTreeViewCtrl 1274 thetree
|  GuiControl 1361 MainMenuDlg
|  |  GuiControl 1362 
|  |  |  GuiBitmapCtrl 1363 
|  |  |  GuiBitmapCtrl 1364 racing
|  |  |  GuiBitmapCtrl 1365 
|  |  |  GuiBitmapButtonCtrl 1366 
|  |  |  |  GuiMLTextCtrl 1367 
|  |  |  GuiBitmapButtonCtrl 1368 
|  |  |  |  GuiMLTextCtrl 1369 
|  |  |  GuiBitmapButtonCtrl 1370 
|  |  |  |  GuiMLTextCtrl 1371 
|  |  |  GuiBitmapButtonCtrl 1372 
|  |  |  |  GuiMLTextCtrl 1373 
|  |  |  GuiBitmapCtrl 1374 
|  GuiControl 1253 OverlayDlg
|  |  GuiBitmapCtrl 1254 
|  |  GuiBitmapCtrl 1255 
|  |  GuiBitmapCtrl 1256 
|  |  GuiBitmapCtrl 1257 
|  |  GuiBitmapCtrl 1258 
|  |  GuiBitmapButtonCtrl 1259 OverlayQuitPage
|  |  GuiBitmapButtonCtrl 1260 OverlayPrevPage
|  |  GuiBitmapButtonCtrl 1261 OverlayNextPage
|  |  GuiMLTextCtrl 1262 OverlayTitle
|  |  GuiMLTextCtrl 1263 OverlayF10F11
|  |  GuiBitmapButtonCtrl 1264 op_home
|  |  GuiBitmapButtonCtrl 1265 op_website
|  |  GuiBitmapButtonCtrl 1266 op_purchase
|  |  GuiBitmapButtonCtrl 1267 op_options
|  |  GuiBitmapButtonCtrl 1268 op_credits
|  |  GuiBitmapButtonCtrl 1269 op_exit
|  |  GuiMLTextCtrl 1270 OverlayDesc
|  |  GuiBitmapButtonCtrl 1271 OverlayBuyNow
|  |  GuiFadeinBitmapCtrl 1272 TorqueLogoScreen
|  GuiControl 1109 ConsoleDlg
|  |  GuiWindowCtrl 1110 ConsoleDlgWindow
|  |  |  GuiScrollCtrl 1111 
|  |  |  |  GuiConsole 1112 
|  |  |  GuiConsoleEditCtrl 1113 ConsoleEntry
|  |  |  GuiPaneControl 1114 ConsoleErrorPane
|  |  |  |  GuiScrollCtrl 1115 ConsoleErrorScroller
|  |  |  |  |  GuiMLTextCtrl 1116 ConsoleErrorDisplay
here they are:
GuiCanvas 1
GuiChunkedBitmapCtrl 1
GuiTreeViewCtrl 1
GuiControl 4
GuiBitmapCtrl 9
GuiBitmapButtonCtrl 14
GuiMLTextCtrl 8
GuiFadeinBitmapCtrl 1
GuiWindowCtrl 1
GuiScrollCtrl 2
GuiConsole 1
GuiConsoleEditCtrl 1
GuiPaneControl 1