diff options
| author | cvs2svn <cvs2svn@FreeBSD.org> | 1999-01-21 00:55:32 +0000 |
|---|---|---|
| committer | cvs2svn <cvs2svn@FreeBSD.org> | 1999-01-21 00:55:32 +0000 |
| commit | 76b5366091f76c9bc73570149ef5055648fc2c39 (patch) | |
| tree | 590d020e0f2a5bea6e09d66d951a674443b21d67 /usr.bin/f2c | |
| parent | 4b4d01da6f07f7754ff6a6e4f5223e9f0984d1a6 (diff) | |
Diffstat (limited to 'usr.bin/f2c')
| -rw-r--r-- | usr.bin/f2c/f2c.h | 12 | ||||
| -rw-r--r-- | usr.bin/f2c/proc.c | 4 |
2 files changed, 8 insertions, 8 deletions
diff --git a/usr.bin/f2c/f2c.h b/usr.bin/f2c/f2c.h index 61f72aff44612..6514cd913e873 100644 --- a/usr.bin/f2c/f2c.h +++ b/usr.bin/f2c/f2c.h @@ -7,15 +7,15 @@ #ifndef F2C_INCLUDE #define F2C_INCLUDE -typedef int integer; -typedef unsigned int uinteger; +typedef long int integer; +typedef unsigned long 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 int logical; +typedef long 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 int flag; -typedef int ftnlen; -typedef int ftnint; +typedef long int flag; +typedef long int ftnlen; +typedef long int ftnint; #endif /*external read, write*/ diff --git a/usr.bin/f2c/proc.c b/usr.bin/f2c/proc.c index e3afb81ef5fdc..2273e24951a48 100644 --- a/usr.bin/f2c/proc.c +++ b/usr.bin/f2c/proc.c @@ -920,8 +920,8 @@ dim_check(Namep q) else if (!ONEOF(nelt->headblock.vtype, MSKINT|MSKREAL)) bad_dimtype(q); else if (ISINT(nelt->headblock.vtype) - ? nelt->constblock.Const.ci <= 0 - : nelt->constblock.Const.cd[0] <= 0.) + && nelt->constblock.Const.ci <= 0 + || nelt->constblock.Const.cd[0] <= 0) dclerr("nonpositive dimension", q); } |