diff options
| author | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-05-18 17:44:27 +0000 |
|---|---|---|
| committer | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-05-18 17:44:27 +0000 |
| commit | 0854f909506e21dd58dac0e7091eec09b941c982 (patch) | |
| tree | c564fe3c25e16c997b7841c43d97cd5453e37297 /libf2c/g2c.hin | |
| parent | 23eabd6aa12fdee55ad81f2c7012155ad02f6b44 (diff) | |
| download | gcc-0854f909506e21dd58dac0e7091eec09b941c982.tar.gz | |
* configure.in: Test for __g77_integer, __g77_uinteger,
__g77_longint, and __g77_ulongint builtin types, rather
than mucking around with compiler headers.
* configure: Regenerate.
* g2c.hin (integer, logical, flag, ftnlen, ftnint): Use
__g77_integer rather than autoconfigured value.
(uinteger): Use __g77_uinteger rather than autoconfigured value.
(longint): Use __g77_longint rather than autoconfigured value.
(ulongint): Use __g77_ulongint rather than autoconfigured value.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@33990 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/g2c.hin')
| -rw-r--r-- | libf2c/g2c.hin | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/libf2c/g2c.hin b/libf2c/g2c.hin index d8fed9c2578..57947ce6e80 100644 --- a/libf2c/g2c.hin +++ b/libf2c/g2c.hin @@ -18,20 +18,20 @@ /* F2C_INTEGER will normally be `int' but would be `long' on 16-bit systems */ /* we assume short, float are OK */ -typedef @F2C_INTEGER@ /* long int */ integer; -typedef unsigned @F2C_INTEGER@ /* long */ uinteger; +typedef __g77_integer integer; +typedef __g77_uinteger 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 @F2C_INTEGER@ /* long int */ logical; +typedef __g77_integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; -typedef @F2C_LONGINT@ /* long long */ longint; /* system-dependent */ -typedef unsigned @F2C_LONGINT@ /* long long */ ulongint; /* system-dependent */ +typedef __g77_longint longint; /* system-dependent */ +typedef __g77_ulongint ulongint; /* system-dependent */ #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) #define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) @@ -52,9 +52,9 @@ typedef short flag; typedef short ftnlen; typedef short ftnint; #else -typedef @F2C_INTEGER@ /* long int */ flag; -typedef @F2C_INTEGER@ /* long int */ ftnlen; -typedef @F2C_INTEGER@ /* long int */ ftnint; +typedef __g77_integer flag; +typedef __g77_integer ftnlen; +typedef __g77_integer ftnint; #endif /*external read, write*/ |