diff options
Diffstat (limited to 'parallel/pvm3/patches/patch-as')
| -rw-r--r-- | parallel/pvm3/patches/patch-as | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/parallel/pvm3/patches/patch-as b/parallel/pvm3/patches/patch-as new file mode 100644 index 00000000000..8261c410e5f --- /dev/null +++ b/parallel/pvm3/patches/patch-as @@ -0,0 +1,24 @@ +$NetBSD: patch-as,v 1.3 2002/08/05 01:26:41 dmcmahill Exp $ + +--- /dev/null Tue Jul 30 16:47:47 2002 ++++ conf/NETBSDARM.m4 Tue Jul 30 16:49:23 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) |