Skip to content

Instantly share code, notes, and snippets.

@tibbe

tibbe/Users of byteArrayContents

Created June 9, 2014 18:15
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tibbe/7ec5ec152299660b848d to your computer and use it in GitHub Desktop.
Save tibbe/7ec5ec152299660b848d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Users of byteArrayContents
./accelerate-0.14.0.0/Data/Array/Accelerate/Array/Data.hs:43:import GHC.Prim (newPinnedByteArray#, byteArrayContents#,
./accelerate-0.14.0.0/Data/Array/Accelerate/Array/Data.hs:631:uArrayPtr (UArray _ _ _ ba) = Ptr (byteArrayContents# ba)
./accelerate-0.14.0.0/Data/Array/Accelerate/Array/Data.hs:641: (# s', ba #) -> (# s', Ptr (byteArrayContents# ba) #)
./ajhc-0.8.0.10/src/RawFiles.hs:60: \ case action (byteArrayContents# barr#) s of { (# s, r #) ->\n\
./base-4.7.0.0/Foreign/Marshal/Alloc.hs:124: let addr = Ptr (byteArrayContents# barr#) in
./base-4.7.0.0/Foreign/Marshal/Alloc.hs:135: let addr = Ptr (byteArrayContents# barr#) in
./base-4.7.0.0/GHC/Conc/Windows.hs:99: asyncRead fd isSock len ((Ptr (byteArrayContents# (unsafeCoerce# bufB))) `plusPtr` off)
./base-4.7.0.0/GHC/Conc/Windows.hs:103: asyncWrite fd isSock len ((Ptr (byteArrayContents# (unsafeCoerce# bufB))) `plusPtr` off)
./base-4.7.0.0/GHC/ForeignPtr.hs:163: (# s', ForeignPtr (byteArrayContents# (unsafeCoerce# mbarr#))
./base-4.7.0.0/GHC/ForeignPtr.hs:178: (# s', ForeignPtr (byteArrayContents# (unsafeCoerce# mbarr#))
./base-4.7.0.0/GHC/ForeignPtr.hs:192: (# s', ForeignPtr (byteArrayContents# (unsafeCoerce# mbarr#))
./base-4.7.0.0/GHC/ForeignPtr.hs:216: (# s', ForeignPtr (byteArrayContents# (unsafeCoerce# mbarr#))
./base-4.7.0.0/GHC/ForeignPtr.hs:231: (# s', ForeignPtr (byteArrayContents# (unsafeCoerce# mbarr#))
./base-4.7.0.0/GHC/ForeignPtr.hs:244: (# s', ForeignPtr (byteArrayContents# (unsafeCoerce# mbarr#))
./binary-0.7.2.1/src/Data/Binary/Class.hs:276: addr = byteArrayContents# ba
./binary-0.7.2.1/src/Data/Binary/Class.hs:285: let to = byteArrayContents# (unsafeCoerce# arr) -- urk, is this safe?
./bytestring-0.10.4.0/Data/ByteString/Short/Internal.hs:71: , byteArrayContents#
./bytestring-0.10.4.0/Data/ByteString/Short/Internal.hs:240: let fp = ForeignPtr (byteArrayContents# (unsafeCoerce# mba#))
./bytestring-builder-0.10.4.0.1/src/Data/ByteString/Short/Internal.hs:71: , byteArrayContents#
./bytestring-builder-0.10.4.0.1/src/Data/ByteString/Short/Internal.hs:240: let fp = ForeignPtr (byteArrayContents# (unsafeCoerce# mba#))
./bytestring-plain-0.1.0.1/Data/ByteString/Plain.hs:125: addr = byteArrayContents# (unsafeCoerce# mbarr#)
./cognimeta-utils-0.1.2/src/Cgm/Data/Array.hs:173: withArrayPtr f arr@(STPrimArray a) = f (Ptr (byteArrayContents# (unsafeCoerce# a))) (arrayLen arr) >>= (<$ (IO $ \s -> (# touch# a s, () #)))
./cognimeta-utils-0.1.2/src/Cgm/Data/Array.hs:194: withArrayPtr f arr@(PrimArray a) = f (Ptr (byteArrayContents# a)) (arrayLen arr) >>= (<$ (IO $ \s -> (# touch# a s, () #)))
./extcore-1.0.2/Language/Core/PrimEnv.hs:176: (zEncodeString "byteArrayContents#", Tapp (Tapp (Tcon tcArrow) ((Tcon (Just primMname, zEncodeString "ByteArray#")))) ((Tcon (Just primMname, zEncodeString "Addr#")))),
./gf-3.5/src/runtime/haskell/Data/Binary.hs:554: addr = byteArrayContents# ba
./gf-3.5/src/runtime/haskell/Data/Binary.hs:563: let to = byteArrayContents# (unsafeCoerce# arr) -- urk, is this safe?
./ghc-prim-0.3.1.0/GHC/Prim.hs:278: byteArrayContents#,
./ghc-prim-0.3.1.0/GHC/Prim.hs:1971:byteArrayContents# :: ByteArray# -> Addr#
./ghc-prim-0.3.1.0/GHC/Prim.hs:1972:byteArrayContents# = let x = x in x
./ghc-prim-0.3.1.0/GHC/PrimopWrappers.hs:444:{-# NOINLINE byteArrayContents# #-}
./ghc-prim-0.3.1.0/GHC/PrimopWrappers.hs:445:byteArrayContents# :: ByteArray# -> Addr#
./ghc-prim-0.3.1.0/GHC/PrimopWrappers.hs:446:byteArrayContents# a1 = (GHC.Prim.byteArrayContents#) a1
./hs-dotnet-0.4.0/NET/Base.hs:1068: let addr = Ptr (byteArrayContents# barr#) in
./lhc-0.10/lib/base/src/Foreign/Marshal/Alloc.hs:117: let addr = Ptr (byteArrayContents# barr#) in
./lhc-0.10/lib/base/src/Foreign/Marshal/Alloc.hs:128: let addr = Ptr (byteArrayContents# barr#) in
./lhc-0.10/lib/base/src/GHC/Conc.lhs:357: !adr = byteArrayContents# ps in
./lhc-0.10/lib/base/src/GHC/Conc.lhs:662: asyncRead fd isSock len ((Ptr (byteArrayContents# (unsafeCoerce# bufB))) `plusPtr` off)
./lhc-0.10/lib/base/src/GHC/Conc.lhs:666: asyncWrite fd isSock len ((Ptr (byteArrayContents# (unsafeCoerce# bufB))) `plusPtr` off)
./lhc-0.10/lib/base/src/GHC/ForeignPtr.hs:159: (# s', ForeignPtr (byteArrayContents# (unsafeCoerce# mbarr#))
./lhc-0.10/lib/base/src/GHC/ForeignPtr.hs:174: (# s', ForeignPtr (byteArrayContents# (unsafeCoerce# mbarr#))
./lhc-0.10/lib/base/src/GHC/ForeignPtr.hs:198: (# s', ForeignPtr (byteArrayContents# (unsafeCoerce# mbarr#))
./lhc-0.10/lib/base/src/GHC/ForeignPtr.hs:213: (# s', ForeignPtr (byteArrayContents# (unsafeCoerce# mbarr#))
./lhc-0.10/lib/ghc-prim/GHC/PrimopWrappers.hs:358:{-# NOINLINE byteArrayContents# #-}
./lhc-0.10/lib/ghc-prim/GHC/PrimopWrappers.hs:359:byteArrayContents# :: ByteArray# -> Addr#
./lhc-0.10/lib/ghc-prim/GHC/PrimopWrappers.hs:360:byteArrayContents# a1 = (GHC.Prim.byteArrayContents#) a1
./lhc-0.10/src/Grin/Eval/Primitives.hs:107: , unsafeFreezeByteArray, byteArrayContents
./lhc-0.10/src/Grin/Eval/Primitives.hs:248:byteArrayContents
./lhc-0.10/src/Grin/Eval/Primitives.hs:249: = mkPrimitive "byteArrayContents#" $ return $ \(PtrArg ptr) ->
./lhc-0.10/src/Grin/HPT/Environment.hs:139: ,"narrow8Int#", "byteArrayContents#","touch#"
./lhc-0.10/src/Grin/Stage2/Backend/C.hs:173: , "byteArrayContents#" ~> \[arg] -> out [ ppRenamed arg ]
./lhc-0.10/src/Grin/Stage2/Backend/C.hs:579:ppExpression (bind:_) (Application (Builtin "byteArrayContents#") [addr])
./mersenne-random-pure64-0.2.0.4/System/Random/Mersenne/Pure64/MTBlock.hs:52:blockAsPtr (MTBlock b) = Ptr (byteArrayContents# b)
./MonadCatchIO-mtl-foreign-0.1/src/Control/Monad/CatchIO/Foreign.hs:52: r <- k $ case P.byteArrayContents ba of
./MonadCatchIO-transformers-foreign-0.1/src/Control/Monad/CatchIO/Foreign.hs:52: r <- k $ case P.byteArrayContents ba of
./primitive-0.5.3.0/Data/Primitive/ByteArray.hs:33: byteArrayContents, mutableByteArrayContents
./primitive-0.5.3.0/Data/Primitive/ByteArray.hs:85:byteArrayContents :: ByteArray -> Addr
./primitive-0.5.3.0/Data/Primitive/ByteArray.hs:86:{-# INLINE byteArrayContents #-}
./primitive-0.5.3.0/Data/Primitive/ByteArray.hs:87:byteArrayContents (ByteArray arr#) = Addr (byteArrayContents# arr#)
./primitive-0.5.3.0/Data/Primitive/ByteArray.hs:95: = Addr (byteArrayContents# (unsafeCoerce# arr#))
./smallarray-0.2.2.4/Data/ByteArray.hs:171: = case byteArrayContents# (unArray a) of
./utf8-light-0.4.2/src/Codec/Binary/UTF8/Light.hs:561:byteArrayContents# :: ByteArr# -> Addr#
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment