1999-11-23 17:05:28 +01:00
|
|
|
$NetBSD: patch-al,v 1.2 1999/11/23 16:05:31 dmcmahill Exp $
|
|
|
|
|
|
|
|
|
|
--- ./conf/NETBSDSPARC.m4.orig Mon Sep 23 16:18:02 1996
|
|
|
|
|
+++ ./conf/NETBSDSPARC.m4 Mon Nov 1 08:58:05 1999
|
|
|
|
|
@@ -2,10 +2,9 @@
|
|
|
|
|
undefine(`len')
|
|
|
|
|
#
|
|
|
|
|
-# FORTRAN function names are in upper case
|
|
|
|
|
+# append an underscore to FORTRAN function names
|
|
|
|
|
#
|
|
|
|
|
-define(`FUNCTION',`translit($1,abcdefghijklmnopqrstuvwxyz,ABCDEFGHIJKLMNOPQRSTUVWXYZ)')
|
|
|
|
|
+define(`FUNCTION',`$1_')
|
|
|
|
|
#
|
|
|
|
|
# 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
|
