[hoc-cvs] [hoc commit] r370 - branches/objc2/hoc/HOC_cbits

[<cod...@go...>]

Author: jam...@us...
Date: Tue Dec  9 13:10:33 2008
New Revision: 370

Modified:
    branches/objc2/hoc/HOC_cbits/Exceptions.m

Log:
(objc2 branch) fixed a backward-compatibility issue I previously noted but  
forgot to fix


Modified: branches/objc2/hoc/HOC_cbits/Exceptions.m
==============================================================================
--- branches/objc2/hoc/HOC_cbits/Exceptions.m	(original)
+++ branches/objc2/hoc/HOC_cbits/Exceptions.m	Tue Dec  9 13:10:33 2008
@@ -64,8 +64,11 @@
          clsHOCHaskellException = getClassByName("HOCHaskellException");

          stablePtrIvar = class_getInstanceVariable(clsHOCHaskellException,  
hsExceptionIvarName);
-        #warning TODO - ivar_getOffset needs backport or workaround for  
fact that offsets are no longer in the list
+#ifdef __OBJC2__
          stablePtrOffset = ivar_getOffset(stablePtrIvar);
+#else
+        stablePtrOffset = stablePtrIvar->ivar_offset;
+#endif

          selExceptionWithNameReasonUserInfo =  
getSelectorForName("exceptionWithName:reason:userInfo:");