OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(ffeintrin_init_0): Distinguish between 

crashes on bad arg base and kind types.

From-SVN: r19838
This commit is contained in:
Craig Burley 1998-05-18 10:29:07 +00:00 committed by Dave Love
parent 5403eb3a7d
commit e0263671d7
1 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
gcc/f/intrin.c
View File

@ -1643,24 +1643,29 @@ ffeintrin_init_0 ()
|| (c[1] == 'n')
|| (c[1] == 'p'))
++c;
if (((c[1] != '-')
&& (c[1] != 'A')
&& (c[1] != 'C')
&& (c[1] != 'I')
&& (c[1] != 'L')
&& (c[1] != 'R')
&& (c[1] != 'B')
&& (c[1] != 'F')
&& (c[1] != 'N')
&& (c[1] != 'S')
&& (c[1] != 'g')
&& (c[1] != 's'))
|| ((c[2] != '*')
&& ((c[2] < '1')
|| (c[2] > '9'))
&& (c[2] != 'A')))
if ((c[1] != '-')
&& (c[1] != 'A')
&& (c[1] != 'C')
&& (c[1] != 'I')
&& (c[1] != 'L')
&& (c[1] != 'R')
&& (c[1] != 'B')
&& (c[1] != 'F')
&& (c[1] != 'N')
&& (c[1] != 'S')
&& (c[1] != 'g')
&& (c[1] != 's'))
{
fprintf (stderr, "%s: bad arg-type\n",
fprintf (stderr, "%s: bad arg-base-type\n",
ffeintrin_imps_[i].name);
break;
}
if ((c[2] != '*')
&& ((c[2] < '1')
|| (c[2] > '9'))
&& (c[2] != 'A'))
{
fprintf (stderr, "%s: bad arg-kind-type\n",
ffeintrin_imps_[i].name);
break;
}