Commit 33918805 authored by Michael D. Adams's avatar Michael D. Adams
Browse files

Warning Police

parent c5fe1e7b
......@@ -18,7 +18,6 @@ import Cmm
import CmmUtils
import CLabel
import MachOp
import SMRep
import StaticFlags
import UniqFM
......
......@@ -20,16 +20,13 @@ import CgBindery
import CgMonad
import CgInfoTbls
import CgUtils
import ForeignCall
import Cmm
import CLabel
import CmmUtils
import MachOp
import SMRep
import PrimOp
import SMRep
import Constants
import StaticFlags
import Outputable
-- ---------------------------------------------------------------------------
......
......@@ -168,9 +168,9 @@ assembleBCO (ProtoBCO nm instrs bitmap bsize arity origin malloced)
-- when (notNull malloced) (addFinalizer ul_bco (mapM_ zonk malloced))
return ul_bco
where
zonk ptr = do -- putStrLn ("freeing malloc'd block at " ++ show (A# a#))
free ptr
-- where
-- zonk ptr = do -- putStrLn ("freeing malloc'd block at " ++ show (A# a#))
-- free ptr
mkBitmapArray :: Int -> [StgWord] -> UArray Int StgWord
mkBitmapArray bsize bitmap
......
......@@ -396,7 +396,6 @@ genMachCode cmm_top
= do { initial_us <- getUs
; let initial_st = mkNatM_State initial_us 0
(new_tops, final_st) = initNat initial_st (cmmTopCodeGen cmm_top)
final_us = natm_us final_st
final_delta = natm_delta final_st
final_imports = natm_imports final_st
; if final_delta == 0
......
......@@ -42,7 +42,6 @@ import FastTypes ( isFastTrue )
import Constants ( wORD_SIZE )
#ifdef DEBUG
import Outputable ( assertPanic )
import Debug.Trace ( trace )
#endif
......
......@@ -102,7 +102,6 @@ import Outputable
#ifndef DEBUG
import Data.Maybe ( fromJust )
#endif
import Data.Maybe ( fromMaybe )
import Data.List ( nub, partition, mapAccumL, groupBy )
import Control.Monad ( when )
import Data.Word
......@@ -453,7 +452,7 @@ linearRegAlloc block_live sccs = linearRA_SCCs emptyBlockMap emptyStackMap sccs
(CyclicSCC blocks : sccs)
= getUs `thenUs` \us ->
let
((block_assig', stack', us'), blocks') = mapAccumL processBlock
((block_assig', stack', _), blocks') = mapAccumL processBlock
(block_assig, stack, us)
({-reverse-} blocks)
in
......@@ -968,7 +967,7 @@ spillR reg temp = RegM $ \ s@RA_State{ra_delta=delta, ra_stack=stack} ->
(# s{ra_stack=stack'}, (instr,slot) #)
loadR :: Reg -> Int -> RegM Instr
loadR reg slot = RegM $ \ s@RA_State{ra_delta=delta, ra_stack=stack} ->
loadR reg slot = RegM $ \ s@RA_State{ra_delta=delta} ->
(# s, mkLoadInstr reg delta slot #)
getFreeRegsR :: RegM FreeRegs
......@@ -987,14 +986,6 @@ setAssigR :: RegMap Loc -> RegM ()
setAssigR assig = RegM $ \ s ->
(# s{ra_assig=assig}, () #)
getStackR :: RegM StackMap
getStackR = RegM $ \ s@RA_State{ra_stack = stack} ->
(# s, stack #)
setStackR :: StackMap -> RegM ()
setStackR stack = RegM $ \ s ->
(# s{ra_stack=stack}, () #)
getBlockAssigR :: RegM BlockAssignment
getBlockAssigR = RegM $ \ s@RA_State{ra_blockassig = assig} ->
(# s, assig #)
......
......@@ -89,10 +89,6 @@ import BasicTypes (Boxity(..))
import Outputable
import FastString
-- FIXME: fro debugging - remove this
import Debug.Trace (trace)
-- standard
import Monad (liftM, foldM)
......
......@@ -45,7 +45,6 @@ import Foreign
import System.IO ( hGetBuf, hFileSize,IOMode(ReadMode), hClose
, Handle, hTell )
import GHC.Ptr ( Ptr(..) )
import GHC.Exts
import GHC.IOBase ( IO(..) )
import GHC.Base ( unsafeChr )
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment