From 227133e626c6956f850e7d21c93f04882208ffed Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Tue, 18 Jun 2024 06:09:10 -0400 Subject: cxrefbas and renumbas: support LIST. --- linetab.c | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) (limited to 'linetab.c') diff --git a/linetab.c b/linetab.c index 5fb0a32..669b1a0 100644 --- a/linetab.c +++ b/linetab.c @@ -75,16 +75,15 @@ void computed_msg(unsigned short lineno) { cmd = "RESTORE"; break; case CMD_TRAP: cmd = "TRAP"; break; - /* - case CMD_IF: - cmd = "IF/THEN"; break; - */ case CMD_ON: if(on_op == OP_GOSUB) cmd = "ON/GOSUB"; else cmd = "ON/GOTO"; break; + case CMD_LIST: + cmd = "LIST"; + break; default: /* should never happen! */ cmd = "???"; break; } @@ -99,6 +98,7 @@ CALLBACK(got_var) { case CMD_GOSUB: case CMD_RESTORE: case CMD_TRAP: + case CMD_LIST: computed_msg(lineno); break; default: @@ -150,6 +150,19 @@ CALLBACK(got_exp) { } } break; + case CMD_LIST: { + switch(last_tok) { + case CMD_LIST: + case OP_COMMA: + if(standalone) + add_lineref(lineno, pos + 1); + else + computed_msg(lineno); + break; + default: + break; + } + } default: break; } -- cgit v1.2.3