From 411d4e28f8dc0deb8d175e6e9ddf93e528b2e532 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Fri, 5 Mar 1999 23:40:12 +0000 Subject: Warn about invoking non-Y2K-compliant intrinsics From-SVN: r25609 --- gcc/f/intrin.h | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'gcc/f/intrin.h') diff --git a/gcc/f/intrin.h b/gcc/f/intrin.h index 0fb156b..393552d 100644 --- a/gcc/f/intrin.h +++ b/gcc/f/intrin.h @@ -51,11 +51,13 @@ typedef enum #define DEFGEN(CODE,NAME,SPEC1,SPEC2) FFEINTRIN_gen ## CODE, #define DEFSPEC(CODE,NAME,CALLABLE,FAMILY,IMP) #define DEFIMP(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL) +#define DEFIMPY(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL,Y2KBAD) #include "intrin.def" #undef DEFNAME #undef DEFGEN #undef DEFSPEC #undef DEFIMP +#undef DEFIMPY FFEINTRIN_gen } ffeintrinGen; @@ -65,11 +67,13 @@ typedef enum #define DEFGEN(CODE,NAME,SPEC1,SPEC2) #define DEFSPEC(CODE,NAME,CALLABLE,FAMILY,IMP) FFEINTRIN_spec ## CODE, #define DEFIMP(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL) +#define DEFIMPY(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL,Y2KBAD) #include "intrin.def" #undef DEFNAME #undef DEFGEN #undef DEFSPEC #undef DEFIMP +#undef DEFIMPY FFEINTRIN_spec } ffeintrinSpec; @@ -80,11 +84,14 @@ typedef enum #define DEFSPEC(CODE,NAME,CALLABLE,FAMILY,IMP) #define DEFIMP(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL) \ FFEINTRIN_imp ## CODE, +#define DEFIMPY(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL,Y2KBAD) \ + FFEINTRIN_imp ## CODE, #include "intrin.def" #undef DEFNAME #undef DEFGEN #undef DEFSPEC #undef DEFIMP +#undef DEFIMPY FFEINTRIN_imp } ffeintrinImp; -- cgit v1.1