--- src/defs.h.orig Tue Jan 17 16:38:27 1995 +++ src/defs.h Tue Jan 17 16:42:51 1995 @@ -1048,7 +1048,8 @@ int yylex(Void); int yyparse(Void); +#define USE_DTOA #ifdef USE_DTOA -#define atof(x) strtod(x,0) +/* #define atof(x) strtod(x,0) */ void g_fmt Argdcl((char*, double)); #endif --- src/makefile.orig Tue Jan 17 01:07:49 1995 +++ src/makefile Tue Jan 17 16:38:13 1995 @@ -1,7 +1,7 @@ # Makefile for f2c, a Fortran 77 to C converter -g = -g -CFLAGS = $g +g = -O2 +CFLAGS = $g SHELL = /bin/sh OBJECTSd = main.o init.o gram.o lex.o proc.o equiv.o data.o format.o \ @@ -10,7 +10,8 @@ parse_args.o niceprintf.o cds.o sysdep.o version.o OBJECTS = $(OBJECTSd) malloc.o -all: xsum.out f2c +#all: xsum.out f2c +all: f2c f2c: $(OBJECTS) $(CC) $(LDFLAGS) $(OBJECTS) -o f2c @@ -74,17 +75,17 @@ bundle: bundle $b makefile xsum0.out >/tmp/f2c.bundle -xsum: xsum.c - $(CC) $(CFLAGS) -o xsum xsum.c +#xsum: xsum.c +# $(CC) $(CFLAGS) -o xsum xsum.c #Check validity of transmitted source... -xsum.out: xsum $b - ./xsum $b >xsum1.out - cmp xsum0.out xsum1.out && mv xsum1.out xsum.out +#xsum.out: xsum $b +# ./xsum $b >xsum1.out +# cmp xsum0.out xsum1.out && mv xsum1.out xsum.out #On non-Unix systems that end lines with carriage-return/newline pairs, #use "make xsumr.out" rather than "make xsum.out". The -r flag ignores #carriage-return characters. -xsumr.out: xsum $b - ./xsum -r $b >xsum1.out - cmp xsum0.out xsum1.out && mv xsum1.out xsumr.out +#xsumr.out: xsum $b +# ./xsum -r $b >xsum1.out +# cmp xsum0.out xsum1.out && mv xsum1.out xsumr.out --- src/output.c.orig Tue Jan 17 16:47:03 1995 +++ src/output.c Tue Jan 17 16:47:30 1995 @@ -1330,11 +1330,11 @@ #endif { static char buf[64]; -#ifdef USE_DTOA +/* #ifdef USE_DTOA g_fmt(buf, x); -#else +#else */ sprintf(buf, db_fmt_string, x); -#endif +/* #endif */ return buf; }