1# *********************************************************************** 2# * COPYRIGHT: 3# * Copyright (c) 2004-2006, International Business Machines Corporation 4# * and others. All Rights Reserved. 5# *********************************************************************** 6# 7# This perl script checks for correct memory function usage in ICU library code. 8# It works with Linux builds of ICU using gcc. 9# 10# To run it, 11# 1. Build ICU 12# 2. cd icu/source 13# 3. perl ICUMemCheck.pl 14# 15# All object files containing direct references to C or C++ runtime library memory 16# functions will be listed in the output. 17# 18# For ICU 3.6, the expected output is 19# common/uniset.o U operator delete(void*) 20# common/unifilt.o U operator delete(void*) 21# common/cmemory.o U malloc 22# common/cmemory.o U free 23# i18n/strrepl.o U operator delete(void*) 24# layout/LEFontInstance.o U operator delete(void*) 25# layout/LEGlyphStorage.o U operator delete(void*) 26# layout/LayoutEngine.o U operator delete(void*) 27# 28# cmemory.c Expected failures from uprv_malloc, uprv_free implementation. 29# uniset.cpp Fails because of SymbolTable::~SymbolTable() 30# unifilt.cpp Fails because of UnicodeMatcher::~UnicodeMatcher() 31# strrepl.cpp Fails because of UnicodeReplacer::~UnicodeReplacer() 32# LayoutEngine.cpp Fails because of LEGlyphFilter::~LEGlyphFilter() 33# LEGlyphStorage.cpp Fails because of LEInsertionCallback::~LEInsertionCallback() 34# LEFontInstance.cpp Fails because of LECharMapper::~LECharMapper 35# 36# To verify that no additional problems exist in the .cpp files, #ifdef out the 37# offending destructors, rebuild icu, and re-run the tool. The problems should 38# be gone. 39# 40# The problem destructors all are for mix-in style interface classes. 41# These classes can not derive from UObject or UMemory because of multiple-inheritance 42# problems, so they don't get the ICU memory functions. The delete code 43# in the destructors will never be called because stand-alone instances of 44# the classes cannot exist. 45# 46$fileNames = `find common i18n layout io -name "*.o" -print`; 47foreach $f (split('\n', $fileNames)) { 48 $symbols = `nm -u -C $f`; 49 if ($symbols =~ /U +operator delete\(void\*\)/) { 50 print "$f $&\n"; 51 } 52 if ($symbols =~ /U +operator delete\[\]\(void\*\)/) { 53 print "$f $&\n"; 54 } 55 if ($symbols =~ /U +operator new\(unsigned int\)/) { 56 print "$f $&\n"; 57 } 58 if ($symbols =~ /U +operator new\[\]\(unsigned int\)/) { 59 print "$f $&\n"; 60 } 61 if ($symbols =~ /U +malloc.*/) { 62 print "$f $&\n"; 63 } 64 if ($symbols =~ /U +free.*/) { 65 print "$f $&\n"; 66 } 67 68} 69