projects
/
gcc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7f10c2e
)
fix CTIME_subr bug
author
Craig Burley
<craig@jcb-sc.com>
Mon, 3 May 1999 16:46:45 +0000
(16:46 +0000)
committer
Craig Burley
<burley@gcc.gnu.org>
Mon, 3 May 1999 16:46:45 +0000
(12:46 -0400)
From-SVN: r26759
gcc/f/ChangeLog
patch
|
blob
|
history
gcc/f/com.c
patch
|
blob
|
history
diff --git
a/gcc/f/ChangeLog
b/gcc/f/ChangeLog
index 90f7b7e27eb83e17925c9c581e3a8cb979881e9a..0ffb510f5de9139bda5e521ef564d38227dc7f1d 100644
(file)
--- a/
gcc/f/ChangeLog
+++ b/
gcc/f/ChangeLog
@@
-1,3
+1,7
@@
+Mon May 3 19:41:48 1999 Craig Burley <craig@jcb-sc.com>
+
+ * com.c (ffecom_expr_intrinsic_): Fix test of CTIME_subr.
+
Mon May 3 18:11:48 1999 Craig Burley <craig@jcb-sc.com>
Reverse order of two arguments to CTIME_subr, DTIME_subr,
diff --git
a/gcc/f/com.c
b/gcc/f/com.c
index a0f33e6e603071767249b9383ef36bee63db3345..0329c87d3ba7805dbf662c3e00deb98a2a6db190 100644
(file)
--- a/
gcc/f/com.c
+++ b/
gcc/f/com.c
@@
-5267,7
+5267,7
@@
ffecom_expr_intrinsic_ (ffebld expr, tree dest_tree,
arg1_tree = ffecom_arg_ptr_to_expr (arg2, &arg1_len);
- arg2_tree = convert (((
gfrt
== FFEINTRIN_impCTIME_subr) ?
+ arg2_tree = convert (((
codegen_imp
== FFEINTRIN_impCTIME_subr) ?
ffecom_f2c_longint_type_node :
ffecom_f2c_integer_type_node),
ffecom_expr (arg1));