[svn:parrot] r49774 - branches/gsoc_nci/src/nci

[plobsing at svn.parrot.org]

Author: plobsing
Date: Thu Nov  4 03:00:45 2010
New Revision: 49774
URL: https://trac.parrot.org/parrot/changeset/49774

Log:
add assert_args

Modified:
   branches/gsoc_nci/src/nci/libffi.c

Modified: branches/gsoc_nci/src/nci/libffi.c
==============================================================================
--- branches/gsoc_nci/src/nci/libffi.c	Wed Nov  3 22:41:25 2010	(r49773)
+++ branches/gsoc_nci/src/nci/libffi.c	Thu Nov  4 03:00:45 2010	(r49774)
@@ -104,6 +104,7 @@
 void
 Parrot_nci_libffi_register(PARROT_INTERP)
 {
+    ASSERT_ARGS(Parrot_nci_libffi_register)
     PMC *iglobals = interp->iglobals;
     PMC *nci_framebuilder_callback = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
     PMC *nci_framebuilder_userdata = PMCNULL;
@@ -120,6 +121,7 @@
 static PMC *
 build_ffi_thunk(PARROT_INTERP, PMC *user_data, STRING *sig_str)
 {
+    ASSERT_ARGS(build_ffi_thunk)
     PMC *thunk              = Parrot_pmc_new(interp, enum_class_ManagedStruct);
     ffi_thunk_t *thunk_data = mem_gc_allocate_zeroed_typed(interp, ffi_thunk_t);
 
@@ -182,6 +184,7 @@
 static ffi_type *
 nci_to_ffi_type(PARROT_INTERP, nci_sig_elem_t nci_t)
 {
+    ASSERT_ARGS(nci_to_ffi_type)
     switch (nci_t) {
       case enum_nci_sig_void:   return &ffi_type_void;
       case enum_nci_sig_null:   return &ffi_type_pointer;
@@ -219,6 +222,7 @@
 static void
 call_ffi_thunk(PARROT_INTERP, PMC *nci_pmc, PMC *self)
 {
+    ASSERT_ARGS(call_ffi_thunk)
     Parrot_NCI_attributes *nci = PARROT_NCI(nci_pmc);
     ffi_thunk_t           *thunk;
 
@@ -532,12 +536,14 @@
 static void
 clone_ffi_thunk(PARROT_INTERP, PMC *thunk, void *thunk_data)
 {
+    ASSERT_ARGS(clone_ffi_thunk)
     /* XXX: TODO */
 }
 
 static void
 free_ffi_thunk(PARROT_INTERP, void *thunk_func, void *thunk_data)
 {
+    ASSERT_ARGS(free_ffi_thunk)
     ffi_thunk_t *thunk = thunk_data;
     if (thunk->arg_types)
         mem_gc_free(interp, thunk->arg_types);