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

intrin.c (ffeintrin_cmp_name_): Correct comparison for intrinsics in intrinsic table (intrin.def).

Browse Source 
2002-01-26  Toon Moene  <toon@moene.indiv.nluug.nl>

	* intrin.c (ffeintrin_cmp_name_): Correct comparison
	for intrinsics in intrinsic table (intrin.def).

From-SVN: r49248
This commit is contained in:
Toon Moene 2002-01-26 17:14:39 +01:00 committed by Toon Moene
parent cd74ec597b
commit 892c8ea0fa
2 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/f/ChangeLog
View File

@ -1,3 +1,8 @@
2002-01-26 Toon Moene <toon@moene.indiv.nluug.nl>
* intrin.c (ffeintrin_cmp_name_): Correct comparison
for intrinsics in intrinsic table (intrin.def).
2002-01-22 Zack Weinberg <zack@codesourcery.com>
* bad.c: Include intl.h.

21
gcc/f/intrin.c
View File

@ -1153,7 +1153,10 @@ ffeintrin_check_any_ (ffebld arglist)
return FALSE;
}
/* Compare name to intrinsic's name. Uses strcmp on arguments' names. */
/* Compare name to intrinsic's name. Uses strcmp on arguments' names.
The intrinsics table is sorted on the upper case entries; so first
compare irrespective of case on the `uc' entry. If it matches,
compare according to the setting of intrinsics case comparison mode. */
static int
ffeintrin_cmp_name_ (const void *name, const void *intrinsic)
@ -1161,8 +1164,22 @@ ffeintrin_cmp_name_ (const void *name, const void *intrinsic)
const char *const uc = ((const struct _ffeintrin_name_ *) intrinsic)->name_uc;
const char *const lc = ((const struct _ffeintrin_name_ *) intrinsic)->name_lc;
const char *const ic = ((const struct _ffeintrin_name_ *) intrinsic)->name_ic;
int i;
return ffesrc_strcmp_2c (ffe_case_intrin (), name, uc, lc, ic);
if ((i = strcasecmp (name, uc)) == 0)
{
switch (ffe_case_intrin ())
{
case FFE_caseLOWER:
return strcmp(name, lc);
case FFE_caseINITCAP:
return strcmp(name, ic);
default:
return 0;
}
}
return i;
}
/* Return basic type of intrinsic implementation, based on its