various fixes

Author: ncannasse

src/jit_dump.c

@@ -222,7 +222,7 @@ static void dump_value( jit_ctx *ctx, uint64 value, emit_mode mode ) {
 	default:
 		if( value == 0 )
 			printf("NULL");
-		else if( mode == M_PTR && value >= (uint64)code->types && value < (uint64)(code->types + code->ntypes) )
+		else if( mode == M_PTR && value >= (uint64)code->types && value < (uint64)(code->types + code->ntypes) && (((char*)value-(char*)code->types) % sizeof(hl_type)) == 0 )
 			uprintf(USTR("<%s>"),hl_type_str((hl_type*)value));
 		else if( mode == M_PTR && value == (uint64)mod->globals_data )
 			printf("<globals>");

src/jit_emit.c

@@ -1708,7 +1708,7 @@ static void emit_opcode( emit_ctx *ctx, hl_opcode *o ) {
 					STORE_MEM(field, 0, val);
 					int jend = emit_jump(ctx, false);
 					patch_jump(ctx, jidx);
-					bool need_type = dyn_need_type(dst->t);
+					bool need_type = dyn_need_type(rb->t);
 					ereg args[4];
 					args[0] = obj;
 					args[1] = LOAD_CONST(dst->t->virt->fields[o->p2].hashed_name,&hlt_i32);
@@ -1718,7 +1718,7 @@ static void emit_opcode( emit_ctx *ctx, hl_opcode *o ) {
 					} else {
 						args[2] = val;
 					}
-					emit_native_call(ctx,get_dynset(dst->t),args,need_type?4:3,dst->t);
+					emit_native_call(ctx,get_dynset(rb->t),args,need_type?4:3,dst->t);
 					patch_jump(ctx, jend);
 				}
 				break;

src/jit_regs.c

@@ -766,6 +766,13 @@ void hl_regs_function( jit_ctx *jit ) {
 			v->mode = M_NONE;
 		}
 	}
+	for(int b=0;b<jit->block_count;b++) {
+		eblock *bl = jit->blocks + b;
+		for(int p=0;p<bl->phi_count;p++) {
+			ephi *ph = bl->phis + p;
+			VAL_REG(ph->value)->mode = ph->mode;
+		}
+	}
 	regs_compute_liveness(ctx);
 	regs_assign_regs(ctx);
 	regs_emit_instrs(ctx);