factor/vm/os-linux-ppc.64.hpp

#include <ucontext.h>

namespace factor {

#define FRAME_RETURN_ADDRESS(frame, vm) \
  *((void**)(vm->frame_successor(frame) + 1) + 2)
#define UAP_STACK_POINTER(ucontext) \
  ((ucontext_t*)ucontext)->uc_mcontext.gp_regs[1]
#define UAP_PROGRAM_COUNTER(ucontext) \
  (((ucontext_t*)ucontext)->uc_mcontext.gp_regs[32])
#define UAP_SET_TOC_POINTER(uap, ptr) (void)0

#define FACTOR_PPC_TOC 1

#define CODE_TO_FUNCTION_POINTER(code) \
  void* desc[3];                       \
  code = fill_function_descriptor(desc, code)

#define CODE_TO_FUNCTION_POINTER_CALLBACK(vm, code)     \
  code = fill_function_descriptor(new void* [3], code); \
  vm->function_descriptors.push_back((void**)code)

#define FUNCTION_CODE_POINTER(ptr) (function_descriptor_field((void*)ptr, 0))

#define FUNCTION_TOC_POINTER(ptr) (function_descriptor_field((void*)ptr, 1))

#define UAP_STACK_POINTER_TYPE unsigned long

inline static unsigned int uap_fpu_status(void* uap) {
  union {
    double as_double;
    unsigned int as_uint[2];
  } tmp;
  tmp.as_double = ((ucontext_t*)uap)->uc_mcontext.fp_regs[32];
  return tmp.as_uint[1];
}

inline static void uap_clear_fpu_status(void* uap) {
  union {
    double as_double;
    unsigned int as_uint[2];
  } tmp;
  tmp.as_double = ((ucontext_t*)uap)->uc_mcontext.fp_regs[32];
  tmp.as_uint[1] &= 0x0007f8ff;
  ((ucontext_t*)uap)->uc_mcontext.fp_regs[32] = tmp.as_double;
}

}