[svn:parrot] r48555 - branches/gsoc_nci/config/gen/libffi

[ash at svn.parrot.org]

Author: ash
Date: Tue Aug 17 18:47:39 2010
New Revision: 48555
URL: https://trac.parrot.org/parrot/changeset/48555

Log:
A fix to a test case that was failing.

Modified:
   branches/gsoc_nci/config/gen/libffi/nci-ffi.pmc.in

Modified: branches/gsoc_nci/config/gen/libffi/nci-ffi.pmc.in
==============================================================================
--- branches/gsoc_nci/config/gen/libffi/nci-ffi.pmc.in	Tue Aug 17 18:47:31 2010	(r48554)
+++ branches/gsoc_nci/config/gen/libffi/nci-ffi.pmc.in	Tue Aug 17 18:47:39 2010	(r48555)
@@ -1204,7 +1204,7 @@
                         translation_pointers[i] = mem_internal_allocate_zeroed_typed(pmc_holder_t);
                         ((pmc_holder_t*)translation_pointers[i])->p = *(PMC**)pcc_val[i - j_offset];
                         ((pmc_holder_t*)translation_pointers[i])->pval = (void**)mem_internal_allocate_zeroed_typed(void*);
-                        *((pmc_holder_t*)translation_pointers[i])->pval =  PMC_IS_NULL(*(PMC**)pcc_ptr[i - j_offset]) ? 
+                        *((pmc_holder_t*)translation_pointers[i])->pval =  PMC_IS_NULL(*(PMC**)pcc_val[i - j_offset]) ? 
                                     (void *)NULL : (void*)VTABLE_get_pointer(interp, *(PMC**)pcc_val[i - j_offset]);
                         values[i] = &((pmc_holder_t*)translation_pointers[i])->pval;
                         break;
@@ -1213,7 +1213,7 @@
                         values[i] = &translation_pointers[i];
                         break;
                       case 'p':
-                        translation_pointers[i] = PMC_IS_NULL(*(PMC**)pcc_ptr[i - j_offset]) ? 
+                        translation_pointers[i] = PMC_IS_NULL(*(PMC**)pcc_val[i - j_offset]) ? 
                                     (void *)NULL : VTABLE_get_pointer(interp, *(PMC**)pcc_val[i - j_offset]);
                         values[i] = &translation_pointers[i];
                         break;