ICU-4938 move ICUMemCheck.pl into public cvs.

X-SVN-Rev: 18829

icu4c/source/tools/memcheck/ICUMemCheck.pl

@@ -0,0 +1,66 @@
+#  ***********************************************************************
+#  * COPYRIGHT:
+#  * Copyright (c) 2004-2005, 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.2, the expected output is
+#    common/cmemory.o        U malloc
+#    common/cmemory.o        U free
+#    common/uniset.o         U operator delete(void*)
+#    common/unifilt.o        U operator delete(void*)
+#    i18n/strrepl.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 LeCharMapper::~LECharMapper()
+#                                     LEGlyphFilter::~LEGlyphFilter()
+#                                     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";
+   }
+
+}