statinout()
xxputsin(@Expr.s@,)
xxputsin(@Statseq.s@,)
- @i @Statement.node@ = TREENULL;
+
+ @i @Statement.node@ = new_node(O_IF, @Expr.node@, TREENULL);
@i @Statement.vars@ = 0;
+
+ @reg @Statement.node@->reg = @Expr.node@->reg = next_reg((char *)NULL, @Expr.gparamges@);
+ @gen {
+ write_tree(@Statement.node@, 0); burm_label(@Statement.node@); burm_reduce(@Statement.node@, 1);
+ /* TODO: kann ich mir das test wirklich wegan and davor sparen? */
+ printf("\ttest %s1, %%rax\n\tjz if_end\n", "$");
+ }
+ @gen @revorder(1) printf("if_end:\n");
@}
| IF Expr THEN Statseq ELSE Statseq END
@{
statinout()
xxputsin(@Expr.s@,)
+
@i @Statement.vars@ = 0;
@i @Statement.node@ = new_node(O_RET, @Expr.node@, TREENULL);
@reg @Statement.node@->reg = @Expr.node@->reg = next_reg((char *)NULL, @Expr.gparamges@);