Lines Matching defs:gen2cd
1115 static void gen2cd(int op, int n)
1417 gen2cd(tkvar, slotnum);
1452 gen2cd(tkregex, make_literal_regex_val(TT.tokstr));
1461 gen2cd(tknumber, make_literal_num_val(0));
1462 gen2cd(opfldref, tkeof);
1472 gen2cd(tkregex, make_literal_regex_val(TT.tokstr));
1493 gen2cd(tkregex, make_literal_regex_val(TT.tokstr));
1502 gen2cd(tkvar, find_or_add_var_name());
1521 gen2cd(tk, num_args);
1542 gen2cd(opprepcall, funcnum);
1548 gen2cd(functk, 0);
1564 gen2cd(tkvar, find_or_add_var_name());
1572 gen2cd(tkfunc, num_args);
1589 if (num_subscripts > 1) gen2cd(tkrbracket, num_subscripts);
1590 gen2cd(opmap, slotnum);
1593 gen2cd(tkvar, slotnum);
1637 gen2cd(tkfield, tkeof);
1721 gen2cd(tknumber, make_literal_num_val(TT.scs->numval));
1726 gen2cd(tkstring, make_literal_str_val(TT.tokstr));
1736 gen2cd(opmatchrec, make_literal_regex_val(TT.tokstr));
1796 gen2cd(tkgetline, nargs);
1835 gen2cd(tkgetline, nargs);
1842 gen2cd(optor, -1); // tkand: jump if false, else drop
1850 gen2cd(optor, -1);
1854 gen2cd(tkternelse, -1);
1907 if (prim_st > 0) gen2cd(tkrbracket, prim_st);
1963 gen2cd(tk, num_exprs);
1982 if (num_subscripts > 1) gen2cd(tkrbracket, num_subscripts);
1983 gen2cd(opmapref, slotnum);
1987 gen2cd(opmapref, slotnum);
2032 gen2cd(tkif, -1);
2042 gen2cd(tkelse, -1);
2073 gen2cd(tkwhile, 2); // drop, jump if true
2075 gen2cd(opjump, -1); // jump here to break
2077 gen2cd(opjump, -1); // jump to continue
2089 gen2cd(opjump, 4); // jump over jumps, to statement
2091 gen2cd(opjump, -1); // here on continue
2093 gen2cd(opjump, -1); // here on break
2110 gen2cd(tkwhile, TT.cgl.break_dest - TT.zcode_last - 1);
2122 gen2cd(opjump, -1); // jump to statement
2127 gen2cd(tkwhile, -1); // drop, jump to statement if true
2131 gen2cd(opjump, -1);
2134 gen2cd(opjump, condition_loc - TT.zcode_last - 3);
2138 gen2cd(opjump, TT.cgl.continue_dest - TT.zcode_last - 3);
2175 gen2cd(opmapiternext, 2);
2177 gen2cd(opjump, -1); // fill in with loc after stmt
2184 gen2cd(opjump, TT.cgl.continue_dest - TT.zcode_last - 3);
2202 if (TT.cgl.break_dest) gen2cd(tkbreak, TT.cgl.break_dest - TT.zcode_last - 3);
2209 gen2cd(tkcontinue, TT.cgl.continue_dest - TT.zcode_last - 3);
2231 } else gen2cd(tknumber, make_literal_num_val(NO_EXIT_STATUS));
2237 if (TT.cgl.stack_offset_to_fix) gen2cd(opdrop_n, TT.cgl.stack_offset_to_fix);
2240 } else gen2cd(tknumber, make_literal_num_val(0.0));
2241 gen2cd(tkreturn, TT.cgl.nparms);
2307 gen2cd(tkfunction, funcnum);
2329 gen2cd(tknumber, make_uninit_val());
2330 gen2cd(tkreturn, TT.cgl.nparms);
2392 gen2cd(opjump, -1);
2404 gen2cd(opjump, -1);
2413 gen2cd(opjump, -1);
2424 gen2cd(opjump, 1);
2429 gen2cd(tkif, -1);
2432 gen2cd(oprange2, ++TT.cgl.range_pattern_num);
2439 gen2cd(oprange3, TT.cgl.range_pattern_num);
2448 gen2cd(opjump, -1);
2481 gen2cd(tknumber, make_literal_num_val(0.0));