int reverse;
};
+/* Used to generate bytecodes: keep track of size of local variables,
+ as well as depth of arithmetic stack. (Notice that variables are
+ stored on the machine's stack, not the arithmetic stack.) */
+
+int local_vars_size;
+extern int stack_depth;
+extern int max_stack_depth;
+struct obstack permanent_obstack;
+
+
static rtx enqueue_insn PROTO((rtx, rtx));
static int queued_subexp_p PROTO((rtx));
static void init_queue PROTO((void));
case REAL_CST:
+#if 0
#ifdef DEBUG_PRINT_CODE
fprintf (stderr, " [%g]\n", (double) TREE_INT_CST_LOW (exp));
#endif
+ /* FIX THIS: find a better way to pass real_cst's. -bson */
bc_emit_instruction (mode_to_const_map[TYPE_MODE (TREE_TYPE (exp))],
(double) TREE_REAL_CST (exp));
+#else
+ abort ();
+#endif
+
return;
case CALL_EXPR:
case MODIFY_EXPR:
- expand_assignment (TREE_TYPE (exp), TREE_OPERAND (exp, 0), TREE_OPERAND (exp, 1));
+ expand_assignment (TREE_OPERAND (exp, 0), TREE_OPERAND (exp, 1), 0, 0);
return;
case ADDR_EXPR:
bc_expand_expr (TREE_OPERAND (exp, 0));
bc_expand_truth_conversion (TREE_TYPE (TREE_OPERAND (exp, 0)));
lab = bc_get_bytecode_label ();
- bc_emit_bytecode (jumpifnot);
+ bc_emit_bytecode (xjumpifnot);
bc_emit_bytecode_labelref (lab);
#ifdef DEBUG_PRINT_CODE
case TRUTH_ANDIF_EXPR:
- opcode = jumpifnot;
+ opcode = xjumpifnot;
goto andorif;
case TRUTH_ORIF_EXPR:
- opcode = jumpif;
+ opcode = xjumpif;
goto andorif;
case PLUS_EXPR:
bc_expand_conversion (TREE_TYPE (TREE_OPERAND (exp, 1)), type);
/* Push the address of the lvalue */
- expand_expr (build1 (ADDR_EXPR, TYPE_POINTER_TO (type), TREE_OPERAND (exp, 0)));
+ bc_expand_expr (build1 (ADDR_EXPR, TYPE_POINTER_TO (type), TREE_OPERAND (exp, 0)));
/* Perform actual increment */
- expand_increment (incroptab, type);
+ bc_expand_increment (incroptab, type);
return;
}
\f
int single_insn = 0;
if (output_bytecode)
- return bc_expand_increment (exp, post);
+ {
+ bc_expand_expr (exp);
+ return NULL_RTX;
+ }
/* Stabilize any component ref that might need to be
evaluated more than once below. */
break;
}
- expand_expr (tem);
+ bc_expand_expr (tem);
/* For bitfields also push their offset and size */
if (align > BITS_PER_UNIT)
{
if (!output_bytecode)
- ASM_OUTPUT_ALIGN (asm_out_file, floor_log2 (align / BITS_PER_UNIT));
+ {
+ ASM_OUTPUT_ALIGN (asm_out_file, floor_log2 (align / BITS_PER_UNIT));
+ }
else
- BC_OUTPUT_ALIGN (asm_out_file, floor_log2 (align / BITS_PER_UNIT));
+ {
+ BC_OUTPUT_ALIGN (asm_out_file, floor_log2 (align / BITS_PER_UNIT));
+ }
}
/* Output the label itself. */
}
+#ifdef HANDLE_SYSV_PRAGMA
+
/* Output asm to handle ``#pragma weak'' */
void
handle_pragma_weak (what, asm_out_file, name, value)
else if (! (what == ps_done || what == ps_start))
warning ("malformed `#pragma weak'");
}
+
+#endif /* HANDLE_SYSV_PRAGMA */