dbgloc: add column argument

dbgloc line [col]

This is implemented in a backwards-compatible manner.

1 files changed, 8 insertions, 0 deletions

diff --git a/parse.c b/parse.c
index 33ed6ec..738ec5b 100644
--- a/parse.c
+++ b/parse.c
@@ -669,6 +669,14 @@ parseline(PState ps)
 		arg[0] = INT(tokval.num);
 		if (arg[0].val != tokval.num)
 			err("line number too big");
+		if (peek() == Tcomma) {
+			next();
+			expect(Tint);
+			arg[1] = INT(tokval.num);
+			if (arg[1].val != tokval.num)
+				err("column number too big");
+		} else
+			arg[1] = INT(0);
 		goto Ins;
 	}
 	if (op == Tcall) {