diff options
| author | David Waern <david.waern@gmail.com> | 2011-06-13 19:02:56 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2011-06-13 19:02:56 +0000 |
| commit | c217a75cf49d555228dfef43f4af0b8d23bd80e7 (patch) | |
| tree | 06f2ec255c4f0429b2058cbc167f9017a0074159 /compiler/codeGen/CgMonad.lhs | |
| parent | a14dbda0655025e2a9a9929147075282c1795dfd (diff) | |
| parent | 5b1053897fa16ced293e749447e9c027d15d29f5 (diff) | |
| download | haskell-c217a75cf49d555228dfef43f4af0b8d23bd80e7.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
Diffstat (limited to 'compiler/codeGen/CgMonad.lhs')
| -rw-r--r-- | compiler/codeGen/CgMonad.lhs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/codeGen/CgMonad.lhs b/compiler/codeGen/CgMonad.lhs index 8a3b664fc1..900b6d9b85 100644 --- a/compiler/codeGen/CgMonad.lhs +++ b/compiler/codeGen/CgMonad.lhs @@ -701,6 +701,8 @@ whenC :: Bool -> Code -> Code whenC True code = code whenC False _ = nopC +-- Corresponds to 'emit' in new code generator with a smart constructor +-- from cmm/MkGraph.hs stmtC :: CmmStmt -> Code stmtC stmt = emitCgStmt (CgStmt stmt) |