hardenedbsd/HardenedBSD
1
0
Fork 0
mirror of https://git.hardenedbsd.org/hardenedbsd/HardenedBSD.git synced 2024-11-15 23:05:49 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

From the submitter:

Browse Source 
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.

Submitted by: Hidetoshi Shimokawa <simokawa@sat.t.u-tokyo.ac.jp>
Obtained from: NetBSD
This commit is contained in:
Doug Rabson 1999-01-10 17:22:49 +00:00
parent a7006f894f
commit f4dd1f4feb
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=42483
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
usr.bin/f2c/proc.c
View File

@ -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);
}