diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-12-03 12:44:03 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-12-03 12:44:03 -0600 |
| commit | 0c48e172836d6a1e281aed63e42d60063700e6d8 (patch) | |
| tree | 89fe135e31e86dc579aba5652738f14c256a284d /compiler/utils/FastMutInt.lhs | |
| parent | b04296d3a3a256067787241a7727877e35e5af03 (diff) | |
| download | haskell-0c48e172836d6a1e281aed63e42d60063700e6d8.tar.gz | |
compiler: de-lhs utils/
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'compiler/utils/FastMutInt.lhs')
| -rw-r--r-- | compiler/utils/FastMutInt.lhs | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/compiler/utils/FastMutInt.lhs b/compiler/utils/FastMutInt.lhs deleted file mode 100644 index e866aa5d38..0000000000 --- a/compiler/utils/FastMutInt.lhs +++ /dev/null @@ -1,68 +0,0 @@ -\begin{code} -{-# LANGUAGE CPP, BangPatterns, MagicHash, UnboxedTuples #-} -{-# OPTIONS_GHC -O #-} --- We always optimise this, otherwise performance of a non-optimised --- compiler is severely affected --- --- (c) The University of Glasgow 2002-2006 --- --- Unboxed mutable Ints - -module FastMutInt( - FastMutInt, newFastMutInt, - readFastMutInt, writeFastMutInt, - - FastMutPtr, newFastMutPtr, - readFastMutPtr, writeFastMutPtr - ) where - - -#include "../includes/MachDeps.h" -#ifndef SIZEOF_HSINT -#define SIZEOF_HSINT INT_SIZE_IN_BYTES -#endif - -import GHC.Base -import GHC.Ptr - -newFastMutInt :: IO FastMutInt -readFastMutInt :: FastMutInt -> IO Int -writeFastMutInt :: FastMutInt -> Int -> IO () - -newFastMutPtr :: IO FastMutPtr -readFastMutPtr :: FastMutPtr -> IO (Ptr a) -writeFastMutPtr :: FastMutPtr -> Ptr a -> IO () -\end{code} - -\begin{code} -data FastMutInt = FastMutInt (MutableByteArray# RealWorld) - -newFastMutInt = IO $ \s -> - case newByteArray# size s of { (# s, arr #) -> - (# s, FastMutInt arr #) } - where !(I# size) = SIZEOF_HSINT - -readFastMutInt (FastMutInt arr) = IO $ \s -> - case readIntArray# arr 0# s of { (# s, i #) -> - (# s, I# i #) } - -writeFastMutInt (FastMutInt arr) (I# i) = IO $ \s -> - case writeIntArray# arr 0# i s of { s -> - (# s, () #) } - -data FastMutPtr = FastMutPtr (MutableByteArray# RealWorld) - -newFastMutPtr = IO $ \s -> - case newByteArray# size s of { (# s, arr #) -> - (# s, FastMutPtr arr #) } - where !(I# size) = SIZEOF_VOID_P - -readFastMutPtr (FastMutPtr arr) = IO $ \s -> - case readAddrArray# arr 0# s of { (# s, i #) -> - (# s, Ptr i #) } - -writeFastMutPtr (FastMutPtr arr) (Ptr i) = IO $ \s -> - case writeAddrArray# arr 0# i s of { s -> - (# s, () #) } -\end{code} - |