- be_emit_cstring("\tbhi ");
- arm_emit_cfop_target(default_proj);
- be_emit_finish_line_gas(default_proj);
-
- /*
- LDR %r12, .TABLE_X_START
- ADD %r12, %r12, [%1S, LSL #2]
- LDR %r15, %r12
- */
-
- be_emit_irprintf("\tldr %%r12, TABLE_%d_START", block_nr);
- be_emit_finish_line_gas(NULL);
-
- be_emit_irprintf("\tadd %%r12, %%r12, ");
- arm_emit_source_register(irn, 0);
- be_emit_cstring(", LSL #2");
- be_emit_finish_line_gas(NULL);
-
- be_emit_cstring("\tldr %r15, [%r12, #0]");
- be_emit_finish_line_gas(NULL);
-
- be_emit_irprintf("TABLE_%d_START:\n\t.word\tTABLE_%d", block_nr, block_nr);
- be_emit_finish_line_gas(NULL);
- be_emit_irprintf("\t.align 2");
- be_emit_finish_line_gas(NULL);
- be_emit_irprintf("TABLE_%d:", block_nr);
- be_emit_finish_line_gas(NULL);
-
- for (i = 0; i < n_projs; ++i) {
- proj = projs[i];
- if (proj == NULL) {
- proj = projs[get_arm_SwitchJmp_default_proj_num(irn)];
- }
- be_emit_cstring("\t.word\t");
- arm_emit_cfop_target(proj);
- be_emit_finish_line_gas(proj);
- }
- be_emit_irprintf("\t.align 2\n");
- be_emit_finish_line_gas(NULL);
- xfree(projs);
-}
-
-
-static void arm_emit_entity(ir_entity *entity)
-{
- be_emit_ident(get_entity_ld_ident(entity));
-}
-
-static void emit_be_Call(const ir_node *irn)
-{
- ir_entity *entity = be_Call_get_entity(irn);
-
- if (entity != NULL) {
- be_emit_cstring("\tbl ");
- arm_emit_entity(entity);
- be_emit_finish_line_gas(irn);
- } else {
- be_emit_cstring("\tmov lr, pc");
- be_emit_finish_line_gas(irn);
- be_emit_cstring("\tmov pc, ");
- arm_emit_source_register(irn, be_pos_Call_ptr);
- be_emit_finish_line_gas(irn);
- }