parallel/pvm3/patches/patch-as

   1 $NetBSD$
   2
   3 --- /dev/null   Tue Jul 30 16:47:47 2002
   4 +++ conf/NETBSDARM.m4   Tue Jul 30 16:49:23 2002
   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)