Mercurial > hg > index.cgi
view lwasm/insn_rlist.c @ 275:776a076d1afa
Makefile: Allow DESTDIR for distribution package creation
Build infrastructures for distribution package management like Debian
and Redhat use DESTDIR to designate a virtual root directory for the
package contents, as per the GNU convention:
http://www.gnu.org/prep/standards/html_node/DESTDIR.html
To specify a simple installation directory target, use INSTALLDIR
instead.
Also use "install" to create the directory if needed.
Signed-off-by: Tormod Volden <debian.tormod@gmail.com>
author | Tormod Volden <debian.tormod@gmail.com> |
---|---|
date | Wed, 05 Jun 2013 19:57:09 -0600 |
parents | 7317fbe024af |
children | 362f8fb0695b |
line wrap: on
line source
/* insn_rlist.c Copyright © 2009 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/>. */ /* for handling inherent mode instructions */ #include <ctype.h> #include "lwasm.h" #include "instab.h" PARSEFUNC(insn_parse_rlist) { int rb = 0; int rn; static const char *regs = "CCA B DPX Y U PCD S "; while (**p && !isspace(**p)) { rn = lwasm_lookupreg2(regs, p); if (rn < 0) { lwasm_register_error(as, l, "Bad register '%s'", *p); return; } if (**p && **p != ',' && !isspace(**p)) { lwasm_register_error(as, l, "Bad operand"); } if (**p == ',') (*p)++; if (rn == 8) rn = 6; else if (rn == 9) rn = 0x40; else rn = 1 << rn; rb |= rn; } l -> len = OPLEN(instab[l -> insn].ops[0]) + 1; l -> pb = rb; } EMITFUNC(insn_emit_rlist) { lwasm_emitop(l, instab[l -> insn].ops[0]); lwasm_emit(l, l -> pb); }