summaryrefslogtreecommitdiffstats
path: root/bin/trace
diff options
context:
space:
mode:
authorDana Robinson <derobins@hdfgroup.org>2015-02-20 13:04:19 (GMT)
committerDana Robinson <derobins@hdfgroup.org>2015-02-20 13:04:19 (GMT)
commit5867b6db9ee1dc9ed5db953351dbefe405791f2b (patch)
tree4c984c6c099f0312580abe01d4ea70ae843e7358 /bin/trace
parent3eeed2f1d558bd74c2360b31366e2650026d165f (diff)
downloadhdf5-5867b6db9ee1dc9ed5db953351dbefe405791f2b.zip
hdf5-5867b6db9ee1dc9ed5db953351dbefe405791f2b.tar.gz
hdf5-5867b6db9ee1dc9ed5db953351dbefe405791f2b.tar.bz2
[svn-r26246] Corrects a regular expression in the bin/trace Perl script that did not
match API calls which return a pointer. Fixes: HDFFV-9141 Tested on: h5committest
Diffstat (limited to 'bin/trace')
-rwxr-xr-xbin/trace7
1 files changed, 4 insertions, 3 deletions
diff --git a/bin/trace b/bin/trace
index abd47cd..15e6e05 100755
--- a/bin/trace
+++ b/bin/trace
@@ -118,7 +118,8 @@ $Source = "";
"H5G_iterate_t" => "x",
"H5G_info_t" => "x",
"H5I_free_t" => "x",
- "H5L_class_t" => "x",
+ "H5I_search_func_t" => "x",
+ "H5L_class_t" => "x",
"H5L_elink_traverse_t" => "x",
"H5L_iterate_t" => "x",
"H5MM_allocate_t" => "x",
@@ -317,14 +318,14 @@ for $file (@ARGV) {
# Make modifications
my $original = $Source;
- my $napi = $Source =~ s/\n([A-Za-z]\w*(\s+[a-z]\w*)*)\s*\n #type
+ my $napi = $Source =~ s/\n([A-Za-z]\w*(\s+[A-Za-z]\w*)*\s*\**)\n #type
(H5[A-Z]{0,2}[^_A-Z0-9]\w*) #name
\s*\((.*?)\)\s* #args
(\{.*?\n\}[^\n]*) #body
/rewrite_func($file,$1,$3,$4,$5)/segx;
$total_api += $napi;
- # If the source changed then print out the new version
+# If the source changed then print out the new version
if ($original ne $Source) {
printf "%s: instrumented %d API function%s\n",
$file, $napi, 1==$napi?"":"s";