X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FMachCode.lhs;h=621b9f7e6fb4246f580be8a6d5f94d3c227ceb95;hb=0f3bf3545a6b6da4c891900916b61ba2ca768c6a;hp=2433bb17a1ba0eefec9c96f170fd2890c2a22872;hpb=bbdf493b921f6430a49976588984eee13bb1cd86;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 2433bb1..621b9f7 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -65,6 +65,7 @@ stmt2Instrs stmt = case stmt of
                                                        LABEL lab)))
     StFunEnd lab   -> IF_ARCH_alpha(returnNat (unitOL (FUNEND lab)),
                                     returnNat nilOL)
+
     StLabel lab	   -> returnNat (unitOL (LABEL lab))
 
     StJump arg		   -> genJump arg