52 lines
1.6 KiB
Text
52 lines
1.6 KiB
Text
$NetBSD: patch-ac,v 1.2 2010/12/25 09:59:25 obache Exp $
|
|
|
|
The f2c translation maintains Fortran's pass-everything-by-reference,
|
|
and as a result we get lots of constant values defined. Upstream
|
|
took an earlier patch to provide a ftnlen typed version of the c__3
|
|
constant, but that patch was wrong. Correctly initialize the new
|
|
constant.
|
|
|
|
--- dungeon-gdt/parser.c.orig 2009-11-24 02:27:42.000000000 +0000
|
|
+++ dungeon-gdt/parser.c
|
|
@@ -663,7 +663,7 @@ integer sparse_(char *lbuf, integer *lln
|
|
/* System generated locals */
|
|
address a__1[3];
|
|
integer ret_val;
|
|
- ftnlen i__1[3], cc__3;
|
|
+ ftnlen i__1[3], cc__3 = c__3;
|
|
char ch__1[8];
|
|
|
|
/* Local variables */
|
|
@@ -1318,7 +1318,6 @@ L7000:
|
|
i__1[1] = 8, a__1[1] = ch__1;
|
|
i__1[2] = 1, a__1[2] = " ";
|
|
s_cat(lcwrd1, a__1, i__1, &cc__3, 10L);
|
|
- c__3 = cc__3;
|
|
}
|
|
if (obj < 0) {
|
|
goto L7200;
|
|
@@ -1914,7 +1913,7 @@ logical synmch_(integer *x)
|
|
{
|
|
/* System generated locals */
|
|
address a__1[3];
|
|
- ftnlen i__1[3], cc__3;
|
|
+ ftnlen i__1[3], cc__3 = c__3;
|
|
integer i__2, i__3, i__4;
|
|
logical ret_val;
|
|
char ch__1[8], ch__2[8];
|
|
@@ -2061,7 +2060,6 @@ L3100:
|
|
i__1[1] = 8, a__1[1] = ch__1;
|
|
i__1[2] = 1, a__1[2] = " ";
|
|
s_cat(lcprp1, a__1, i__1, &cc__3, 10L);
|
|
- c__3 = cc__3;
|
|
/* Writing concatenation */
|
|
i__1[0] = 1, a__1[0] = " ";
|
|
i__2 = prssta_1.iobj & 511;
|
|
@@ -2070,7 +2068,6 @@ L3100:
|
|
i__1[1] = 8, a__1[1] = ch__1;
|
|
i__1[2] = 1, a__1[2] = " ";
|
|
s_cat(lcprp2, a__1, i__1, &cc__3, 10L);
|
|
- c__3 = cc__3;
|
|
|
|
/* Try to fill direct object slot if that was the problem. */
|
|
|