mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-11 16:20:19 +02:00
2c1b6b96e8
Patches applied: * lcourtes@laas.fr--2005-libre/lightning--stable--1.2--patch-7 Added a test case for `ldxi' with big immediate operands. git-archimport-id: bonzini@gnu.org--2004b/lightning--stable--1.2--patch-26
62 lines
1.3 KiB
C
62 lines
1.3 KiB
C
/******************************** -*- C -*- ****************************
|
||
*
|
||
* Test jit_ldxi_i
|
||
*
|
||
***********************************************************************/
|
||
|
||
|
||
/* Contributed by Ludovic Courtes. */
|
||
|
||
#ifdef HAVE_CONFIG_H
|
||
# include "config.h"
|
||
#endif
|
||
|
||
#include <stdio.h>
|
||
#include <string.h>
|
||
#include "lightning.h"
|
||
|
||
typedef char (* loader_t) (int);
|
||
|
||
/* Check `ldxi' with a big operand (OPERAND is assumed to be ``big'', e.g.,
|
||
more than one octet-long on PowerPC). */
|
||
static loader_t
|
||
generate_ldxi_big_operand (void *operand)
|
||
{
|
||
static char buffer[1024];
|
||
loader_t result;
|
||
int arg;
|
||
|
||
/* printf ("si?=%i ui?=%i\n", _siP (16, operand), _uiP (16, operand)); */
|
||
|
||
result = (loader_t)(jit_set_ip (buffer).iptr);
|
||
jit_leaf (1);
|
||
arg = jit_arg_i ();
|
||
jit_getarg_i (JIT_R1, arg);
|
||
|
||
jit_ldxi_c (JIT_R0, JIT_R1, operand);
|
||
jit_movr_i (JIT_RET, JIT_R0);
|
||
|
||
jit_ret ();
|
||
jit_flush_code (buffer, jit_get_ip ().ptr);
|
||
|
||
return result;
|
||
}
|
||
|
||
|
||
int
|
||
main (int argc, char *argv[])
|
||
{
|
||
static const char the_array[] = "GNU Lightning";
|
||
unsigned i;
|
||
loader_t array_loader = generate_ldxi_big_operand ((void *)the_array);
|
||
|
||
for (i = 0; i < sizeof (the_array) - 1; i++)
|
||
{
|
||
printf ("array[%i] = %c, array_loader (%i) = %c\n",
|
||
i, the_array[i], i, array_loader (i));
|
||
if (the_array[i] != array_loader (i))
|
||
return 1;
|
||
}
|
||
|
||
return 0;
|
||
}
|