Добавлены строки в отладочную информацию класса (быстрохак)

[dsw-obn.git] / src / oberon.c

diff --git a/src/oberon.c b/src/oberon.c
index 82566471b9a11b929d832f2d51ef355aa4d23dfc..931a30724697a03476cff779779b3385bad5f2b4 100644 (file)
--- 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
                {