diff options
author | Dana Robinson <derobins@hdfgroup.org> | 2011-08-23 19:17:35 (GMT) |
---|---|---|
committer | Dana Robinson <derobins@hdfgroup.org> | 2011-08-23 19:17:35 (GMT) |
commit | dc09f2117c885b28ef2bcedcaebe25298ac1a787 (patch) | |
tree | 218cd75d886d909e9c8581158edd777b172c59c2 | |
parent | d731512875c9c04651cef1ee488c95f5e0a2b0f7 (diff) | |
download | hdf5-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).
-rwxr-xr-x | bin/trace | 3 | ||||
-rwxr-xr-x | configure | 2 | ||||
-rw-r--r-- | src/H5E.c | 3 |
3 files changed, 6 insertions, 2 deletions
@@ -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) { @@ -1,5 +1,5 @@ #! /bin/sh -# From configure.in Id: configure.in 21248 2011-08-18 14:32:47Z brtnfld . +# From configure.in Id: configure.in 21275 2011-08-21 03:17:37Z brtnfld . # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.68 for HDF5 1.9.89. # @@ -1338,7 +1338,8 @@ H5Epush2(hid_t err_stack, const char *file, const char *func, unsigned line, /* Don't clear the error stack! :-) */ FUNC_ENTER_API_NOCLEAR(H5Epush2, FAIL) - H5TRACE7("e","issIuiis",err_stack,file,func,line,maj_id,min_id,fmt); + H5TRACE8("e", "i*s*sIuiii*s", err_stack, file, func, line, cls_id, maj_id, + min_id, fmt); if(err_stack == H5E_DEFAULT) estack = NULL; |