1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
|
case OP_NEXT:
FlowPop(OP_FOR);
AddInst2(OP_NEXT,flowptr[flowdepth]);
cl->codes[flowptr[flowdepth]]=peep=ptr;
break;
case OP_STRING:
AddInst2(OP_STRING,pool_string(tokenstr));
break;
default:
if(Tokenf(TF_ABNORMAL)) ParseError("Invalid instruction token\n");
if(compat && Tokenf(TF_COMPAT) && Tokenf(TF_EQUAL)) ++tokenv;
AddInstF(tokenv,tokent);
}
} else if(Tokenf(TF_FUNCTION)) {
|
>
>
>
>
>
>
>
|
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
|
case OP_NEXT:
FlowPop(OP_FOR);
AddInst2(OP_NEXT,flowptr[flowdepth]);
cl->codes[flowptr[flowdepth]]=peep=ptr;
break;
case OP_STRING:
AddInst2(OP_STRING,pool_string(tokenstr));
break;
case OP_MBEGIN:
FlowPush(OP_BEGIN);
AddInst(OP_TMARK);
AddInst(OP_IF);
FlowPush(OP_WHILE);
peep=++ptr;
break;
default:
if(Tokenf(TF_ABNORMAL)) ParseError("Invalid instruction token\n");
if(compat && Tokenf(TF_COMPAT) && Tokenf(TF_EQUAL)) ++tokenv;
AddInstF(tokenv,tokent);
}
} else if(Tokenf(TF_FUNCTION)) {
|