RosettaCodeData/Task/Machine-code/PARI-GP/machine-code.parigp

30 lines
572 B
Plaintext

#include <stdio.h>
#include <sys/mman.h>
#include <string.h>
#include <pari/pari.h>
int
test(int a, int b)
{
char code[] = {0x8B, 0x44, 0x24, 0x4, 0x3, 0x44, 0x24, 0x8, 0xC3};
void *buf;
int c;
/* copy code to executable buffer */
buf = mmap (0,sizeof(code),PROT_READ|PROT_WRITE|PROT_EXEC,
MAP_PRIVATE|MAP_ANON,-1,0);
memcpy (buf, code, sizeof(code));
/* run code */
c = ((int (*) (int, int))buf)(a, b);
/* free buffer */
munmap (buf, sizeof(code));
return c;
}
void
init_auto(void)
{
pari_printf("%d\n", test(7,12));
return 0;
}