X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCmmParse.y;h=ff6358da31dbf0aa5996aabf6cbb17fa2655b238;hp=c3a37b2f23603fd8ad79da74f42a04b978c2debf;hb=2fe38b5fb0957f9428864afd69ad3ccd82fae3d0;hpb=edc033b1b0e4ed4dccfaeb59a68b3e49b569d6ea

diff --git a/compiler/cmm/CmmParse.y b/compiler/cmm/CmmParse.y
index c3a37b2..ff6358d 100644
--- a/compiler/cmm/CmmParse.y
+++ b/compiler/cmm/CmmParse.y
@@ -1025,7 +1025,7 @@ parseCmmFile dflags filename = do
   showPass dflags "ParseCmm"
   buf <- hGetStringBuffer filename
   let
-	init_loc = mkSrcLoc (mkFastString filename) 1 0
+	init_loc = mkSrcLoc (mkFastString filename) 1 1
 	init_state = (mkPState buf init_loc dflags) { lex_state = [0] }
 		-- reset the lex_state: the Lexer monad leaves some stuff
 		-- in there we don't want.