summaryrefslogtreecommitdiffstats
path: root/bin/trace
diff options
context:
space:
mode:
authorDana Robinson <derobins@hdfgroup.org>2011-08-23 19:17:35 (GMT)
committerDana Robinson <derobins@hdfgroup.org>2011-08-23 19:17:35 (GMT)
commitdc09f2117c885b28ef2bcedcaebe25298ac1a787 (patch)
tree218cd75d886d909e9c8581158edd777b172c59c2 /bin/trace
parentd731512875c9c04651cef1ee488c95f5e0a2b0f7 (diff)
downloadhdf5-dc09f2117c885b28ef2bcedcaebe25298ac1a787.zip
hdf5-dc09f2117c885b28ef2bcedcaebe25298ac1a787.tar.gz
hdf5-dc09f2117c885b28ef2bcedcaebe25298ac1a787.tar.bz2
[svn-r21302] Fixed the bin/trace Perl script so that it ignores a final ... parameter, which it can't process. This allows the correct H5TRACE8 trace function to be added to H5Epush2. Tested on jam (simple change).
Diffstat (limited to 'bin/trace')
-rwxr-xr-xbin/trace3
1 files changed, 3 insertions, 0 deletions
diff --git a/bin/trace b/bin/trace
index 54e881f..7d69824 100755
--- a/bin/trace
+++ b/bin/trace
@@ -219,6 +219,9 @@ sub rewrite_func ($$$$$) {
my %names;
for $arg (@args) {
+ if($arg=~/\w*\.{3}\w*/){
+ next;
+ }
unless ($arg=~/^(([a-z_A-Z]\w*\s+)+\**)
([a-z_A-Z]\w*)(\[.*?\])?
(\s*\/\*\s*(in|out|in_out)\s*\*\/)?\s*$/x) {