diff options
Diffstat (limited to 'parallel/pvm3/patches/patch-bj')
| -rw-r--r-- | parallel/pvm3/patches/patch-bj | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/parallel/pvm3/patches/patch-bj b/parallel/pvm3/patches/patch-bj new file mode 100644 index 00000000000..2cf7efc092d --- /dev/null +++ b/parallel/pvm3/patches/patch-bj @@ -0,0 +1,24 @@ +$NetBSD: patch-bj,v 1.1 2004/03/12 01:14:00 dmcmahill Exp $ + +--- /dev/null Tue Jul 30 16:47:47 2002 ++++ conf/NETBSDSH5EL.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) |