# *********************************************************************** # * COPYRIGHT: # * Copyright (c) 2004-2006, International Business Machines Corporation # * and others. All Rights Reserved. # *********************************************************************** # # This perl script checks for correct memory function usage in ICU library code. # It works with Linux builds of ICU using gcc. # # To run it, # 1. Build ICU # 2. cd icu/source # 3. perl ICUMemCheck.pl # # All object files containing direct references to C or C++ runtime library memory # functions will be listed in the output. # # For ICU 3.6, the expected output is # common/uniset.o U operator delete(void*) # common/unifilt.o U operator delete(void*) # common/cmemory.o U malloc # common/cmemory.o U free # i18n/strrepl.o U operator delete(void*) # layout/LEFontInstance.o U operator delete(void*) # layout/LEGlyphStorage.o U operator delete(void*) # layout/LayoutEngine.o U operator delete(void*) # # cmemory.c Expected failures from uprv_malloc, uprv_free implementation. # uniset.cpp Fails because of SymbolTable::~SymbolTable() # unifilt.cpp Fails because of UnicodeMatcher::~UnicodeMatcher() # strrepl.cpp Fails because of UnicodeReplacer::~UnicodeReplacer() # LayoutEngine.cpp Fails because of LEGlyphFilter::~LEGlyphFilter() # LEGlyphStorage.cpp Fails because of LEInsertionCallback::~LEInsertionCallback() # LEFontInstance.cpp Fails because of LECharMapper::~LECharMapper # # To verify that no additional problems exist in the .cpp files, #ifdef out the # offending destructors, rebuild icu, and re-run the tool. The problems should # be gone. # # The problem destructors all are for mix-in style interface classes. # These classes can not derive from UObject or UMemory because of multiple-inheritance # problems, so they don't get the ICU memory functions. The delete code # in the destructors will never be called because stand-alone instances of # the classes cannot exist. # $fileNames = `find common i18n layout io -name "*.o" -print`; foreach $f (split('\n', $fileNames)) { $symbols = `nm -u -C $f`; if ($symbols =~ /U +operator delete\(void\*\)/) { print "$f $&\n"; } if ($symbols =~ /U +operator delete\[\]\(void\*\)/) { print "$f $&\n"; } if ($symbols =~ /U +operator new\(unsigned int\)/) { print "$f $&\n"; } if ($symbols =~ /U +operator new\[\]\(unsigned int\)/) { print "$f $&\n"; } if ($symbols =~ /U +malloc.*/) { print "$f $&\n"; } if ($symbols =~ /U +free.*/) { print "$f $&\n"; } }