#include <stdio.h>
#include "gmp.h"
#include "gmp-impl.h"
#include "tests.h"
mp_limb_t calling_conventions_values[23] =
{
CNST_LIMB(0x1234567887654321),
CNST_LIMB(0x89ABCDEFFEDCBA98),
CNST_LIMB(0xDEADBEEFBADECAFE),
CNST_LIMB(0xFFEEDDCCBBAA9988),
CNST_LIMB(0x0011223344556677),
CNST_LIMB(0x1234432156788765),
CNST_LIMB(0xFEEDABBACAAFBEED),
CNST_LIMB(0xAB78DE89FF5125BB),
CNST_LIMB(0x1238901890189031)
};
#define WANT 0
#define JUNK 6
#define SAVE 9
#define RETADDR 15
#define VAL 16
#define RFLAGS 22
#ifdef __cplusplus
extern "C" {
#endif
struct {
int control;
int status;
int tag;
int other[4];
} calling_conventions_fenv;
#ifdef __cplusplus
}
#endif
const char *regname[6] = {"rbx", "rbp", "r12", "r13", "r14", "r15"};
#define DIR_BIT(rflags) (((rflags) & (1<<10)) != 0)
int
calling_conventions_check (void)
{
const char *header = "Violated calling conventions:\n";
int ret = 1;
int i;
#define CHECK(callreg, regstr, value) \
if (callreg != value) \
{ \
printf ("%s %s got 0x%016lX want 0x%016lX\n", \
header, regstr, callreg, value); \
header = ""; \
ret = 0; \
}
for (i = 0; i < 6; i++)
{
CHECK (calling_conventions_values[VAL+i], regname[i], calling_conventions_values[WANT+i]);
}
if (DIR_BIT (calling_conventions_values[RFLAGS]) != 0)
{
printf ("%s rflags dir bit got %d want 0\n",
header, DIR_BIT (calling_conventions_values[RFLAGS]));
header = "";
ret = 0;
}
if ((calling_conventions_fenv.tag & 0xFFFF) != 0xFFFF)
{
printf ("%s fpu tags got 0x%X want 0xFFFF\n",
header, calling_conventions_fenv.tag & 0xFFFF);
header = "";
ret = 0;
}
return ret;
}