#include "mjs_exec_public.h"
#include "mjs_internal.h"
#include "mjs_object.h"
#include "mjs_primitive.h"
#include "mjs_util.h"
void *mjs_mem_to_ptr(unsigned val) {
return (void *) (uintptr_t) val;
}
void *mjs_mem_get_ptr(void *base, int offset) {
return (char *) base + offset;
}
void mjs_mem_set_ptr(void *ptr, void *val) {
*(void **) ptr = val;
}
double mjs_mem_get_dbl(void *ptr) {
double v;
memcpy(&v, ptr, sizeof(v));
return v;
}
void mjs_mem_set_dbl(void *ptr, double val) {
memcpy(ptr, &val, sizeof(val));
}
double mjs_mem_get_uint(void *ptr, int size, int bigendian) {
uint8_t *p = (uint8_t *) ptr;
int i, inc = bigendian ? 1 : -1;
unsigned int res = 0;
p += bigendian ? 0 : size - 1;
for (i = 0; i < size; i++, p += inc) {
res <<= 8;
res |= *p;
}
return res;
}
double mjs_mem_get_int(void *ptr, int size, int bigendian) {
uint8_t *p = (uint8_t *) ptr;
int i, inc = bigendian ? 1 : -1;
int res = 0;
p += bigendian ? 0 : size - 1;
for (i = 0; i < size; i++, p += inc) {
res <<= 8;
res |= *p;
}
{
int extra = sizeof(res) - size;
for (i = 0; i < extra; i++) res <<= 8;
for (i = 0; i < extra; i++) res >>= 8;
}
return res;
}
void mjs_mem_set_uint(void *ptr, unsigned int val, int size, int bigendian) {
uint8_t *p = (uint8_t *) ptr + (bigendian ? size - 1 : 0);
int i, inc = bigendian ? -1 : 1;
for (i = 0; i < size; i++, p += inc) {
*p = val & 0xff;
val >>= 8;
}
}
void mjs_mem_set_int(void *ptr, int val, int size, int bigendian) {
mjs_mem_set_uint(ptr, val, size, bigendian);
}