浏览代码

correctly report line 1 instead of line 0 for errors on first line

Nicolas Cannasse 13 年之前
父节点
当前提交
4965f733a3
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lexer.mll

+ 2 - 2
lexer.mll

@@ -53,8 +53,8 @@ let make_file file =
 		lfile = file;
 		lfile = file;
 		lline = 1;
 		lline = 1;
 		lmaxline = 1;
 		lmaxline = 1;
-		llines = [0,0];
-		lalines = [|0,0|];
+		llines = [0,1];
+		lalines = [|0,1|];
 	}
 	}