Max/nunuhara_xsystem4
1
0
Fork 0
mirror of https://github.com/nunuhara/xsystem4.git synced 2026-10-12 01:08:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #311 from kichikuou/r9-delegate

Browse Source 
Delegate fixes for Rance 9
This commit is contained in:
Nunuhara Cabbage
2026-03-28 22:42:34 -07:00
committed by GitHub
parent 65ff73ca06 197b89620c
commit 547e8158a2
1 changed files with 20 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/vm.c
+20 -3
View File
@@ -421,7 +421,15 @@ static void delegate_call(int dg_no, int return_address)
stack_pop(); // dg_index
stack_pop(); // dg_page
for (int i = ain->delegates[dg_no].nr_variables - 1; i >= 0; i--) {
variable_fini(stack_pop(), ain->delegates[dg_no].variables[i].type.data, true);
union vm_value v = stack_pop();
enum ain_data_type type = ain->delegates[dg_no].variables[i].type.data;
switch (type) {
case AIN_REF_TYPE:
break;
default:
variable_fini(v, type, true);
break;
}
}
if (return_values) {
stack_push(r);
@@ -2298,8 +2306,17 @@ static enum opcode execute_instruction(enum opcode opcode)
}
break;
}
//case DG_NEW:
//case DG_STR_TO_METHOD:
case DG_NEW: {
stack_push(heap_alloc_page(alloc_page(DELEGATE_PAGE, 0, 0)));
break;
}
case DG_STR_TO_METHOD: {
stack_pop(); // delegate type index
int str = stack_pop().i;
stack_push(get_function_by_name(heap_get_string(str)->text));
heap_unref(str);
break;
}
// -- NOOPs ---
case FUNC:
break;