summaryrefslogtreecommitdiffstats
path: root/pablo/PabloSedscr
diff options
context:
space:
mode:
authorDan Wells <dwells@cs.uiuc.edu>2001-08-20 17:50:56 (GMT)
committerDan Wells <dwells@cs.uiuc.edu>2001-08-20 17:50:56 (GMT)
commit701966ef0f8d57fd44428a0f318590ce87a6d94c (patch)
tree56780a4d17fb056b7800f2783abc8c7f1b6fd0c5 /pablo/PabloSedscr
parentc1131a02e53fd33e0bdf77ffa90c02f6ad93ff8e (diff)
downloadhdf5-701966ef0f8d57fd44428a0f318590ce87a6d94c.zip
hdf5-701966ef0f8d57fd44428a0f318590ce87a6d94c.tar.gz
hdf5-701966ef0f8d57fd44428a0f318590ce87a6d94c.tar.bz2
[svn-r4395] Purpose:
Bug fix Description: When the Fortran interface was used on the Linux systems, there were segmentation errors. This was caused because two arrays were being accessed outside of their bounds and because the trace type parameters were specified inccorectly in the ProcTrace.inc file. There were also problems on some systems caused because the long names of HDF entries resulted in trace IDs which were too long. Solution: The lines where arrays were being accessed outside of their bounds were changed. The code in the Makefile.in and the PabloSedscr sed script file were changed so that the tracetype parameters were generated correctly. The PabloSedscr file was also modified to eliminate trace IDs for individual entries. Platforms tested: LINUX, IRIX64, IBM SP2
Diffstat (limited to 'pablo/PabloSedscr')
-rw-r--r--pablo/PabloSedscr24
1 files changed, 20 insertions, 4 deletions
diff --git a/pablo/PabloSedscr b/pablo/PabloSedscr
index 73edda0..6df38c2 100644
--- a/pablo/PabloSedscr
+++ b/pablo/PabloSedscr
@@ -1,15 +1,31 @@
-s/_//g
s/,//g
-/^[0-9]/,/ID/{
+/^[0-9]/,/[A-z]/{
/^[0-9]/h
/^[0-9]/d
-s/$/ = /
+s/$/ = ID_Begin + /
G
s/\n//
-s/ID/ parameter ( &/
+s/[A-z]/ parameter ( &/
s/$/ )/
h
s/parameter (/integer/
s/=.*//
G
}
+/ALLHDF/,$!d
+s/_//g
+/integer.*ALLHDF/{
+i\
+ integer RuntimeTrace\
+ integer SummaryTrace\
+ integer MPIRuntimeTrace\
+ integer MPISummaryTrace\
+ integer NoTrace\
+ integer IDBegin \
+ parameter (NoTrace = 0)\
+ parameter (RuntimeTrace = 1)\
+ parameter (SummaryTrace = 2)\
+ parameter (MPIRuntimeTrace = 3)\
+ parameter (MPISummaryTrace = 4)\
+ parameter ( IDBegin = 4 )
+}