diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-11-16 13:54:52 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-11-16 14:48:56 +0000 |
| commit | 80269ef4899252e22319e9223b6c50df5600ccd3 (patch) | |
| tree | ea368d17c8623b41f466d1efe3dcedbe59197527 /compiler/cmm | |
| parent | 4ee5e3b2469c2919b33854ad5cdbbce895733db5 (diff) | |
| download | haskell-80269ef4899252e22319e9223b6c50df5600ccd3.tar.gz | |
fix syntax error in generated C (#7407)
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/PprC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index 1fe3872091..4e73ade7ba 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -295,8 +295,8 @@ pprBranch ident = ptext (sLit "goto") <+> pprBlockId ident <> semi pprCondBranch :: CmmExpr -> BlockId -> BlockId -> SDoc pprCondBranch expr yes no = hsep [ ptext (sLit "if") , parens(pprExpr expr) , - ptext (sLit "goto"), pprBlockId yes, - ptext (sLit "else"), pprBlockId no <> semi ] + ptext (sLit "goto"), pprBlockId yes <> semi, + ptext (sLit "else goto"), pprBlockId no <> semi ] -- --------------------------------------------------------------------- -- a local table branch |