fix an out-by-one for line directives at the beginning of the file

This commit is contained in:
Bill Currie 2001-06-11 17:51:09 +00:00
parent c732d098f4
commit dfb6062f9d

View file

@ -131,9 +131,11 @@ PR_NewLine (void)
pr_file_p++; pr_file_p++;
if (!*pr_file_p) if (!*pr_file_p)
PR_ParseError ("Unexpected end of file"); PR_ParseError ("Unexpected end of file");
m = false; pr_source_line = line - (m != false);
pr_source_line = line - 1;
s_file = ReuseString (pr_immediate_string); s_file = ReuseString (pr_immediate_string);
if (!m)
pr_file_p++;
m = false;
} }
pr_source_line++; pr_source_line++;