X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=931a30724697a03476cff779779b3385bad5f2b4;hp=82566471b9a11b929d832f2d51ef355aa4d23dfc;hb=HEAD;hpb=b240f3d0e4bce4ee89a7678b9b802bcde9f1d797

diff --git a/src/oberon.c b/src/oberon.c
index 8256647..931a307 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -390,6 +390,7 @@ oberon_init_scaner(oberon_context_t * ctx, oberon_scanner_t * s)
 	ctx -> xloc.col = 1;
 	ctx -> loc = ctx -> xloc;
 	ctx -> c = ctx -> code[ctx -> code_index];
+	oberon_set_line(ctx, 1);
 }
 
 static void
@@ -721,12 +722,14 @@ oberon_get_lined_char(oberon_context_t * ctx)
 			}
 			ctx -> xloc.line += 1;
 			ctx -> xloc.col = 1;
+			oberon_set_line(ctx, ctx -> xloc.line);
 		}
 		else if(ctx -> c == 0xA)
 		{
 			oberon_get_char(ctx);
 			ctx -> xloc.line += 1;
 			ctx -> xloc.col = 1;
+			oberon_set_line(ctx, ctx -> xloc.line);
 		}
 		else
 		{