diff options
| author | Dave Love <d.love@dl.ac.uk> | 1997-11-14 15:13:42 +0000 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1997-11-14 08:13:42 -0700 |
| commit | 79cf8f5e2c50934fb212c9a1ca698d06d2076378 (patch) | |
| tree | e79a6a3fbfbfff0865bad9592ac6ec57398fcc35 | |
| parent | f35bcbc5d0803d2e92b8f725a1b2165d144ab156 (diff) | |
| download | gcc-79cf8f5e2c50934fb212c9a1ca698d06d2076378.zip gcc-79cf8f5e2c50934fb212c9a1ca698d06d2076378.tar.gz gcc-79cf8f5e2c50934fb212c9a1ca698d06d2076378.tar.bz2 | |
intrin.def: Supply gfrt for CPU_TIME.
1997-11-14 Dave Love <d.love@dl.ac.uk>
* intrin.def: Supply gfrt for CPU_TIME. Generalize arg types of
INT2, INT8, per doc.
From-SVN: r16496
| -rw-r--r-- | gcc/f/ChangeLog.egcs | 5 | ||||
| -rw-r--r-- | gcc/f/intrin.def | 6 | ||||
| -rw-r--r-- | gcc/f/news.texi | 6 |
3 files changed, 13 insertions, 4 deletions
diff --git a/gcc/f/ChangeLog.egcs b/gcc/f/ChangeLog.egcs index 9f11174..753b041 100644 --- a/gcc/f/ChangeLog.egcs +++ b/gcc/f/ChangeLog.egcs @@ -1,3 +1,8 @@ +1997-11-14 Dave Love <d.love@dl.ac.uk> + + * intrin.def: Supply gfrt for CPU_TIME. Generalize arg types of + INT2, INT8, per doc. + Sun Nov 2 19:49:51 1997 Richard Henderson <rth@cygnus.com> * com.c (ffecom_expr_): Only use TREE_TYPE argument for simple diff --git a/gcc/f/intrin.def b/gcc/f/intrin.def index 66ca3c0..fb40cc6 100644 --- a/gcc/f/intrin.def +++ b/gcc/f/intrin.def @@ -3229,7 +3229,7 @@ DEFIMP (CHDIR_subr, "CHDIR_subr", CHDIR,,, "--:-:Dir=A1,Status=?I1w") DEFIMP (CHMOD_func, "CHMOD_func", CHMOD,,, "I1:-:Name=A1,Mode=A1") 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", ,,, "--:-:Seconds=R1w") +DEFIMP (CPU_TIME, "CPU_TIME", SECOND,,, "--:-:Seconds=R1w") 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") @@ -3293,8 +3293,8 @@ DEFIMP (IEOR, "IEOR", ,,, "I=:*:I=I*,J=I*") DEFIMP (IOR, "IOR", ,,, "I=:*:I=I*,J=I*") DEFIMP (IERRNO, "IERRNO", IERRNO,,, "I1:-:") DEFIMP (IMAGPART, "IMAGPART", ,,, "R=:0:Z=C*") -DEFIMP (INT2, "INT2", ,,, "I6:-:A=I*") -DEFIMP (INT8, "INT8", ,,, "I2:-:A=I*") +DEFIMP (INT2, "INT2", ,,, "I6:-:A=N*") +DEFIMP (INT8, "INT8", ,,, "I2:-:A=N*") DEFIMP (IRAND, "IRAND", IRAND,,, "I1:-:Flag=?I*") DEFIMP (ISATTY, "ISATTY", ISATTY,,, "L1:-:Unit=I*") DEFIMP (ISHFT, "ISHFT", ,,, "I=:0:I=I*,Shift=I*") diff --git a/gcc/f/news.texi b/gcc/f/news.texi index 411ed70..780cfff 100644 --- a/gcc/f/news.texi +++ b/gcc/f/news.texi @@ -38,6 +38,9 @@ certain complicated expressions involving @code{COMPLEX} arithmetic (especially multiplication). @item +Fix an internal error compiling the @code{Cpu_Time} intrinsic. + +@item Rename the @code{gcc} keyword @code{restrict} to @code{__restrict__}, to avoid rejecting valid, existing, C programs. @@ -46,7 +49,8 @@ for @code{complex}. @item Fix @code{DTime} intrinsic so as not to truncate -results to integer values (on some systems). +results to integer values (on some systems) and allow general numeric +args for the @code{Int2} and @code{Int8} intrinsics. @item Improve diagnostic messages from @code{libf2c} |