llvm-general 3.3.14.0 → 3.3.14.1
raw patch · 2 files changed
+6/−6 lines, 2 filesdep ~llvm-generaldep ~llvm-general-pure
Dependency ranges changed: llvm-general, llvm-general-pure
Files
llvm-general.cabal view
@@ -1,5 +1,5 @@ name: llvm-general-version: 3.3.14.0+version: 3.3.14.1 license: BSD3 license-file: LICENSE author: Benjamin S.Scarlet <fgthb0@greynode.net>@@ -38,7 +38,7 @@ type: git location: git://github.com/bscarlet/llvm-general.git branch: llvm-3.3- tag: v3.3.14.0+ tag: v3.3.14.1 flag shared-llvm description: link against llvm shared rather than static library@@ -63,7 +63,7 @@ parsec >= 3.1.3, array >= 0.4.0.0, setenv >= 0.1.0,- llvm-general-pure == 3.3.14.0+ llvm-general-pure == 3.3.14.1 extra-libraries: stdc++ hs-source-dirs: src extensions:@@ -203,8 +203,8 @@ HUnit >= 1.2.4.2, test-framework-quickcheck2 >= 0.3.0.1, QuickCheck >= 2.5.1.1,- llvm-general == 3.3.14.0,- llvm-general-pure == 3.3.14.0,+ llvm-general == 3.3.14.1,+ llvm-general-pure == 3.3.14.1, containers >= 0.4.2.1, mtl >= 2.1, transformers >= 0.3.0.0,
src/LLVM/General/Internal/Constant.hs view
@@ -158,7 +158,7 @@ wsp <- liftIO $ FFI.getConstantIntWords c np n <- peek np words <- decodeM (n, wsp)- return $ A.C.Int (A.typeBits t) (foldr (\b a -> (a `shiftL` 64) .|. fromIntegral (b :: Word64)) 0 words)+ return $ A.C.Int (A.typeBits t) (foldr (\b a -> (a `shiftL` 64) .|. fromIntegral b) 0 (words :: [Word64])) [valueSubclassIdP|ConstantFP|] -> do let A.FloatingPointType nBits fmt = t ws <- allocaWords nBits