Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

All NCI Tests pass now.

  • Loading branch information...
commit 5c5aa0f8a646718af061c083bcac86718e188d8c 1 parent f765a61
@ashgti authored
Showing with 4 additions and 3 deletions.
  1. +4 −3 config/gen/libffi/nci-ffi.pmc.in
View
7 config/gen/libffi/nci-ffi.pmc.in
@@ -1191,9 +1191,6 @@ class, the PMC arguments are shifted down.
*((long long**)translation_pointers)[i] = (long long)*(INTVAL*)middle_man[i];
values[i] = translation_pointers[i];
break;
- case 'P':
- middle_man[i] = NULL;
- break;
case 'V':
translation_pointers[i] = mem_internal_allocate_zeroed_typed(pmc_holder_t);
((pmc_holder_t*)translation_pointers[i])->p = *(PMC**)middle_man[i];
@@ -1201,6 +1198,10 @@ class, the PMC arguments are shifted down.
*((pmc_holder_t*)translation_pointers[i])->val = (void*)VTABLE_get_pointer(interp, *(PMC**)middle_man[i]);
values[i] = &((pmc_holder_t*)translation_pointers[i])->val;
break;
+ case 'P':
+ translation_pointers[i] = values[i];
+ values[i] = &translation_pointers[i];
+ break;
case 'p':
translation_pointers[i] = PMC_IS_NULL((PMC*)values[i]) ? (void *)NULL : VTABLE_get_pointer(interp, (PMC*)values[i]);
values[i] = &translation_pointers[i];
Please sign in to comment.
Something went wrong with that request. Please try again.