Reimplement slot reading.

darcs-hash:bdef9c8f4c3fb2121456295da23fbe679265a15b

1 files changed, 18 insertions, 0 deletions

diff --git a/Objective-C/libobjcl.m b/Objective-C/libobjcl.m
index 87e4c28..f244e50 100644
--- a/Objective-C/libobjcl.m
+++ b/Objective-C/libobjcl.m
@@ -532,6 +532,24 @@ objcl_get_slot_value (id obj, const char *ivar_name, void *value_out)
 }
 
 
+void *
+objcl_get_slot (Class class, const char *ivar_name)
+{
+  return class_getInstanceVariable (class, ivar_name);
+}
+
+
+long
+objcl_get_slot_offset (void *slot)
+{
+#ifdef __NEXT_RUNTIME__
+  return (ivar_getOffset ((Ivar) slot));
+#else
+  return ((Ivar_t) slot)->ivar_offset;
+#endif
+}
+
+
 IVAR_T *
 objcl_class_direct_slots (Class class, unsigned int *count, unsigned int *element_size)
 {