The problem of assembly language.

§1.

void CAssembly::initialise?Usage of CAssembly::initialise:
Generating C - §1(code_generation_target *cgt) {
    METHOD_ADD(cgt, ASSEMBLY_MTID, CAssembly::assembly);
}

void CAssembly::initialise_data?Usage of CAssembly::initialise_data:
Generating C - §4(code_generation *gen) {
}

void CAssembly::begin?Usage of CAssembly::begin:
Generating C - §5(code_generation *gen) {
    CAssembly::initialise_data(gen);
}

void CAssembly::end?Usage of CAssembly::end:
Generating C - §5(code_generation *gen) {
}

§2.

i7val i7_mgl_sp = 0;
#define I7_ASM_STACK_CAPACITY 128
i7val i7_asm_stack[I7_ASM_STACK_CAPACITY];
int i7_asm_stack_pointer = 0;

void i7_debug_stack(char *N) {
//  printf("Called %s: stack %d ", N, i7_asm_stack_pointer);
//  for (int i=0; i<i7_asm_stack_pointer; i++) printf("%d -> ", i7_asm_stack[i]);
//  printf("\n");
}

i7val i7_pull(void) {
    if (i7_asm_stack_pointer <= 0) { printf("Stack underflow\n"); int x = 0; printf("%d", 1/x); return (i7val) 0; }
    return i7_asm_stack[--i7_asm_stack_pointer];
}

void i7_push(i7val x) {
    if (i7_asm_stack_pointer >= I7_ASM_STACK_CAPACITY) { printf("Stack overflow\n"); return; }
    i7_asm_stack[i7_asm_stack_pointer++] = x;
}

• This is part of the extract file inform7_clib.h.

§3.

void CAssembly::assembly?Usage of CAssembly::assembly:
§1(code_generation_target *cgt, code_generation *gen,
    text_stream *opcode, int operand_count, inter_tree_node **operands,
    inter_tree_node *label, int label_sense) {
    text_stream *OUT = CodeGen::current(gen);

    int vararg_operands_from = 0, vararg_operands_to = 0;
    int store_this_operand[MAX_OPERANDS_IN_INTER_ASSEMBLY];
    for (int i=0; i<16; i++) store_this_operand[i] = FALSE;
    if (Str::eq(opcode, I"@acos")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@add")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@aload")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@aloadb")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@aloads")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@asin")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@atan")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@binarysearch")) store_this_operand[8] = TRUE;
    if (Str::eq(opcode, I"@ceil")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@call")) {
        store_this_operand[3] = TRUE;
        vararg_operands_from = 2; vararg_operands_to = operand_count-1;
    }
    if (Str::eq(opcode, I"@copy")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@cos")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@div")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@exp")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@fadd")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@fdiv")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@floor")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@fmod")) {
        store_this_operand[3] = TRUE;
        store_this_operand[4] = TRUE;
    }
    if (Str::eq(opcode, I"@fmul")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@fsub")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@ftonumn")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@ftonumz")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@gestalt")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@glk")) {
        store_this_operand[3] = TRUE;
        vararg_operands_from = 2; vararg_operands_to = operand_count-1;
    }
    if (Str::eq(opcode, I"@log")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@mod")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@mul")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@neg")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@numtof")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@pow")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@random")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@shiftl")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@sin")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@sqrt")) store_this_operand[2] = TRUE;
    if (Str::eq(opcode, I"@sub")) store_this_operand[3] = TRUE;
    if (Str::eq(opcode, I"@tan")) store_this_operand[2] = TRUE;

    int pushed_result = FALSE;

    if (Str::eq(opcode, I"@return")) WRITE("return ");
    else {
		if (vararg_operands_from > 0) {
			WRITE("for (int i=i7_mgl_local__vararg_count-1; i>=0; i--) i7_push(i7_mgl__varargs.args[i]);\n");
		}
        if (label_sense != NOT_APPLICABLE) WRITE("if (");
        CNamespace::mangle_opcode(cgt, OUT, opcode);
    }
    WRITE("(");

    for (int opc = 1; opc <= operand_count; opc++) {
        if (opc > 1) WRITE(", ");
        TEMPORARY_TEXT(write_to)
        CodeGen::select_temporary(gen, write_to);
        CodeGen::FC::frame(gen, operands[opc-1]);
        CodeGen::deselect_temporary(gen);
		if (opc == vararg_operands_from) WRITE(" i7_mgl_local__vararg_count ");
		else {
        if (store_this_operand[opc]) {
            if (Str::eq(write_to, I"i7_mgl_sp")) { WRITE("&%S", write_to); pushed_result = TRUE; }
            else if (Str::eq(write_to, I"0")) WRITE("NULL");
            else WRITE("&%S", write_to);
        } else {
            if (Str::eq(write_to, I"i7_mgl_sp")) { WRITE("i7_pull()"); }
            else WRITE("%S", write_to);
        }
		}
		if (opc == vararg_operands_to) {
			for (int x = 0; x < 10 - (vararg_operands_to - vararg_operands_from + 1); x++) WRITE(", 0");
			WRITE(" } ");
		}
        DISCARD_TEXT(write_to)
    }
    WRITE(")");
    if (label_sense != NOT_APPLICABLE) {
        if (label_sense == FALSE) WRITE(" == FALSE");
        WRITE(") goto ");
        if (label == NULL) internal_error("no branch label");
        CodeGen::FC::frame(gen, label);
    }
    if (pushed_result) WRITE("; i7_push(i7_mgl_sp)");

}

