Commit ca9945d0 authored by sof's avatar sof

[project @ 2003-10-01 16:45:10 by sof]

outCLine: Use "#line n <filename>", not "# n <filename>". The latter
          isn't ISO (and causes breakage when compiling output with
	  MSVC.)
parent d3581a6a
{-# OPTIONS -fglasgow-exts #-} {-# OPTIONS -fglasgow-exts #-}
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- $Id: Main.hs,v 1.48 2003/08/27 14:11:17 panne Exp $ -- $Id: Main.hs,v 1.49 2003/10/01 16:45:10 sof Exp $
-- --
-- Program for converting .hsc files to .hs files, by converting the -- Program for converting .hsc files to .hs files, by converting the
-- file into a C program which is run to generate the Haskell source. -- file into a C program which is run to generate the Haskell source.
...@@ -775,7 +775,7 @@ conditional _ = False ...@@ -775,7 +775,7 @@ conditional _ = False
outCLine :: SourcePos -> String outCLine :: SourcePos -> String
outCLine (SourcePos name line) = outCLine (SourcePos name line) =
"# "++show line++" \""++showCString (snd (splitName name))++"\"\n" "#line "++show line++" \""++showCString (snd (splitName name))++"\"\n"
outHsLine :: SourcePos -> String outHsLine :: SourcePos -> String
outHsLine (SourcePos name line) = outHsLine (SourcePos name line) =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment