parallel/pvm3/patches/patch-bh

   1 $NetBSD$
   2
   3 --- /dev/null   Mon Nov  1 14:10:37 1999
   4 +++ ./conf/NETBSDVAX.m4 Mon Nov  1 16:55:41 1999
   5 @@ -0,0 +1,19 @@
   6 +divert(-1)
   7 +undefine(`len')
   8 +#
   9 +# append an underscore to FORTRAN function names
  10 +#
  11 +define(`FUNCTION',`$1_')
  12 +#
  13 +# FORTRAN character strings are passed as follows:
  14 +# a pointer to the base of the string is passed in the normal
  15 +# argument list, and the length is passed by value as an extra
  16 +# argument, after all of the other arguments.
  17 +#
  18 +define(`ARGS',`($1`'undivert(1))')
  19 +define(`SAVE',`divert(1)$1`'divert(0)')
  20 +define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')')
  21 +define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len')
  22 +define(`STRING_LEN',`$1_len')
  23 +define(`STRING_PTR',`$1_ptr')
  24 +divert(0)