diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-11-19 13:06:41 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-11-19 13:06:41 +0000 |
| commit | 31c07174b34e999d69870b04cba5780f6d842ada (patch) | |
| tree | 57a8b079f6cde480bea8b47545e43d40a78671a7 | |
| parent | 7da13762664c1bec8e2a1ee5c7106cca3b32a98f (diff) | |
| download | haskell-31c07174b34e999d69870b04cba5780f6d842ada.tar.gz | |
C backend: put the entry block first
| -rw-r--r-- | compiler/cmm/PprC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index ed99855065..f323097290 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -102,7 +102,7 @@ pprTop (CmmProc infos clbl _ graph) = rbrace ] ) where - blocks = toBlockList graph + blocks = toBlockListEntryFirst graph (temp_decls, extern_decls) = pprTempAndExternDecls blocks |