From 619b17ce5eb96b3cfd5f2d94174270a31e46871c Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 19 Feb 2008 12:54:49 +0100
Subject: Reimplement slot reading.

darcs-hash:bdef9c8f4c3fb2121456295da23fbe679265a15b
---
 Objective-C/libobjcl.m | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'Objective-C/libobjcl.m')

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)
 {
-- 
cgit v1.2.3