123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136 |
- % emcode definitions for the CEM compiler -- intermediate code
- C_adf(p) | arith p; | OP(op_adf), CST(p)
- C_adi(p) | arith p; | OP(op_adi), CST(p)
- C_adp(p) | arith p; | OP(op_adp), CST(p)
- C_ads(p) | arith p; | OP(op_ads), CST(p)
- C_adu(p) | arith p; | OP(op_adu), CST(p)
- C_and(p) | arith p; | OP(op_and), CST(p)
- C_asp(p) | arith p; | OP(op_asp), CST(p)
- C_bra(l) | label l; | OP(op_bra), CST((arith)l)
- C_cai() | | OP(op_cai)
- C_cal(p) | char *p; | OP(op_cal), PNAM(p)
- C_cff() | | OP(op_cff)
- C_cfi() | | OP(op_cfi)
- C_cfu() | | OP(op_cfu)
- C_cif() | | OP(op_cif)
- C_cii() | | OP(op_cii)
- C_ciu() | | OP(op_ciu)
- C_cmf(p) | arith p; | OP(op_cmf), CST(p)
- C_cmi(p) | arith p; | OP(op_cmi), CST(p)
- C_cmp() | | OP(op_cmp)
- C_cmu(p) | arith p; | OP(op_cmu), CST(p)
- C_com(p) | arith p; | OP(op_com), CST(p)
- C_csa(p) | arith p; | OP(op_csa), CST(p)
- C_csb(p) | arith p; | OP(op_csb), CST(p)
- C_cuf() | | OP(op_cuf)
- C_cui() | | OP(op_cui)
- C_cuu() | | OP(op_cuu)
- C_dup(p) | arith p; | OP(op_dup), CST(p)
- C_dvf(p) | arith p; | OP(op_dvf), CST(p)
- C_dvi(p) | arith p; | OP(op_dvi), CST(p)
- C_dvu(p) | arith p; | OP(op_dvu), CST(p)
- C_fil_dlb(l, o) | label l; arith o; | OP(op_fil), DOFF(l, o)
- C_ior(p) | arith p; | OP(op_ior), CST(p)
- C_lae_dnam(p, o) | char *p; arith o; | OP(op_lae), NOFF(p, o)
- C_lae_dlb(l, o) | label l; arith o; | OP(op_lae), DOFF(l, o)
- C_lal(p) | arith p; | OP(op_lal), CST(p)
- C_ldc(p) | arith p; | OP(op_ldc), DCST(p)
- C_lde_dnam(p, o) | char *p; arith o; | OP(op_lde), NOFF(p, o)
- C_lde_dlb(l, o) | label l; arith o; | OP(op_lde), DOFF(l, o)
- C_ldl(p) | arith p; | OP(op_ldl), CST(p)
- C_lfr(p) | arith p; | OP(op_lfr), CST(p)
- C_lin(p) | arith p; | OP(op_lin), CST(p)
- C_loc(p) | arith p; | OP(op_loc), CST(p)
- C_loe_dnam(p, o) | char *p; arith o; | OP(op_loe), NOFF(p, o)
- C_loe_dlb(l, o) | label l; arith o; | OP(op_loe), DOFF(l, o)
- C_loi(p) | arith p; | OP(op_loi), CST(p)
- C_lol(p) | arith p; | OP(op_lol), CST(p)
- C_lor(p) | arith p; | OP(op_lor), CST(p)
- C_lpi(p) | char *p; | OP(op_lpi), PNAM(p)
- C_mlf(p) | arith p; | OP(op_mlf), CST(p)
- C_mli(p) | arith p; | OP(op_mli), CST(p)
- C_mlu(p) | arith p; | OP(op_mlu), CST(p)
- C_ngf(p) | arith p; | OP(op_ngf), CST(p)
- C_ngi(p) | arith p; | OP(op_ngi), CST(p)
- C_ret(p) | arith p; | OP(op_ret), CST(p)
- C_rmi(p) | arith p; | OP(op_rmi), CST(p)
- C_rmu(p) | arith p; | OP(op_rmu), CST(p)
- C_sbf(p) | arith p; | OP(op_sbf), CST(p)
- C_sbi(p) | arith p; | OP(op_sbi), CST(p)
- C_sbs(p) | arith p; | OP(op_sbs), CST(p)
- C_sbu(p) | arith p; | OP(op_sbu), CST(p)
- C_sde_dnam(p, o) | char *p; arith o; | OP(op_sde), NOFF(p, o)
- C_sde_dlb(l, o) | label l; arith o; | OP(op_sde), DOFF(l, o)
- C_sdl(p) | arith p; | OP(op_sdl), CST(p)
- C_sli(p) | arith p; | OP(op_sli), CST(p)
- C_slu(p) | arith p; | OP(op_slu), CST(p)
- C_sri(p) | arith p; | OP(op_sri), CST(p)
- C_sru(p) | arith p; | OP(op_sru), CST(p)
- C_ste_dnam(p, o) | char *p; arith o; | OP(op_ste), NOFF(p, o)
- C_ste_dlb(l, o) | label l; arith o; | OP(op_ste), DOFF(l, o)
- C_sti(p) | arith p; | OP(op_sti), CST(p)
- C_stl(p) | arith p; | OP(op_stl), CST(p)
- C_xor(p) | arith p; | OP(op_xor), CST(p)
- C_zeq(l) | label l; | OP(op_zeq), CST((arith)l)
- C_zge(l) | label l; | OP(op_zge), CST((arith)l)
- C_zgt(l) | label l; | OP(op_zgt), CST((arith)l)
- C_zle(l) | label l; | OP(op_zle), CST((arith)l)
- C_zlt(l) | label l; | OP(op_zlt), CST((arith)l)
- C_zne(l) | label l; | OP(op_zne), CST((arith)l)
- %
- C_df_dlb(l) | label l; | DLB(l)
- C_df_dnam(s) | char *s; | DNAM(s)
- C_df_ilb(l) | label l; | ILB(l)
- %
- C_bss_cst(n, w, i) | arith n, w; int i; |
- PS(ps_bss), DCST(n), CST(w), CST((arith)i)
- %
- C_con_icon(val, siz) | char *val; arith siz; |
- PS(ps_con), WCON(sp_icon, val, siz), CEND()
- C_con_ucon(val, siz) | char *val; arith siz; |
- PS(ps_con), WCON(sp_ucon, val, siz), CEND()
- C_con_fcon(val, siz) | char *val; arith siz; |
- PS(ps_con), WCON(sp_fcon, val, siz), CEND()
- C_con_scon(str, siz) | char *str; arith siz; | PS(ps_con), CSTR(str), CEND()
- C_con_dnam(str, val) | char *str; arith val; |
- PS(ps_con), NOFF(str, val), CEND()
- C_con_dlb(l, val) | label l; arith val; |
- PS(ps_con), DOFF(l, val), CEND()
- C_con_pnam(str) | char *str; | PS(ps_con), PNAM(str), CEND()
- %
- C_rom_cst(l) | arith l; | PS(ps_rom), CST(l), CEND()
- C_rom_icon(val, siz) | char *val; arith siz; |
- PS(ps_rom), WCON(sp_icon, val, siz), CEND()
- C_rom_fcon(val, siz) | char *val; arith siz; |
- PS(ps_rom), WCON(sp_fcon, val, siz), CEND()
- C_rom_ilb(l) | label l; | PS(ps_rom), ILB(l), CEND()
- %
- C_cst(l) | arith l; | CST(l)
- C_icon(val, siz) | char *val; arith siz; | WCON(sp_icon, val, siz)
- C_ucon(val, siz) | char *val; arith siz; | WCON(sp_ucon, val, siz)
- C_fcon(val, siz) | char *val; arith siz; | WCON(sp_fcon, val, siz)
- C_scon(str, siz) | char *str; arith siz; | CSTR(str)
- C_dnam(str, val) | char *str; arith val; | NOFF(str, val)
- C_dlb(l, val) | label l; arith val; | DOFF(l, val)
- C_pnam(str) | char *str; | PNAM(str)
- C_ilb(l) | label l; | ILB(l)
- %
- C_pro_narg(p1) | char *p1; | PS(ps_pro), PNAM(p1), CEND()
- C_end(l) | arith l; | PS(ps_end), CST(l)
- %
- C_exa(s) | char *s; | PS(ps_exa), DNAM(s)
- C_exp(s) | char *s; | PS(ps_exp), PNAM(s)
- C_ina_pt(l) | label l; | PS(ps_ina), DLB(l)
- C_ina(s) | char *s; | PS(ps_ina), DNAM(s)
- C_inp(s) | char *s; | PS(ps_inp), PNAM(s)
- %
- C_ms_err() | | PS(ps_mes), CST((arith)ms_err), CEND()
- C_ms_emx(p1, p2) | arith p1, p2; |
- PS(ps_mes), CST((arith)ms_emx), CST(p1), CST(p2), CEND()
- C_ms_reg(a, b, c, d) | arith a, b; int c, d; |
- PS(ps_mes), CST((arith)ms_reg), CST(a), CST(b), CST((arith)c), CST((arith)d), CEND()
- C_ms_src(l, s) | arith l; char *s; |
- PS(ps_mes), CST((arith)ms_src), CST(l), CSTR(s), CEND()
- C_ms_flt() | | PS(ps_mes), CST((arith)ms_flt), CEND()
- C_ms_par(l) | arith l; | PS(ps_mes), CST((arith)ms_par), CST(l), CEND()
- C_ms_gto() | | PS(ps_mes), CST((arith)ms_gto), CEND()
|