Commit a24ede81 authored by simonmar's avatar simonmar

[project @ 2003-08-20 15:10:22 by simonmar]

Don't drop {-# LINE #-} pragmas into the source, because it confuses
CPP's line counts, making them off-by-one.  GHC understands the
CPP-style line pragmas anyhow.
parent 4be58768
......@@ -350,7 +350,14 @@ char **argv; {
/* Prefix the output with line pragmas */
if (prefix_str) {
fprintf(ostream, "#line 1 \"%s\"\n{-# LINE 1 \"%s\" #-}\n", prefix_str, prefix_str);
/* Both GHC and CPP understand the #line pragma.
* We used to throw in both a #line and a {-# LINE #-} pragma
* here, but CPP doesn't understand {-# LINE #-} so it thought
* the line numbers were off by one. We could put the {-# LINE
* #-} before the #line, but there's no point since GHC
* understands #line anyhow. --SDM 8/2003
*/
fprintf(ostream, "#line 1 \"%s\"\n", prefix_str, prefix_str);
}
unlit(file, istream, ostream);
......
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