Retro68/gcc/newlib/libc/ctype/isupper_l.c
Wolfgang Thaller ec13cc9ce7 fix newlib
2018-12-29 09:59:36 +01:00

12 lines
174 B
C

#include <_ansi.h>
#include <ctype.h>
#undef isupper_l
int
isupper_l (int c, struct __locale_t *locale)
{
return (__locale_ctype_ptr_l (locale)[c+1] & (_U|_L)) == _U;
}