     ValFunction -> throw InvalidFunctionInTranslateValue
     ValAlias -> throw InvalidAliasInTranslateValue
     ValGlobalvariable -> throw InvalidGlobalVarInTranslateValue
-    ValConstantexpr -> return UnwindInst -- translateConstantExpr finalState (castPtr dataPtr)
+    ValConstantexpr -> translateConstantExpr finalState (castPtr dataPtr)
 
   uid <- nextId
 

      Just err <- cModuleErrorMessage m
      disposeCModule m
      return $ Left err
    False -> do
      ref <- newIORef 0
      res <- evalStateT (mfix (tieKnot m)) (emptyState ref)


module Data.LLVM.Private.Parser.Unmarshal ( parseLLVMBitcodeFile ) where

#include "c++/marshal.h"

import Prelude hiding ( catch )

import Control.Applicative
import Control.DeepSeq
