guile/tests/modi.c

/******************************** -*- C -*- ****************************
 *
 *	Test jit_modi_i
 *
 ***********************************************************************/


/* Contributed by Ludovic Courtes.  */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <stdio.h>
#include <string.h>
#include "lightning.h"

typedef int (* mod_t) (int);

mod_t
generate_modi (int operand)
{
  static char buffer[1024];
  mod_t result;
  int arg;

  result = (mod_t)(jit_set_ip (buffer).iptr);
  jit_leaf (1);
  arg = jit_arg_i ();
  jit_getarg_i (JIT_R1, arg);

  jit_modi_i (JIT_R2, JIT_R1, operand);
  jit_movr_i (JIT_RET, JIT_R2);

  jit_ret ();
  jit_flush_code (buffer, jit_get_ip ().ptr);

  return result;
}

int
main (int argc, char *argv[])
{
  mod_t mod_eight = generate_modi (8);

  printf ("mod_eight (%i) = %i (vs. %i)\n",
	  20420, mod_eight (20420), (20420 % 8));
  printf ("mod_eight (%i) = %i (vs. %i)\n",
	  216096, mod_eight (216096), (216096 % 8));

  return 0;
}