§4.

void glulx_accelfunc(i7val x, i7val y) {
    printf("Unimplemented: glulx_accelfunc.\n");
    i7_fatal_exit();
}

void glulx_accelparam(i7val x, i7val y) {
    printf("Unimplemented: glulx_accelparam.\n");
    i7_fatal_exit();
}

void glulx_copy(i7val x, i7val *y) {
    i7_debug_stack("glulx_copy");
    if (y) *y = x;
}

void glulx_gestalt(i7val x, i7val y, i7val *z) {
    *z = 1;
}

int glulx_jeq(i7val x, i7val y) {
    if (x == y) return 1;
    return 0;
}

void glulx_nop(void) {
}

int glulx_jleu(i7val x, i7val y) {
    i7uval ux, uy;
    *((i7val *) &ux) = x; *((i7val *) &uy) = y;
    if (ux <= uy) return 1;
    return 0;
}

int glulx_jnz(i7val x) {
    if (x != 0) return 1;
    return 0;
}

int glulx_jz(i7val x) {
    if (x == 0) return 1;
    return 0;
}

void glulx_quit(void) {
    i7_fatal_exit();
}

void glulx_setiosys(i7val x, i7val y) {
    // Deliberately ignored: we are using stdout, not glk
}

void i7_print_char(i7val x);
void glulx_streamchar(i7val x) {
    i7_print_char(x);
}

void i7_print_decimal(i7val x);
void glulx_streamnum(i7val x) {
    i7_print_decimal(x);
}

void glulx_streamstr(i7val x) {
    printf("Unimplemented: glulx_streamstr.\n");
    i7_fatal_exit();
}

void glulx_streamunichar(i7val x) {
    i7_print_char(x);
}

void glulx_ushiftr(i7val x, i7val y, i7val z) {
    printf("Unimplemented: glulx_ushiftr.\n");
    i7_fatal_exit();
}

void glulx_aload(i7val x, i7val y, i7val *z) {
    printf("Unimplemented: glulx_aload\n");
    i7_fatal_exit();
}

void glulx_aloadb(i7val x, i7val y, i7val *z) {
    printf("Unimplemented: glulx_aloadb\n");
    i7_fatal_exit();
}

void glulx_aloads(i7val x, i7val y, i7val *z) {
    printf("Unimplemented: glulx_aloads\n");
    i7_fatal_exit();
}

void glulx_binarysearch(i7val l1, i7val l2, i7val l3, i7val l4, i7val l5, i7val l6, i7val l7, i7val *s1) {
    printf("Unimplemented: glulx_binarysearch\n");
    i7_fatal_exit();
}

void glulx_shiftl(i7val x, i7val y, i7val *z) {
    printf("Unimplemented: glulx_shiftl\n");
    i7_fatal_exit();
}

• This is part of the extract file inform7_clib.h.