Ejemplo n.º 1
0
static gpasmVal do_tstf(gpasmVal r,
		        char *name,
		        int arity,
		        struct pnode *parms)
{

  do_insn("movf", add_symbol_constant(parms, 1));

  return r;
}
Ejemplo n.º 2
0
static gpasmVal do_negf(gpasmVal r,
		        char *name,
		        int arity,
		        struct pnode *parms)
{

  do_insn("comf", add_symbol_constant(parms, 1));
  do_insn("incf", parms);

  return r;
}
Ejemplo n.º 3
0
static gpasmVal do_movfw(gpasmVal r,
                         const char *name,
                         int arity,
                         struct pnode *parms)
{
  if (enforce_arity(arity, 1)) {
    do_insn("movf", add_symbol_constant(parms, 0));
  }

  return r;
}
Ejemplo n.º 4
0
static gpasmVal do_negf(gpasmVal r,
                        const char *name,
                        int arity,
                        struct pnode *parms)
{
  if ((arity == 1) || (arity == 2)) {
    do_insn("comf", add_symbol_constant(parms, 1));
    do_insn("incf", parms);
  } else {
    enforce_arity(arity, 2);
  }

  return r;
}