* update_web_docs (PREPROCESS): Rename to WWWPREPROCESS.

[pf3gnuchains/gcc-fork.git] / gcc / f / intrin.def

diff --git a/gcc/f/intrin.def b/gcc/f/intrin.def
index 93df3f1..9451a27 100644 (file)
--- a/gcc/f/intrin.def
+++ b/gcc/f/intrin.def
@@ -3006,6 +3006,12 @@ DEFSPEC (NONE,
 
    CONTROL    -- A control string, described below.
 
+   The DEFIMPY macro specifies the above, plus:
+
+   Y2KBAD     -- TRUE if the intrinsic is known to be non-Y2K-compliant,
+                 FALSE if it is known to be Y2K-compliant.  (In terms of
+                 interface and libg2c implementation.)
+
 */
 
 /* The control string has the following format:
@@ -3123,12 +3129,12 @@ DEFIMP  (ACOS,          "ACOS",         L_ACOS,ACOS,,   "R=:0:X=R*")
 DEFIMP (AIMAG,         "AIMAG",        ,AIMAG,,        "RC:0:Z=C*")
 DEFIMP (AINT,          "AINT",         ,AINT,,         "R=:0:A=R*")
 DEFIMP (ALOG,          "ALOG",         L_LOG,ALOG,,    "R1:-:X=R1")
-DEFIMP (ALOG10,        "ALOG10",       ,ALOG10,,       "R1:-:X=R1")
+DEFIMP (ALOG10,        "ALOG10",       L_LOG10,ALOG10,,"R1:-:X=R1")
 DEFIMP (AMAX0,         "AMAX0",        ,,,             "R1:*:A=pI1")
 DEFIMP (AMAX1,         "AMAX1",        ,,,             "R1:*:A=pR1")
 DEFIMP (AMIN0,         "AMIN0",        ,,,             "R1:*:A=pI1")
 DEFIMP (AMIN1,         "AMIN1",        ,,,             "R1:*:A=pR1")
-DEFIMP (AMOD,          "AMOD",         ,AMOD,,         "R1:*:A=R1,P=R1")
+DEFIMP (AMOD,          "AMOD",         L_FMOD,AMOD,,   "R1:*:A=R1,P=R1")
 DEFIMP (ANINT,         "ANINT",        ,ANINT,,        "R=:0:A=R*")
 DEFIMP (ASIN,          "ASIN",         L_ASIN,ASIN,,   "R=:0:X=R*")
 DEFIMP (ATAN,          "ATAN",         L_ATAN,ATAN,,   "R=:0:X=R*")
@@ -3158,10 +3164,10 @@ DEFIMP  (DEXP,          "DEXP",         L_EXP,DEXP,,    "R2:-:X=R2")
 DEFIMP (DIM,           "DIM",          ,DIM,,          "S=:*:X=S*,Y=S*")
 DEFIMP (DINT,          "DINT",         ,DINT,,         "R2:-:A=R2")
 DEFIMP (DLOG,          "DLOG",         L_LOG,DLOG,,    "R2:-:X=R2")
-DEFIMP (DLOG10,        "DLOG10",       ,DLOG10,,       "R2:-:X=R2")
+DEFIMP (DLOG10,        "DLOG10",       L_LOG10,DLOG10,,"R2:-:X=R2")
 DEFIMP (DMAX1,         "DMAX1",        ,,,             "R2:*:A=pR2")
 DEFIMP (DMIN1,         "DMIN1",        ,,,             "R2:*:A=pR2")
-DEFIMP (DMOD,          "DMOD",         ,DMOD,,         "R2:*:A=R2,P=R2")
+DEFIMP (DMOD,          "DMOD",         L_FMOD,DMOD,,   "R2:*:A=R2,P=R2")
 DEFIMP (DNINT,         "DNINT",        ,DNINT,,        "R2:-:A=R2")
 DEFIMP (DPROD,         "DPROD",        ,DPROD,,        "R2:*:X=R1,Y=R1")
 DEFIMP (DSIGN,         "DSIGN",        ,DSIGN,,        "R2:*:A=R2,B=R2")
@@ -3187,7 +3193,7 @@ DEFIMP    (LGT,           "LGT",          ,LGT,LGT,       "L1:*:String_A=A1,String_B=A1")
 DEFIMP (LLE,           "LLE",          ,LLE,LLE,       "L1:*:String_A=A1,String_B=A1")
 DEFIMP (LLT,           "LLT",          ,LLT,LLT,       "L1:*:String_A=A1,String_B=A1")
 DEFIMP (LOG,           "LOG",          L_LOG,ALOG,,    "F=:0:X=F*")
-DEFIMP (LOG10,         "LOG10",        ,,,             "R=:0:X=R*")
+DEFIMP (LOG10,         "LOG10",        L_LOG10,ALOG10,,"R=:0:X=R*")
 DEFIMP (MAX,           "MAX",          ,,,             "S=:*:A=pS*")
 DEFIMP (MIN,           "MIN",          ,,,             "S=:*:A=pS*")
 DEFIMP (MAX0,          "MAX0",         ,,,             "I1:*:A=pI1")
@@ -3231,8 +3237,8 @@ DEFIMP    (CHMOD_subr,    "CHMOD_subr",   CHMOD,,,        "--:-:Name=A1,Mode=A1,Status=?I1w")
 DEFIMP (COMPLEX,       "COMPLEX",      ,,,             "C=:*:Real=S*,Imag=S*")
 DEFIMP (CPU_TIME,      "CPU_TIME",     SECOND,,,       "--:-:Seconds=R*w")
 DEFIMP (CTIME_func,    "CTIME_func",   CTIME,,,        "A1*:-:STime=I*")
-DEFIMP (CTIME_subr,    "CTIME_subr",   CTIME,,,        "--:-:Result=A1w,STime=I*")
-DEFIMP (DATE,          "DATE",         DATE,,,         "--:-:Date=A1w")
+DEFIMP (CTIME_subr,    "CTIME_subr",   CTIME,,,        "--:-:STime=I*,Result=A1w")
+DEFIMPY        (DATE,          "DATE",         DATE,,,         "--:-:Date=A1w",        TRUE)
 DEFIMP (DATE_AND_TIME, "DATE_AND_TIME", DATE_AND_TIME,,, "--:-:Date=A1w,Time=?A1w,Zone=?A1w,Values=?I1(8)w")
 DEFIMP (DBESJ0,        "DBESJ0",       L_BESJ0,,,      "R2:-:X=R2")
 DEFIMP (DBESJ1,        "DBESJ1",       L_BESJ1,,,      "R2:-:X=R2")
@@ -3247,11 +3253,11 @@ DEFIMP  (DFLOAT,        "DFLOAT",       ,,,             "R2:-:A=I*")
 DEFIMP (DIMAG,         "DIMAG",        ,DIMAG,,        "R2:-:Z=C2")
 DEFIMP (DREAL,         "DREAL",        ,,,             "R2:-:A=N*")
 DEFIMP (DTIME_func,    "DTIME_func",   DTIME,,,        "R1:-:TArray=R1(2)w")
-DEFIMP (DTIME_subr,    "DTIME_subr",   DTIME,,,        "--:-:Result=R1w,TArray=R1(2)w")
+DEFIMP (DTIME_subr,    "DTIME_subr",   DTIME,,,        "--:-:TArray=R1(2)w,Result=R1w")
 DEFIMP (ERF,           "ERF",          L_ERF,ERF,,     "R=:0:X=R*")
 DEFIMP (ERFC,          "ERFC",         L_ERFC,ERFC,,   "R=:0:X=R*")
 DEFIMP (ETIME_func,    "ETIME_func",   ETIME,,,        "R1:-:TArray=R1(2)w")
-DEFIMP (ETIME_subr,    "ETIME_subr",   ETIME,,,        "--:-:Result=R1w,TArray=R1(2)w")
+DEFIMP (ETIME_subr,    "ETIME_subr",   ETIME,,,        "--:-:TArray=R1(2)w,Result=R1w")
 DEFIMP (EXIT,          "EXIT",         EXIT,,,         "--:-:Status=?I*")
 DEFIMP (FDATE_func,    "FDATE_func",   FDATE,,,        "A1*:-:")
 DEFIMP (FDATE_subr,    "FDATE_subr",   FDATE,,,        "--:-:Date=A1w")
@@ -3289,7 +3295,7 @@ DEFIMP    (IBCLR,         "IBCLR",        ,,,             "I=:0:I=I*,Pos=I*")
 DEFIMP (IBITS,         "IBITS",        ,,,             "I=:0:I=I*,Pos=I*,Len=I*")
 DEFIMP (IBSET,         "IBSET",        ,,,             "I=:0:I=I*,Pos=I*")
 DEFIMP (IDATE_unix,    "IDATE_unix",   IDATE,,,        "--:-:TArray=I1(3)w")
-DEFIMP (IDATE_vxt,     "IDATE_vxt",    VXTIDATE,,,     "--:-:M=I1w,D=I1w,Y=I1w")
+DEFIMPY        (IDATE_vxt,     "IDATE_vxt",    VXTIDATE,,,     "--:-:M=I1w,D=I1w,Y=I1w",       TRUE)
 DEFIMP (IEOR,          "IEOR",         ,,,             "I=:*:I=I*,J=I*")
 DEFIMP (IOR,           "IOR",          ,,,             "I=:*:I=I*,J=I*")
 DEFIMP (IERRNO,        "IERRNO",       IERRNO,,,       "I1:-:")
@@ -3342,7 +3348,7 @@ DEFIMP    (TIME8,         "TIME8",        TIME,,,         "I2:-:")
 DEFIMP (TIME_unix,     "TIME_unix",    TIME,,,         "I1:-:")
 DEFIMP (TIME_vxt,      "TIME_vxt",     VXTTIME,,,      "--:-:Time=A1[8]w")
 DEFIMP (TTYNAM_func,   "TTYNAM_func",  TTYNAM,,,       "A1*:-:Unit=I*")
-DEFIMP (TTYNAM_subr,   "TTYNAM_subr",  TTYNAM,,,       "--:-:Name=A1w,Unit=I*")
+DEFIMP (TTYNAM_subr,   "TTYNAM_subr",  TTYNAM,,,       "--:-:Unit=I*,Name=A1w")
 DEFIMP (UMASK_func,    "UMASK_func",   UMASK,,,        "I1:-:Mask=I*")
 DEFIMP (UMASK_subr,    "UMASK_subr",   UMASK,,,        "--:-:Mask=I*,Old=?I1w")
 DEFIMP (UNLINK_func,   "UNLINK_func",  UNLINK,,,       "I1:-:File=A1")