mirror of
https://github.com/lcn2/calc.git
synced 2025-08-16 01:03:29 +03:00
Release calc version 2.11.0t8.7
This commit is contained in:
11
codegen.c
11
codegen.c
@@ -862,6 +862,17 @@ getstatement(LABEL *contlabel, LABEL *breaklabel, LABEL *nextcaselabel, LABEL *d
|
||||
}
|
||||
break;
|
||||
|
||||
case T_ABORT:
|
||||
switch (gettoken()) {
|
||||
case T_STRING:
|
||||
addopone(OP_ABORT, tokenstring());
|
||||
break;
|
||||
default:
|
||||
addopone(OP_ABORT, -1);
|
||||
rescantoken();
|
||||
}
|
||||
break;
|
||||
|
||||
case T_SYMBOL:
|
||||
if (nextchar() == ':') { /****HACK HACK ****/
|
||||
definelabel(tokensymbol());
|
||||
|
Reference in New Issue
Block a user