Skip to content

R
riscv-gcc-1
Commit ad321293 by Mark Mitchell Committed by Mark Mitchell
Options

semantics.c: New file, containing routines to perform the semantic phase of parsing. 

	* semantics.c: New file, containing routines to perform the
	semantic phase of parsing.
	* parse.y: Use it.
	* pt.c (tsubst_expr): Likewise.
	* cp-tree.h: Declare the various functions in semantics.c.
	Provide macros to access _STMT tree nodes.
	* cp-tree.def: Add ASM_STMT tree node.
	* Makefile.in, Make-lang.in: Add dependencies on and for
	semantics.c.

From-SVN: r18658
parent cbe36725
Showing with 161 additions and 156 deletions
gcc/cp/ChangeLog
Wed Mar 18 10:09:51 1998 Mark Mitchell <mmitchell@usa.net>
* semantics.c: New file, containing routines to perform the
semantic phase of parsing.
* parse.y: Use it.
* pt.c (tsubst_expr): Likewise.
* cp-tree.h: Declare the various functions in semantics.c.
Provide macros to access _STMT tree nodes.
* cp-tree.def: Add ASM_STMT tree node.
* Makefile.in, Make-lang.in: Add dependencies on and for
semantics.c.
Wed Mar 18 00:24:10 1998 Jason Merrill <jason@yorick.cygnus.com> Wed Mar 18 00:24:10 1998 Jason Merrill <jason@yorick.cygnus.com>
* pt.c (push_template_decl): Only check primary templates. * pt.c (push_template_decl): Only check primary templates.
......
gcc/cp/Make-lang.in
...@@ -122,7 +122,7 @@ CXX_SRCS = $(srcdir)/cp/call.c $(srcdir)/cp/decl2.c \ ...@@ -122,7 +122,7 @@ CXX_SRCS = $(srcdir)/cp/call.c $(srcdir)/cp/decl2.c \
$(srcdir)/cp/search.c $(srcdir)/cp/typeck.c $(srcdir)/cp/decl.c \ $(srcdir)/cp/search.c $(srcdir)/cp/typeck.c $(srcdir)/cp/decl.c \
$(srcdir)/cp/error.c $(srcdir)/cp/friend.c $(srcdir)/cp/init.c \ $(srcdir)/cp/error.c $(srcdir)/cp/friend.c $(srcdir)/cp/init.c \
$(srcdir)/cp/parse.y $(srcdir)/cp/sig.c $(srcdir)/cp/typeck2.c \ $(srcdir)/cp/parse.y $(srcdir)/cp/sig.c $(srcdir)/cp/typeck2.c \
$(srcdir)/cp/repo.c $(srcdir)/cp/repo.c $(srcdir)/cp/semantics.c
cc1plus: $(P) $(CXX_SRCS) $(LIBDEPS) stamp-objlist c-common.o c-pragma.o \ cc1plus: $(P) $(CXX_SRCS) $(LIBDEPS) stamp-objlist c-common.o c-pragma.o \
$(srcdir)/cp/cp-tree.h $(srcdir)/cp/cp-tree.def $(srcdir)/cp/cp-tree.h $(srcdir)/cp/cp-tree.def
......
gcc/cp/Makefile.in
...@@ -166,7 +166,7 @@ INCLUDES = -I. -I.. -I$(srcdir) -I$(srcdir)/.. -I$(srcdir)/../config ...@@ -166,7 +166,7 @@ INCLUDES = -I. -I.. -I$(srcdir) -I$(srcdir)/.. -I$(srcdir)/../config
CXX_OBJS = call.o decl.o errfn.o expr.o pt.o sig.o typeck2.o \ CXX_OBJS = call.o decl.o errfn.o expr.o pt.o sig.o typeck2.o \
class.o decl2.o error.o lex.o parse.o ptree.o rtti.o spew.o typeck.o cvt.o \ class.o decl2.o error.o lex.o parse.o ptree.o rtti.o spew.o typeck.o cvt.o \
except.o friend.o init.o method.o search.o tree.o xref.o repo.o except.o friend.o init.o method.o search.o semantics.o tree.o xref.o repo.o
# Language-independent object files. # Language-independent object files.
OBJS = `cat ../stamp-objlist` ../c-common.o ../c-pragma.o OBJS = `cat ../stamp-objlist` ../c-common.o ../c-pragma.o
...@@ -259,6 +259,8 @@ error.o : error.c $(CONFIG_H) $(CXX_TREE_H) ...@@ -259,6 +259,8 @@ error.o : error.c $(CONFIG_H) $(CXX_TREE_H)
errfn.o : errfn.c $(CONFIG_H) $(CXX_TREE_H) errfn.o : errfn.c $(CONFIG_H) $(CXX_TREE_H)
sig.o : sig.c $(CONFIG_H) $(CXX_TREE_H) $(srcdir)/../flags.h sig.o : sig.c $(CONFIG_H) $(CXX_TREE_H) $(srcdir)/../flags.h
repo.o : repo.c $(CONFIG_H) $(CXX_TREE_H) repo.o : repo.c $(CONFIG_H) $(CXX_TREE_H)
semantics.o: semantics.c $(CONFIG_H) $(CXX_TREE_H) lex.h $(srcdir)/../except.h
# #
# These exist for maintenance purposes. # These exist for maintenance purposes.
......
gcc/cp/cp-tree.def
...@@ -200,6 +200,7 @@ DEFTREECODE (BREAK_STMT, "break_stmt", 'e', 0) ...@@ -200,6 +200,7 @@ DEFTREECODE (BREAK_STMT, "break_stmt", 'e', 0)
DEFTREECODE (CONTINUE_STMT, "continue_stmt", 'e', 0) DEFTREECODE (CONTINUE_STMT, "continue_stmt", 'e', 0)
DEFTREECODE (SWITCH_STMT, "switch_stmt", 'e', 2) DEFTREECODE (SWITCH_STMT, "switch_stmt", 'e', 2)
DEFTREECODE (GOTO_STMT, "goto_stmt", 'e', 1) DEFTREECODE (GOTO_STMT, "goto_stmt", 'e', 1)
DEFTREECODE (ASM_STMT, "asm_stmt", 'e', 5)
DEFTREECODE (CTOR_INITIALIZER, "ctor_initializer", 'e', 2) DEFTREECODE (CTOR_INITIALIZER, "ctor_initializer", 'e', 2)
DEFTREECODE (CASE_LABEL, "case_label", 'e', 2) DEFTREECODE (CASE_LABEL, "case_label", 'e', 2)
......
gcc/cp/cp-tree.h
...@@ -1524,6 +1524,37 @@ extern int flag_new_for_scope; ...@@ -1524,6 +1524,37 @@ extern int flag_new_for_scope;
#define builtin_function(NAME, TYPE, CODE, LIBNAME) \ #define builtin_function(NAME, TYPE, CODE, LIBNAME) \
define_function (NAME, TYPE, CODE, (void (*) PROTO((tree)))pushdecl, LIBNAME) define_function (NAME, TYPE, CODE, (void (*) PROTO((tree)))pushdecl, LIBNAME)
/* These macros provide convenient access to the various _STMT nodes
created when parsing template declarations. */
#define IF_COND(NODE) TREE_OPERAND (NODE, 0)
#define THEN_CLAUSE(NODE) TREE_OPERAND (NODE, 1)
#define ELSE_CLAUSE(NODE) TREE_OPERAND (NODE, 2)
#define WHILE_COND(NODE) TREE_OPERAND (NODE, 0)
#define WHILE_BODY(NODE) TREE_OPERAND (NODE, 1)
#define DO_COND(NODE) TREE_OPERAND (NODE, 0)
#define DO_BODY(NODE) TREE_OPERAND (NODE, 1)
#define RETURN_EXPR(NODE) TREE_OPERAND (NODE, 0)
#define EXPR_STMT_EXPR(NODE) TREE_OPERAND (NODE, 0)
#define FOR_INIT_STMT(NODE) TREE_OPERAND (NODE, 0)
#define FOR_COND(NODE) TREE_OPERAND (NODE, 1)
#define FOR_EXPR(NODE) TREE_OPERAND (NODE, 2)
#define FOR_BODY(NODE) TREE_OPERAND (NODE, 3)
#define SWITCH_COND(NODE) TREE_OPERAND (NODE, 0)
#define SWITCH_BODY(NODE) TREE_OPERAND (NODE, 1)
#define CASE_LOW(NODE) TREE_OPERAND (NODE, 0)
#define CASE_HIGH(NODE) TREE_OPERAND (NODE, 1)
#define GOTO_DESTINATION(NODE) TREE_OPERAND (NODE, 0)
#define TRY_STMTS(NODE) TREE_OPERAND (NODE, 0)
#define TRY_HANDLERS(NODE) TREE_OPERAND (NODE, 1)
#define HANDLER_PARMS(NODE) TREE_OPERAND (NODE, 0)
#define HANDLER_BODY(NODE) TREE_OPERAND (NODE, 1)
#define COMPOUND_BODY(NODE) TREE_OPERAND (NODE, 0)
#define ASM_CV_QUAL(NODE) TREE_OPERAND (NODE, 0)
#define ASM_STRING(NODE) TREE_OPERAND (NODE, 1)
#define ASM_OUTPUTS(NODE) TREE_OPERAND (NODE, 2)
#define ASM_INPUTS(NODE) TREE_OPERAND (NODE, 3)
#define ASM_CLOBBERS(NODE) TREE_OPERAND (NODE, 4)
/* An enumeration of the kind of tags that C++ accepts. */ /* An enumeration of the kind of tags that C++ accepts. */
enum tag_types { record_type, class_type, union_type, enum_type, enum tag_types { record_type, class_type, union_type, enum_type,
signature_type }; signature_type };
...@@ -2511,6 +2542,42 @@ extern tree current_scope PROTO((void)); ...@@ -2511,6 +2542,42 @@ extern tree current_scope PROTO((void));
extern tree lookup_conversions PROTO((tree)); extern tree lookup_conversions PROTO((tree));
extern tree get_template_base PROTO((tree, tree)); extern tree get_template_base PROTO((tree, tree));
/* in semantics.c */
extern void finish_expr_stmt PROTO((tree));
extern tree begin_if_stmt PROTO((void));
extern void finish_if_stmt_cond PROTO((tree, tree));
extern tree finish_then_clause PROTO((tree));
extern void begin_else_clause PROTO((void));
extern void finish_else_clause PROTO((tree));
extern void finish_if_stmt PROTO((void));
extern tree begin_while_stmt PROTO((void));
extern void finish_while_stmt_cond PROTO((tree, tree));
extern void finish_while_stmt PROTO((tree));
extern tree begin_do_stmt PROTO((void));
extern void finish_do_body PROTO((tree));
extern void finish_do_stmt PROTO((tree, tree));
extern void finish_return_stmt PROTO((tree));
extern tree begin_for_stmt PROTO((void));
extern void finish_for_init_stmt PROTO((tree));
extern void finish_for_cond PROTO((tree, tree));
extern void finish_for_expression PROTO((tree, tree));
extern void finish_for_stmt PROTO((tree, tree));
extern void finish_break_stmt PROTO((void));
extern void finish_continue_stmt PROTO((void));
extern void begin_switch_stmt PROTO((void));
extern tree finish_switch_cond PROTO((tree));
extern void finish_switch_stmt PROTO((tree, tree));
extern void finish_case_label PROTO((tree, tree));
extern void finish_goto_stmt PROTO((tree));
extern tree begin_try_block PROTO((void));
extern void finish_try_block PROTO((tree));
extern void finish_handler_sequence PROTO((tree));
extern tree begin_handler PROTO((void));
extern void finish_handler_parms PROTO((tree));
extern void finish_handler PROTO((tree));
extern tree begin_compound_stmt PROTO((int));
extern tree finish_compound_stmt PROTO((int, tree));
extern void finish_asm_stmt PROTO((tree, tree, tree, tree, tree));
/* in sig.c */ /* in sig.c */
extern tree build_signature_pointer_type PROTO((tree, int, int)); extern tree build_signature_pointer_type PROTO((tree, int, int));
extern tree build_signature_reference_type PROTO((tree, int, int)); extern tree build_signature_reference_type PROTO((tree, int, int));
......
gcc/cp/parse.c
This source diff could not be displayed because it is too large. You can view the blob instead.
gcc/cp/pt.c
...@@ -4690,24 +4690,14 @@ tsubst_expr (t, args, in_decl) ...@@ -4690,24 +4690,14 @@ tsubst_expr (t, args, in_decl)
{ {
case RETURN_STMT: case RETURN_STMT:
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
emit_line_note (input_filename, lineno); finish_return_stmt (tsubst_expr (RETURN_EXPR (t),
c_expand_return args, in_decl));
(tsubst_expr (TREE_OPERAND (t, 0), args, in_decl));
finish_stmt ();
break; break;
case EXPR_STMT: case EXPR_STMT:
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
emit_line_note (input_filename, lineno); finish_expr_stmt (tsubst_expr (EXPR_STMT_EXPR (t),
t = tsubst_expr (TREE_OPERAND (t, 0), args, in_decl); args, in_decl));
/* Do default conversion if safe and possibly important,
in case within ({...}). */
if ((TREE_CODE (TREE_TYPE (t)) == ARRAY_TYPE && lvalue_p (t))
|| TREE_CODE (TREE_TYPE (t)) == FUNCTION_TYPE)
t = default_conversion (t);
cplus_expand_expr_stmt (t);
clear_momentary ();
finish_stmt ();
break; break;
case DECL_STMT: case DECL_STMT:
...@@ -4731,184 +4721,117 @@ tsubst_expr (t, args, in_decl) ...@@ -4731,184 +4721,117 @@ tsubst_expr (t, args, in_decl)
case FOR_STMT: case FOR_STMT:
{ {
tree tmp; tree tmp;
int init_scope = (flag_new_for_scope > 0 && TREE_OPERAND (t, 0)
&& TREE_CODE (TREE_OPERAND (t, 0)) == DECL_STMT);
int cond_scope = (TREE_OPERAND (t, 1)
&& TREE_CODE (TREE_OPERAND (t, 1)) == DECL_STMT);
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
emit_line_note (input_filename, lineno);
if (init_scope)
do_pushlevel ();
for (tmp = TREE_OPERAND (t, 0); tmp; tmp = TREE_CHAIN (tmp))
tsubst_expr (tmp, args, in_decl);
emit_nop ();
emit_line_note (input_filename, lineno);
expand_start_loop_continue_elsewhere (1);
if (cond_scope)
do_pushlevel ();
tmp = tsubst_expr (TREE_OPERAND (t, 1), args, in_decl);
emit_line_note (input_filename, lineno);
if (tmp)
expand_exit_loop_if_false (0, condition_conversion (tmp));
if (! cond_scope) begin_for_stmt ();
do_pushlevel (); for (tmp = FOR_INIT_STMT (t); tmp; tmp = TREE_CHAIN (tmp))
tsubst_expr (TREE_OPERAND (t, 3), args, in_decl); tsubst_expr (tmp, args, in_decl);
do_poplevel (); finish_for_init_stmt (NULL_TREE);
finish_for_cond (tsubst_expr (FOR_COND (t), args,
emit_line_note (input_filename, lineno); in_decl),
expand_loop_continue_here (); NULL_TREE);
tmp = tsubst_expr (TREE_OPERAND (t, 2), args, in_decl); tmp = tsubst_expr (FOR_EXPR (t), args, in_decl);
if (tmp) finish_for_expr (tmp, NULL_TREE);
cplus_expand_expr_stmt (tmp); tsubst_expr (FOR_BODY (t), args, in_decl);
finish_for_stmt (tmp, NULL_TREE);
expand_end_loop ();
if (init_scope)
do_poplevel ();
finish_stmt ();
} }
break; break;
case WHILE_STMT: case WHILE_STMT:
{ {
tree cond;
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
emit_nop (); begin_while_stmt ();
emit_line_note (input_filename, lineno); finish_while_stmt_cond (tsubst_expr (WHILE_COND (t),
expand_start_loop (1); args, in_decl),
NULL_TREE);
cond = TREE_OPERAND (t, 0); tsubst_expr (WHILE_BODY (t), args, in_decl);
if (TREE_CODE (cond) == DECL_STMT) finish_while_stmt (NULL_TREE);
do_pushlevel ();
cond = tsubst_expr (cond, args, in_decl);
emit_line_note (input_filename, lineno);
expand_exit_loop_if_false (0, condition_conversion (cond));
if (TREE_CODE (TREE_OPERAND (t, 0)) != DECL_STMT)
do_pushlevel ();
tsubst_expr (TREE_OPERAND (t, 1), args, in_decl);
do_poplevel ();
expand_end_loop ();
finish_stmt ();
} }
break; break;
case DO_STMT: case DO_STMT:
{ {
tree cond;
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
emit_nop (); begin_do_stmt ();
emit_line_note (input_filename, lineno); tsubst_expr (DO_BODY (t), args, in_decl);
expand_start_loop_continue_elsewhere (1); finish_do_body (NULL_TREE);
finish_do_stmt (tsubst_expr (DO_COND (t), args,
tsubst_expr (TREE_OPERAND (t, 0), args, in_decl); in_decl),
expand_loop_continue_here (); NULL_TREE);
cond = tsubst_expr (TREE_OPERAND (t, 1), args, in_decl);
emit_line_note (input_filename, lineno);
expand_exit_loop_if_false (0, condition_conversion (cond));
expand_end_loop ();
clear_momentary ();
finish_stmt ();
} }
break; break;
case IF_STMT: case IF_STMT:
{ {
tree tmp; tree tmp;
int cond_scope = (TREE_CODE (TREE_OPERAND (t, 0)) == DECL_STMT);
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
if (cond_scope) begin_if_stmt ();
do_pushlevel (); finish_if_stmt_cond (tsubst_expr (IF_COND (t),
tmp = tsubst_expr (TREE_OPERAND (t, 0), args, in_decl); args, in_decl),
emit_line_note (input_filename, lineno); NULL_TREE);
expand_start_cond (condition_conversion (tmp), 0);
if (tmp = TREE_OPERAND (t, 1), tmp)
tsubst_expr (tmp, args, in_decl);
if (tmp = TREE_OPERAND (t, 2), tmp) if (tmp = THEN_CLAUSE (t), tmp)
{ {
expand_start_else ();
tsubst_expr (tmp, args, in_decl); tsubst_expr (tmp, args, in_decl);
finish_then_clause (NULL_TREE);
} }
expand_end_cond (); if (tmp = ELSE_CLAUSE (t), tmp)
{
if (cond_scope) begin_else_clause ();
do_poplevel (); tsubst_expr (tmp, args, in_decl);
finish_else_clause (NULL_TREE);
}
finish_stmt (); finish_if_stmt ();
} }
break; break;
case COMPOUND_STMT: case COMPOUND_STMT:
{ {
tree substmt = TREE_OPERAND (t, 0); tree substmt;
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
begin_compound_stmt (COMPOUND_STMT_NO_SCOPE (t));
if (COMPOUND_STMT_NO_SCOPE (t) == 0) for (substmt = COMPOUND_BODY (t);
do_pushlevel (); substmt != NULL_TREE;
substmt = TREE_CHAIN (substmt))
for (; substmt; substmt = TREE_CHAIN (substmt))
tsubst_expr (substmt, args, in_decl); tsubst_expr (substmt, args, in_decl);
return finish_compound_stmt (COMPOUND_STMT_NO_SCOPE (t),
if (COMPOUND_STMT_NO_SCOPE (t) == 0) NULL_TREE);
return do_poplevel ();
} }
break; break;
case BREAK_STMT: case BREAK_STMT:
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
emit_line_note (input_filename, lineno); finish_break_stmt ();
if (! expand_exit_something ())
error ("break statement not within loop or switch");
break; break;
case CONTINUE_STMT: case CONTINUE_STMT:
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
emit_line_note (input_filename, lineno); finish_continue_stmt ();
if (! expand_continue_loop (0))
error ("continue statement not within a loop");
break; break;
case SWITCH_STMT: case SWITCH_STMT:
{ {
tree val, tmp; tree val, tmp;
int cond_scope = (TREE_CODE (TREE_OPERAND (t, 0)) == DECL_STMT);
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
if (cond_scope) begin_switch_stmt ();
do_pushlevel (); val = tsubst_expr (SWITCH_COND (t), args, in_decl);
val = tsubst_expr (TREE_OPERAND (t, 0), args, in_decl); finish_switch_cond (val);
emit_line_note (input_filename, lineno);
c_expand_start_case (val);
push_switch ();
if (tmp = TREE_OPERAND (t, 1), tmp) if (tmp = TREE_OPERAND (t, 1), tmp)
tsubst_expr (tmp, args, in_decl); tsubst_expr (tmp, args, in_decl);
expand_end_case (val); finish_switch_stmt (val, NULL_TREE);
pop_switch ();
if (cond_scope)
do_poplevel ();
finish_stmt ();
} }
break; break;
case CASE_LABEL: case CASE_LABEL:
do_case (tsubst_expr (TREE_OPERAND (t, 0), args, in_decl), finish_case_label (tsubst_expr (CASE_LOW (t), args, in_decl),
tsubst_expr (TREE_OPERAND (t, 1), args, in_decl)); tsubst_expr (CASE_HIGH (t), args, in_decl));
break; break;
case LABEL_DECL: case LABEL_DECL:
...@@ -4920,47 +4843,47 @@ tsubst_expr (t, args, in_decl) ...@@ -4920,47 +4843,47 @@ tsubst_expr (t, args, in_decl)
case GOTO_STMT: case GOTO_STMT:
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
emit_line_note (input_filename, lineno); finish_goto_stmt (tsubst_expr (GOTO_DESTINATION (t),
if (TREE_CODE (TREE_OPERAND (t, 0)) == IDENTIFIER_NODE) args, in_decl));
{ break;
tree decl = lookup_label (TREE_OPERAND (t, 0));
TREE_USED (decl) = 1; case ASM_STMT:
expand_goto (decl); lineno = TREE_COMPLEXITY (t);
} finish_asm_stmt (tsubst_expr (ASM_CV_QUAL (t), args, in_decl),
else tsubst_expr (ASM_STRING (t), args, in_decl),
expand_computed_goto tsubst_expr (ASM_OUTPUTS (t), args, in_decl),
(tsubst_expr (TREE_OPERAND (t, 0), args, in_decl)); tsubst_expr (ASM_INPUTS (t), args, in_decl),
tsubst_expr (ASM_CLOBBERS (t), args, in_decl));
break; break;
case TRY_BLOCK: case TRY_BLOCK:
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
emit_line_note (input_filename, lineno); begin_try_block ();
expand_start_try_stmts (); tsubst_expr (TRY_STMTS (t), args, in_decl);
tsubst_expr (TREE_OPERAND (t, 0), args, in_decl); finish_try_block (NULL_TREE);
expand_start_all_catch ();
{ {
tree handler = TREE_OPERAND (t, 1); tree handler = TRY_HANDLERS (t);
for (; handler; handler = TREE_CHAIN (handler)) for (; handler; handler = TREE_CHAIN (handler))
tsubst_expr (handler, args, in_decl); tsubst_expr (handler, args, in_decl);
} }
expand_end_all_catch (); finish_handler_sequence (NULL_TREE);
break; break;
case HANDLER: case HANDLER:
lineno = TREE_COMPLEXITY (t); lineno = TREE_COMPLEXITY (t);
do_pushlevel (); begin_handler ();
if (TREE_OPERAND (t, 0)) if (HANDLER_PARMS (t))
{ {
tree d = TREE_OPERAND (t, 0); tree d = HANDLER_PARMS (t);
expand_start_catch_block expand_start_catch_block
(tsubst (TREE_OPERAND (d, 1), args, in_decl), (tsubst (TREE_OPERAND (d, 1), args, in_decl),
tsubst (TREE_OPERAND (d, 0), args, in_decl)); tsubst (TREE_OPERAND (d, 0), args, in_decl));
} }
else else
expand_start_catch_block (NULL_TREE, NULL_TREE); expand_start_catch_block (NULL_TREE, NULL_TREE);
tsubst_expr (TREE_OPERAND (t, 1), args, in_decl); finish_handler_parms (NULL_TREE);
expand_end_catch_block (); tsubst_expr (HANDLER_BODY (t), args, in_decl);
do_poplevel (); finish_handler (NULL_TREE);
break; break;
case TAG_DEFN: case TAG_DEFN:
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment