blob: acf62a547779df25dd617a478e1d3508fbd51296 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
$NetBSD: patch-ar,v 1.1 1999/11/23 16:05:32 dmcmahill Exp $
--- ./conf/NETBSDI386.m4.orig Mon Sep 23 16:17:58 1996
+++ ./conf/NETBSDI386.m4 Mon Nov 1 16:55:09 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
|
