From 6dd0f30b36df25e1e9b01f1253e08ae2d341b080 Mon Sep 17 00:00:00 2001 From: Bud Davis Date: Sat, 22 Mar 2003 13:01:08 +0000 Subject: com.c (ffecom_constantunion_with_type): New function. 2003-03-22 Bud Davis * com.c (ffecom_constantunion_with_type): New function. * com.h (ffecom_constantunion_with_type): Declare. * stc.c (ffestc_R810): Check for kind type. * ste.c (ffeste_R810): Use ffecom_constantunion_with_type to discern SELECT CASE variables. From-SVN: r64709 --- gcc/f/com.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gcc/f/com.h') diff --git a/gcc/f/com.h b/gcc/f/com.h index 8b8bb86..b58e5ba 100644 --- a/gcc/f/com.h +++ b/gcc/f/com.h @@ -210,6 +210,8 @@ tree ffecom_arg_expr (ffebld expr, tree *length); tree ffecom_arg_ptr_to_const_expr (ffebld expr, tree *length); tree ffecom_arg_ptr_to_expr (ffebld expr, tree *length); tree ffecom_call_gfrt (ffecomGfrt ix, tree args, tree hook); +tree ffecom_constantunion_with_type (ffebldConstantUnion *cu, + tree tree_type,ffebldConst ct); tree ffecom_constantunion (ffebldConstantUnion *cu, ffeinfoBasictype bt, ffeinfoKindtype kt, tree tree_type); tree ffecom_const_expr (ffebld expr); -- cgit v1.1