Date: Wed, 13 Jan 1999 14:42:43 +0900 From: Hidetoshi Shimokawa <simokawa@sat.t.u-tokyo.ac.jp> To: dfr@nlsystems.com Cc: alpha@FreeBSD.ORG Subject: Re: cvs commit: src/usr.bin/f2c proc.c (fwd) Message-ID: <19990113144243O.simokawa@sat.t.u-tokyo.ac.jp> In-Reply-To: Your message of "Sun, 10 Jan 1999 19:46:51 %2B0000 (GMT)" <Pine.BSF.4.01.9901101946440.543-100000@herring.nlsystems.com> References: <Pine.BSF.4.01.9901101946440.543-100000@herring.nlsystems.com>
next in thread | previous in thread | raw e-mail | index | archive | help
dfr> Date: Sun, 10 Jan 1999 11:50:03 -0800 (PST) dfr> From: Steve Kargl <sgk@troutmask.apl.washington.edu> dfr> To: Doug Rabson <dfr@FreeBSD.ORG> dfr> Cc: cvs-committers@FreeBSD.ORG, dfr> cvs-all@FreeBSD.ORG dfr> Subject: Re: cvs commit: src/usr.bin/f2c proc.c <snip> dfr> There may be worse problems with f2c on alpha machines. My Alphastation dfr> runs Digital Unix, so I haven't had a channce to FreeBSD/axp. dfr> dfr> >From http://www.netlib.org/f2c/readme: <snip> dfr> dfr> On machines, such as those using a DEC Alpha processor, on dfr> which sizeof(short) == 2, sizeof(int) == sizeof(float) == 4, dfr> and sizeof(long) == sizeof(double) == 8, it suffices to dfr> modify f2c.h by removing the first occurrence of "long " dfr> on each line containing "long ", e.g., by issuing the dfr> commands dfr> mv f2c.h f2c.h0 dfr> sed 's/long //' f2c.h0 >f2c.h If the fix above is necessary, because "long" and "int" have same size on i386, I think we can apply above modification without breaking f2c on i386. /\ Hidetoshi Shimokawa \/ simokawa@sat.t.u-tokyo.ac.jp PGP public key: finger -l simokawa@sat.t.u-tokyo.ac.jp Index: f2c.h =================================================================== RCS file: /pub/FreeBSD-CVS/src/usr.bin/f2c/f2c.h,v retrieving revision 1.3 diff -u -r1.3 f2c.h --- f2c.h 1997/04/13 01:12:42 1.3 +++ f2c.h 1999/01/13 05:40:05 @@ -7,15 +7,15 @@ #ifndef F2C_INCLUDE #define F2C_INCLUDE -typedef long int integer; -typedef unsigned long uinteger; +typedef int integer; +typedef unsigned int uinteger; typedef char *address; typedef short int shortint; typedef float real; typedef double doublereal; typedef struct { real r, i; } complex; typedef struct { doublereal r, i; } doublecomplex; -typedef long int logical; +typedef int logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -42,9 +42,9 @@ typedef short ftnlen; typedef short ftnint; #else -typedef long int flag; -typedef long int ftnlen; -typedef long int ftnint; +typedef int flag; +typedef int ftnlen; +typedef int ftnint; #endif /*external read, write*/ To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-alpha" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?19990113144243O.simokawa>