[hoc-cvs] [hoc commit] r362 - branches/objc2/hoc/HOC/HOC

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

Author: jam...@us...
Date: Sat Dec  6 04:27:17 2008
New Revision: 362

Modified:
    branches/objc2/hoc/HOC/HOC/NewClass.hs

Log:
Removed now-unneeded defaultIvarSize definition and export from NewClass.hs



Modified: branches/objc2/hoc/HOC/HOC/NewClass.hs
==============================================================================
--- branches/objc2/hoc/HOC/HOC/NewClass.hs	(original)
+++ branches/objc2/hoc/HOC/HOC/NewClass.hs	Sat Dec  6 04:27:17 2008
@@ -9,7 +9,6 @@
          setIvarInList,
          setMethodInList,
          makeDefaultIvarList,
-        defaultIvarSize,
          setHaskellRetainMethod,
          setHaskellReleaseMethod,
          setHaskellDataMethod
@@ -94,8 +93,6 @@
          (fromIntegral $ sizeOf nullPtr)
          (fromIntegral $ alignment nullPtr)
      return list
-
-defaultIvarSize = 4 :: Int

  retainSelector = getSelectorForName "retain"
  retainCif = getCifForSelector (undefined :: ID () -> IO (ID ()))