diff options
author | simokawa <simokawa@FreeBSD.org> | 1999-01-19 06:48:44 +0000 |
---|---|---|
committer | simokawa <simokawa@FreeBSD.org> | 1999-01-19 06:48:44 +0000 |
commit | d5ab25dd2ac750d4c2a1a5d688fe978ac6a68855 (patch) | |
tree | 218e7534341d4e54bfea316adcae227647986ee2 /usr.bin/f2c | |
parent | a37dc94d286ba6de1d66ddb66950bf77c06645d6 (diff) | |
download | FreeBSD-src-d5ab25dd2ac750d4c2a1a5d688fe978ac6a68855.zip FreeBSD-src-d5ab25dd2ac750d4c2a1a5d688fe978ac6a68855.tar.gz |
Replace 'long int' with 'int' for Alpha.
This change should have no effect on i386.
Pointed out by: Steve Kargl <sgk@troutmask.apl.washington.edu>
Quote from http://www.netlib.org/f2c/readme:
NOTE: f2c.h defines several types, e.g., real, integer, doublereal.
The definitions in f2c.h are suitable for most machines, but if
your machine has sizeof(double) > 2*sizeof(long), you may need
to adjust f2c.h appropriately. f2c assumes
sizeof(doublecomplex) = 2*sizeof(doublereal)
sizeof(doublereal) = sizeof(complex)
sizeof(doublereal) = 2*sizeof(real)
sizeof(real) = sizeof(integer)
sizeof(real) = sizeof(logical)
sizeof(real) = 2*sizeof(shortint)
EQUIVALENCEs may not be translated correctly if these
assumptions are violated.
On machines, such as those using a DEC Alpha processor, on
which sizeof(short) == 2, sizeof(int) == sizeof(float) == 4,
and sizeof(long) == sizeof(double) == 8, it suffices to
modify f2c.h by removing the first occurrence of "long "
on each line containing "long ", e.g., by issuing the
commands
mv f2c.h f2c.h0
sed 's/long //' f2c.h0 >f2c.h
On such machines, one can enable INTEGER*8 by uncommenting
the typedef of longint in f2c.h, so it reads
typedef long longint;
by compiling libI77 with -DAllow_TYQUAD, and by adjusting
libF77/makefile as described in libF77/README.
Diffstat (limited to 'usr.bin/f2c')
-rw-r--r-- | usr.bin/f2c/f2c.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/usr.bin/f2c/f2c.h b/usr.bin/f2c/f2c.h index 6514cd9..61f72af 100644 --- a/usr.bin/f2c/f2c.h +++ b/usr.bin/f2c/f2c.h @@ -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 flag; 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*/ |