summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2002-05-28 18:02:38 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2002-05-28 18:02:38 (GMT)
commit893cf5899c2b724aa438b66a275967b1f5ad0342 (patch)
tree5f221d969954fc26404dd9d7875a833452b002d0
parent5daeaa62da7283fe5a8cd7bc3fa8bdbbb954edfb (diff)
downloadhdf5-893cf5899c2b724aa438b66a275967b1f5ad0342.zip
hdf5-893cf5899c2b724aa438b66a275967b1f5ad0342.tar.gz
hdf5-893cf5899c2b724aa438b66a275967b1f5ad0342.tar.bz2
[svn-r5466] Purpose:
Code cleanup. Description: Updated perl scripts to be aware of new "FUNC_ENTER_NOINIT" macro. Platforms tested: IRIX64 6.5 (modi4)
-rwxr-xr-xbin/checkapi2
-rwxr-xr-xbin/trace2
2 files changed, 2 insertions, 2 deletions
diff --git a/bin/checkapi b/bin/checkapi
index 7447b26..5a6251a 100755
--- a/bin/checkapi
+++ b/bin/checkapi
@@ -22,7 +22,7 @@ while (<>) {
# Disregard the following hits
next if /^H5/;
next if /^\#/;
- next if /FUNC_ENTER/;
+ next if /FUNC_ENTER(_NOINIT)*/;
next unless /(H5[A-Z]{1,2}[a-z]\w*)/;
print "$ARGV:$.: $1\n";
diff --git a/bin/trace b/bin/trace
index af6adb2..c2b5534 100755
--- a/bin/trace
+++ b/bin/trace
@@ -215,7 +215,7 @@ sub rewrite_func ($$$$$) {
}
} elsif ($body =~ s/((\n[ \t]*)H5TRACE\d+\s*\(.*?\);)\n/"$2$trace"/es) {
# Replaced an H5TRACE macro
- } elsif ($body=~s/((\n[ \t]*)FUNC_ENTER\s*\(.*?\);)\n/"$1$2$trace"/es) {
+ } elsif ($body=~s/((\n[ \t]*)FUNC_ENTER(_NOINIT)*\s*\(.*?\);)\n/"$1$2$trace"/es) {
# Added an H5TRACE macro after a FUNC_ENTER macro.
} else {
errmesg $file, $name, "unable to insert tracing information";