diff options
Diffstat (limited to 'math/scilab/patches/patch-br')
| -rw-r--r-- | math/scilab/patches/patch-br | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/math/scilab/patches/patch-br b/math/scilab/patches/patch-br new file mode 100644 index 00000000000..b243fa5644d --- /dev/null +++ b/math/scilab/patches/patch-br @@ -0,0 +1,25 @@ +$NetBSD: patch-br,v 1.1 1998/08/25 12:53:12 agc Exp $ + +--- /dev/null Tue Aug 18 10:11:38 1998 ++++ pvm3/conf/NETBSDPICA.m4 Tue Aug 18 14:38:37 1998 +@@ -0,0 +1,20 @@ ++divert(-1) ++undefine(`len') ++# ++# FORTRAN function names are in upper case ++# ++define(`FUNCTION',`translit($1,abcdefghijklmnopqrstuvwxyz,ABCDEFGHIJKLMNOPQRSTUVWXYZ)') ++# ++# FORTRAN character strings are passed as follows: ++# XXX is this right? ++# 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) |