Logo Search packages:      
Sourcecode: sbcl version File versions

x86-bsd-os.c

#include <signal.h>
#include "sbcl.h"
#include "runtime.h"
#include "target-os.h"

/* KLUDGE: There is strong family resemblance in the signal context
 * stuff in FreeBSD and OpenBSD, but in detail they're different in
 * almost every line of code. It would be nice to find some way to
 * factor out the commonality better; failing that, it might be best
 * just to split this generic-BSD code into one variant for each BSD. 
 *
 * KLUDGE II: this split has begun with the addition of the Darwin BSD
 * flavour, with the cross-architecture complications that this
 * entails; unfortunately, currently the situation is worse, not
 * better, than in the above paragraph. */

#if defined(__FreeBSD__) || defined(__OpenBSD__)   
int *
os_context_register_addr(os_context_t *context, int offset)
{
    switch(offset) {
    case  0:
      return CONTEXT_ADDR_FROM_STEM(eax);
    case  2:
      return CONTEXT_ADDR_FROM_STEM(ecx);
    case  4:
      return CONTEXT_ADDR_FROM_STEM(edx);
    case  6:
      return CONTEXT_ADDR_FROM_STEM(ebx);
    case  8:
      return CONTEXT_ADDR_FROM_STEM(esp);
    case 10:
      return CONTEXT_ADDR_FROM_STEM(ebp);
    case 12:
      return CONTEXT_ADDR_FROM_STEM(esi);
    case 14:
      return CONTEXT_ADDR_FROM_STEM(edi);
    default:
      return 0;
    }
}

int *
os_context_sp_addr(os_context_t *context)
{
    return CONTEXT_ADDR_FROM_STEM(esp);
}

#endif /* __FreeBSD__ || __OpenBSD__ */

#ifdef __NetBSD__
int *
os_context_register_addr(os_context_t *context, int offset)
{
    switch(offset) {
    case  0:
      return CONTEXT_ADDR_FROM_STEM(EAX);
    case  2:
      return CONTEXT_ADDR_FROM_STEM(ECX);
    case  4:
      return CONTEXT_ADDR_FROM_STEM(EDX);
    case  6:
      return CONTEXT_ADDR_FROM_STEM(EBX);
    case  8:
      return CONTEXT_ADDR_FROM_STEM(ESP);
    case 10:
      return CONTEXT_ADDR_FROM_STEM(EBP);
    case 12:
      return CONTEXT_ADDR_FROM_STEM(ESI);
    case 14:
      return CONTEXT_ADDR_FROM_STEM(EDI);
    case 16:
      return CONTEXT_ADDR_FROM_STEM(UESP);
    default:
      return 0;
    }
}

int *
os_context_sp_addr(os_context_t *context)
{
    return &(_UC_MACHINE_SP(context));
}

#endif  /* __NetBSD__ */



/* FIXME: If this can be a no-op on BSD/x86, then it 
 * deserves a more precise name.
 *
 * (Perhaps os_prepare_data_area_to_be_executed()?) */
void
os_flush_icache(os_vm_address_t address, os_vm_size_t length)
{
}

Generated by  Doxygen 1.6.0   Back to index