From a3ef85dc301454c108ba5e97a4ff5cf0a24e8acb Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 17 Feb 2008 17:08:25 +0100 Subject: Minor cleanups. darcs-hash:57b1ce2455369fba915bd730fe63eacb3e169a25 --- Objective-C/libobjcl.m | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'Objective-C') diff --git a/Objective-C/libobjcl.m b/Objective-C/libobjcl.m index 43190f6..7b69d46 100644 --- a/Objective-C/libobjcl.m +++ b/Objective-C/libobjcl.m @@ -734,6 +734,14 @@ objcl_create_class (const char *class_name, argv[3 + 2*i + 1] = (void *) &ivar_typespecs[i]; } + TRACE (@"Arg 0: %s", *((char **) argv[0])); + TRACE (@"Arg 1: %s", *((char **) argv[1])); + TRACE (@"Arg 2: %d", *((int *) argv[2])); + for (i = 3; i < 3 + 2*ivar_number; i++) + { + TRACE (@"Arg %d: %s", i, *((char **) argv[i])); + } + status = ffi_prep_cif (&cif, FFI_DEFAULT_ABI, ivar_number*2 + 3, &ffi_type_uchar, arg_types); if (status != FFI_OK) { @@ -742,7 +750,9 @@ objcl_create_class (const char *class_name, userInfo: nil] raise]; } + TRACE (@"ObjcUtilities_new_class"); ffi_call (&cif, FFI_FN (ObjcUtilities_new_class), &return_value, argv); + TRACE (@"ObjcUtilities_new_class end"); NSString *ns_class_name = [NSString stringWithUTF8String: class_name]; [method_lists setObject: -- cgit v1.2.3