![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to memo CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / f2c|
Return to memo CVS log | Up to [Research Unix] / researchv10no / cmd / f2c |
1.1 root 1: hash constants
2:
3: ? prototypes for generated functions at start under -A
4:
5: ? logical*1 as separate type? (currently treated as LOGICAL, with error msg).
6:
7: complex function zork*16(x) ? [obvious change to gram.head, i.e.,
8: changing
9: | type SFUNCTION new_proc entryname arglist
10: { entrypt(CLPROC, $1, varleng, $4, $5); }
11: to
12: | type SFUNCTION new_proc entryname lengspec arglist
13: { entrypt(CLPROC, $1, $5, $4, $6); }
14: doesn't work: it thinks functionzork is one word]
15:
16: f8x control structures: for labels of DO, add to defines.h:
17: #define CLLABEL 8
18: #define PLABEL 5
19: for vclass and vprocclass, resp.
20:
21:
22: -------------
23:
24: /n/research/netlib/f2c/F2C invoked /n/crab/usr/ehg/bin/netlib.f2c .
25:
26: -------------
27:
28: 11 July 1989:
29: No args to f2c ==> filter (read stdin, write stdout).
30:
31: 17 July 1989:
32: -ext ==> complain of f77 extensions (automatic, static,
33: double complex, constants [binary, octal, hex]).
34:
35: 17 July 1989
36: -z ==> do not recognize double complex intrinsics.
37: ASSIGNED var ==> char *var_fmt rather than char *Var.
38:
39: 3 Aug. 1989
40: -a ==> use AUTOMATIC storage for variables that are neither
41: initialized nor involved in EQUIVALENCEs (debug option).
42:
43: 4 Aug. 1989
44: Bug in output.c: str_fmt should have "%%" rather than "%".
45: Format_data.c: k was too small by one in the malloc call
46: at the start of make_one_const().
47:
48: 8 Aug. 1989:
49: New flag -r8 promotes REAL to DOUBLE PRECISION, COMPLEX to
50: DOUBLE COMPLEX (a la Berkeley f77).
51:
52: 10 Aug. 1989:
53: Allow \n in
54: print *,'\nHello, world!'
55: Tweaks to -I2, making it more like f77's -I2; new flag -i2.
56: -[Ii]2 are two flavors of rendering INTEGER as short rather
57: than long int: -i2 goes further and assumes modified lib[FI]77.
58:
59: 11 Aug. 1989:
60: Quietly allow names up to 8 characters long (except under -ext).
61: Complain about, then ignore arguments to a main program.
62: Under -u, complain just once about each undeclared variable.
63:
64:
65: 31 Aug. 1989:
66: putx inserted in putaddr (putpcc.c) so A(min(i,j)) works,
67: with A an array; the change:
68: < return (expptr) p;
69: ---
70: > if (p->isarray && p->memoffset)
71: > p->memoffset = putx(p->memoffset);
72: > return (expptr) p;
73: This required augmenting the simplification logic in mkexpr()
74: to turn A(((...)<<2)/4) into A(...). Now multiplications by
75: integer constant powers of 2 are sometimes rendered as shifts,
76: (only in I/O stmts?) where before they were multiplications.
77: This may be a result of the putx in putaddr.
78:
79: 31 Aug. 1989:
80: 7 and 8 character C and I/O keywords added to c_keywords.
81: Rewrote in_vector to use binary search and simply know that
82: it's looking at c_keywords -- somewhat faster (e.g. 20%), but
83: these lookups should be done just once, rather than each time
84: the variable is printed out.
85:
86: 31 Aug. 1989:
87: A file named block_data was left in the current directory
88: when there was block data. Now it's /tmp/f2cnnnnn_blkd.
89:
90: 31 Aug. 1989:
91: LOGICAL*1 type stmts now generate just one error msg
92: (rather than one per variable) and don't inhibit output of
93: the .c file; LOGICAL*1 is simply treated as logical.
94:
95: 31 Aug. 1989:
96:
97: subroutine foo(x)
98: integer x(10)
99: write(*,x)
100: end
101:
102: now works (as it did for f77); under -ext, it elicits a message.
103: For completeness,
104:
105: subroutine foo(x)
106: integer x(10)
107: write(*,x(3))
108: end
109:
110: now works similarly.
111:
112: 5 Sept. 1989:
113: Fixed botch in argument passing of substrings of equivalenced variables.
114:
115: 15 Sept. 1989:
116: Warn about incorrect code generated when a character-valued
117: function is not declared external and is passed as a parameter
118: before it is invoked. (For f77, this is the old "Code may be wrong"
119: message, which now should appear when it may be appropriate, rather
120: than when it is not.) Example:
121:
122: subroutine foo(a,b)
123: character*10 a,b
124: call goo(a,b)
125: b = a(3)
126: end
127:
128: 18 Sept. 1989:
129: Complain about overlapping initializations.
130:
131: 20 Sept. 1989:
132: Warn about names declared EXTERNAL but never referenced;
133: include such names as externs in the generated C (even
134: though most C compilers will discard them).
135:
136: 21 Sept. 1989:
137: Fix bug encountered in the following (a combination of
138: an EXTERNAL subroutine parameter and IMPLICIT CHARACTER):
139:
140: subroutine b(asmbly,x)
141: implicit character*7(a-z)
142: external asmbly
143: call asmbly(x)
144: end
145:
146: 21 Sept. 1989:
147: New option -w8 to suppress complaint when COMMON or EQUIVALENCE
148: forces word alignment of a double.
149:
150: 22 Sept. 1989:
151: Under -A, ensure that floating constants contain either a decimal
152: point or an exponent field.
153: Fixed bugs with ichar: nonarithmetic operand encountered in...
154:
155: subroutine foo(ch,i)
156: common /zork/ x
157: character*1 x(256), ch, y
158: integer i
159: x(ichar(ch)) = char(i)
160: end
161:
162: and wrong ichar(ch) (missing *) in...
163:
164: subroutine bar(ch,i)
165: character*1 ch
166: integer i
167: i = ichar(ch)
168: end
169:
170: Fixed bug with intrinsic char function: wrong code for char(b) in...
171:
172: subroutine george(a,b)
173: character*11 a
174: integer b
175: a(b:b) = char(b)
176: end
177:
178: Restored f77's character*1 optimizations: neither s_cmp nor s_copy for...
179:
180: subroutine zork(a,b)
181: character*1 a,b*3,c,d(4)
182: if (c .lt. a) c = a
183: if (d(3) .gt. c) d(3) = c
184: if (b(1:1) .eq. d(2)) b(2:2) = d(2)
185: end
186:
187: Supplied semicolon missing before "} else {" in the following...
188:
189: subroutine bop(n,L)
190: logical L
191: integer i, nok
192:
193: if (L) then
194: do 10 i = 1, n
195: if (nok(i) .gt. 0) goto 20
196: 10 continue
197: 20 continue
198: else
199: call glop(idnt(3))
200: endif
201: end
202:
203: Don't declare variables used only in defining statement functions.
204: Always assume floating-point valued routines in libF77 return
205: doubles, even under -R.
206:
207: 23 Sept. 1989:
208: Arguments to subroutines having multiple entry points were
209: sometimes lost. Example: na was omitted from dlu_0_ in
210:
211: subroutine dlu (na,a,nb,b,error)
212: implicit integer(i-n),double precision(a-h,o-z)
213: dimension a(na,na,1),b(na,1)
214: integer error
215: entry dlu1f (na,a,nb,b,error)
216: call goo(na,a,nb,b,error)
217: end
218:
219: Offsets were sometimes lost or added twice on equivalenced
220: variables in certain contexts; structure names were omitted
221: from character variables in COMMON that were used as formats
222: or internal files. An example that had several such errors:
223:
224: subroutine boo12
225: common /zork/ a, b, struct
226: character*80 a, b, struct,d
227: character*40 e(2), f
228: equivalence(b,d), (e(2),f)
229: write(f,10) f
230: write(b,10) a
231: write(struct,10) a
232: 10 format(a80)
233: write(d,10) d
234: if (f(4:4) .lt. b(5:5)) f(6:6) = d(7:7)
235: struct = b
236: write(b(10:30),10) b(12:32)
237: write(d(15:25),10) d(20:30)
238: write(e(2),f)
239: write(f(30:40), f(50:60))
240: end
241:
242: Repaired invalid P1_HEAD class encountered by
243:
244: 10 format(' hello, world!')
245: write(6,10)
246: end
247:
248: 28 Sept. 1989:
249: Warn about variables that appear only in data stmts; don't emit them.
250:
251: 2 Oct. 1989:
252: Fix bugs in character DATA for noncharacter variables
253: involved in EQUIVALENCE.
254: Treat noncharacter variables initialized (at least partly) with
255: character data as though they were equivalenced -- put out a struct
256: and #define the variables. This eliminates the hideous and nonportable
257: numeric values that were used to initialize such variables.
258: IMPLICIT NONE treated as IMPLICIT UNDEFINED(A-Z) .
259: New option -!I disables includes (for netlib).
260: Bail out when given an invalid flag.
261:
262: 5 October 1989:
263: Change retval to ret_val in multiple-entry subprograms.
264: Change ret_val_nnn to ret_val in functions.
265: Omit unused dim_ values for final array extents.
266: New option -W nnn specifies nnn characters/word (for Hollerith data).
267: New naming scheme for generated variables; such "system variables"
268: are now sorted by type, and more of them are recycled (and fewer declared).
269:
270: 6 October 1989:
271: Bug fix: x(i:min(i+10,j)) elicited "Can't handle opcode 31 yet".
272: Simplify expressions (i+const1)-(i+const2) to const1-const2,
273: where i is a scalar integer variable (and const1 or const2 may be
274: missing ==> taken to be 0). Thus
275: x(i:i) = y[j+3:j+3]
276: (both expressions having length 1) is now done in-line,
277: without a call on s_copy.
278:
279: 7 October 1989:
280: Initialize uninitialized portions of character string arrays to 0
281: rather than to blanks.
282:
283: 8 October 1989:
284: New options -g for # nn "file", -c for /*< Fortran source >*/.
285:
286: 9 October 1989:
287: ! recognized as in-line comment delimiter (a la Fortran 88).
288:
289: apparent bug in Microsoft C 5.10: gram.c: must add
290: static void zap(long n) {}
291: and insert
292: zap(varleng);
293: after the C generated for the first lengspec rule in gram.dcl ({ $$ = varleng; }).
294:
295: MSDOS: cl -nologo -AL -Gt28 -Os -c
296: --> cl -nologo -AL -Gt28 -Odt -c
297:
298: cl -c -Alfw -Gt28 gram.c
299: gram.c(676): warning C4058: address of automatic (local) variable taken, DS != SS
300: gram.c(756): " "....
301:
302: Optimization bug with proc.c: newentry omitted segment from return value.
303:
304: Error on line 235 of gqtst.f: wrong number of subscripts on [garbage]
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.