debug: remove #ifdef's and use dumb logger

[mate.git] / Mate / GarbageAlloc.hs

diff --git a/Mate/GarbageAlloc.hs b/Mate/GarbageAlloc.hs
index aa2ed3f12c5377ae8943b6bcdaf4f54c4911818b..617e571ba6d1407d7ad99200e4724478b94a6a6d 100644 (file)
--- a/Mate/GarbageAlloc.hs
+++ b/Mate/GarbageAlloc.hs
@@ -1,6 +1,4 @@
 {-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE CPP #-}
-#include "debug.h"
 module Mate.GarbageAlloc(
     mallocClassData,
     mallocStringGC,
@@ -16,9 +14,6 @@ import Foreign.C
 
 import Mate.GC.Boehm
 
-#ifdef DBG_STR
-import Text.Printf
-#endif
 import Mate.Debug
 
 -- unified place for allocating Memory
@@ -26,32 +21,32 @@ import Mate.Debug
 
 mallocClassData :: Int -> IO (Ptr a)
 mallocClassData size = do
-  printfStr "mallocClassData: %d\n" size
+  printfStr $ printf "mallocClassData: %d\n" size
   mem <- mallocBytes size
   addRootGC mem (plusPtr mem size)
   return mem
 
 mallocStringGC :: Int -> IO (Ptr a)
 mallocStringGC size = do
-  printfStr "mallocString: %d\n" size
+  printfStr $ printf "mallocString: %d\n" size
   mallocBytesGC size
 
 foreign export ccall mallocObjectGC :: Int -> IO CPtrdiff
 mallocObjectGC :: Int -> IO CPtrdiff
 mallocObjectGC size = do
   ptr <- mallocBytesGC size
-  printfStr "mallocObject: %d\n" size
+  printfStr $ printf "mallocObject: %d\n" size
   return $ fromIntegral $ ptrToIntPtr ptr
 
 mallocObjectUnmanaged :: Int -> IO CPtrdiff
 mallocObjectUnmanaged size = do
   ptr <- mallocBytes size
-  printfStr "mallocObjectUnmanged: %d\n" size
+  printfStr $ printf "mallocObjectUnmanged: %d\n" size
   return $ fromIntegral $ ptrToIntPtr ptr
 
 mallocStringUnmanaged :: Int -> IO (Ptr a)
 mallocStringUnmanaged size = do
-  printfStr "mallocStringUnamaged: %d\n" size
+  printfStr $ printf "mallocStringUnamaged: %d\n" size
   mallocBytes size