diff options
Diffstat (limited to 'parallel/pvm3/patches/patch-bf')
-rw-r--r-- | parallel/pvm3/patches/patch-bf | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/parallel/pvm3/patches/patch-bf b/parallel/pvm3/patches/patch-bf new file mode 100644 index 00000000000..6a21403ed2e --- /dev/null +++ b/parallel/pvm3/patches/patch-bf @@ -0,0 +1,24 @@ +$NetBSD: patch-bf,v 1.3 2004/03/12 01:14:00 dmcmahill Exp $ + +--- /dev/null Tue Jul 30 16:47:47 2002 ++++ conf/NETBSDSH3EB.m4 Tue Jul 30 16:49:44 2002 +@@ -0,0 +1,19 @@ ++divert(-1) ++undefine(`len') ++# ++# append an underscore to FORTRAN function names ++# ++define(`FUNCTION',`$1_') ++# ++# FORTRAN character strings are passed as follows: ++# a pointer to the base of the string is passed in the normal ++# argument list, and the length is passed by value as an extra ++# argument, after all of the other arguments. ++# ++define(`ARGS',`($1`'undivert(1))') ++define(`SAVE',`divert(1)$1`'divert(0)') ++define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') ++define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') ++define(`STRING_LEN',`$1_len') ++define(`STRING_PTR',`$1_ptr') ++divert(0) |