diff options
Diffstat (limited to 'parallel/pvm3/patches/patch-bh')
| -rw-r--r-- | parallel/pvm3/patches/patch-bh | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/parallel/pvm3/patches/patch-bh b/parallel/pvm3/patches/patch-bh new file mode 100644 index 00000000000..edca0f9c394 --- /dev/null +++ b/parallel/pvm3/patches/patch-bh @@ -0,0 +1,24 @@ +$NetBSD: patch-bh,v 1.1 1999/11/23 16:05:37 dmcmahill Exp $ + +--- /dev/null Mon Nov 1 14:10:37 1999 ++++ ./conf/NETBSDVAX.m4 Mon Nov 1 16:55:41 1999 +@@ -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) |