Mercurial > hg-old > index.cgi
diff lwasm/pseudo.c @ 347:1649bc7bda5a
Some data oriented pseudo ops added
author | lost@starbug |
---|---|
date | Sat, 27 Mar 2010 20:16:24 -0600 |
parents | |
children | 11a95c6414b4 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lwasm/pseudo.c Sat Mar 27 20:16:24 2010 -0600 @@ -0,0 +1,171 @@ +/* +pseudo.c +Copyright © 2010 William Astle + +This file is part of LWASM. + +LWASM is free software: you can redistribute it and/or modify it under the +terms of the GNU General Public License as published by the Free Software +Foundation, either version 3 of the License, or (at your option) any later +version. + +This program is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for +more details. + +You should have received a copy of the GNU General Public License along with +this program. If not, see <http://www.gnu.org/licenses/>. + +*/ + +#include <config.h> + +#include "lwasm.h" +#include "instab.h" + +// for no-op pseudos +PARSEFUNC(pseudo_parse_noop) +{ +} + +RESOLVEFUNC(pseudo_resolve_noop) +{ +} + +// for "end" +PARSEFUNC(pseudo_parse_end) +{ + lw_expr_t addr; + + as -> endseen = 1; + + if (as -> output_format != OUTPUT_DECB) + { + skip_operand(p); + return; + } + + addr = lwasm_parse_expr(as, p); + if (!addr) + { + lwasm_register_error(as, l, "Bad expression"); + addr = lw_expr_build(lw_expr_type_int, 0); + } + lwasm_save_expr(l, 0, addr); +} + +RESOLVEFUNC(pseudo_resolve_end) +{ + lw_expr_t addr; + + addr = lwasm_fetch_expr(l, 0); + + if (addr) + { + if (!lw_expr_istype(addr, lw_expr_type_int)) + lwasm_register_error(as, l, "Exec address not constant!"); + else + as -> execaddr = lw_expr_intval(addr); + } + as -> endseen = 1; +} + +PARSEFUNC(pseudo_parse_fcb) +{ + int i = 0; + lw_expr_t e; + + for (;;) + { + e = lwasm_parse_expr(as, p); + if (!e) + { + lwasm_register_error(as, l, "Bad expression (#%s)", i); + break; + } + lwasm_save_expr(l, i, e); + i++; + } + + l -> len = i; +} + +RESOLVEFUNC(pseudo_resolve_fcb) +{ + int i; + lw_expr_t e; + int v; + + for (i = 0; i < l -> len; i++) + { + e = lwasm_fetch_expr(l, i); + lwasm_emitexpr(l, e, 1); + } +} + +PARSEFUNC(pseudo_parse_fdb) +{ + int i = 0; + lw_expr_t e; + + for (;;) + { + e = lwasm_parse_expr(as, p); + if (!e) + { + lwasm_register_error(as, l, "Bad expression (#%s)", i); + break; + } + lwasm_save_expr(l, i, e); + i++; + } + + l -> len = i * 2; +} + +RESOLVEFUNC(pseudo_resolve_fdb) +{ + int i; + lw_expr_t e; + int v; + + for (i = 0; i < (l -> len)/2; i++) + { + e = lwasm_fetch_expr(l, i); + lwasm_emitexpr(l, e, 2); + } +} + +PARSEFUNC(pseudo_parse_fqb) +{ + int i = 0; + lw_expr_t e; + + for (;;) + { + e = lwasm_parse_expr(as, p); + if (!e) + { + lwasm_register_error(as, l, "Bad expression (#%s)", i); + break; + } + lwasm_save_expr(l, i, e); + i++; + } + + l -> len = i * 4; +} + +RESOLVEFUNC(pseudo_resolve_fqb) +{ + int i; + lw_expr_t e; + int v; + + for (i = 0; i < (l -> len)/4; i++) + { + e = lwasm_fetch_expr(l, i); + lwasm_emitexpr(l, e, 4); + } +}