Date: Sun, 10 Jan 1999 17:10:23 +0900 From: Hidetoshi Shimokawa <simokawa@sat.t.u-tokyo.ac.jp> To: freebsd-alpha@FreeBSD.ORG Subject: f77 fix Message-ID: <19990110171023V.simokawa@sat.t.u-tokyo.ac.jp>
next in thread | raw e-mail | index | archive | help
I found the reason why f77 so offen dies on alpha. Here is a fix. "Const" is a union of int and double. If nelt->constblock.Const.ci > 0 then it trys to evaluate it as double and floating point exception occurs. Could someone review and commit this? Obtained from: ftp://ftp.netbsd.org/pub/NetBSD/packages/distfiles/LOCAL_PORTS/f2c-19980516.tar.gz /\ Hidetoshi Shimokawa \/ simokawa@sat.t.u-tokyo.ac.jp PGP public key: finger -l simokawa@sat.t.u-tokyo.ac.jp Index: proc.c =================================================================== RCS file: /pub/FreeBSD-CVS/src/usr.bin/f2c/proc.c,v retrieving revision 1.4 diff -u -r1.4 proc.c --- proc.c 1998/07/24 07:13:57 1.4 +++ proc.c 1999/01/10 08:03:15 @@ -920,8 +920,8 @@ 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); } 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?19990110171023V.simokawa>