From: Dave Love <d.love@dl.ac.uk>
Date: Fri, 14 Nov 1997 15:12:42 +0000 (+0000)
Subject: intrin.def: Supply gfrt for CPU_TIME.
X-Git-Tag: releases/egcs-1.0.0~120
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=970c5441f49e8e929967b785a7dd41435a0afe1c;p=thirdparty%2Fgcc.git

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: r16494
---

diff --git a/gcc/f/ChangeLog.egcs b/gcc/f/ChangeLog.egcs
index 9f11174616b6..753b0413d1aa 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 66ca3c0a215d..fb40cc663c9b 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 411ed7054697..780cfff75389 100644
--- a/gcc/f/news.texi
+++ b/gcc/f/news.texi
@@ -37,6 +37,9 @@ Fix a compiler crash involving optimization of
 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,
@@ -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}