Ignore:
Timestamp:
Nov 15, 2005, 9:30:15 AM (14 years ago)
Author:
gb
Message:

Stubs for x86 exception stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lisp-kernel/x86-exceptions.c

    r2864 r2881  
    1515*/
    1616
     17#include "lisp.h"
     18#include "lisp-exceptions.h"
     19#include "lisp_globals.h"
     20#include <ctype.h>
     21#include <stdio.h>
     22#include <stddef.h>
     23#include <string.h>
     24#include <stdarg.h>
     25#include <errno.h>
     26#include <stdio.h>
     27#ifdef LINUX
     28#include <strings.h>
     29#include <sys/mman.h>
     30#include <fpu_control.h>
     31#include <linux/prctl.h>
     32#endif
     33
     34int
     35page_size = 8192;
     36
     37void
     38install_signal_handler(int signo, __sighandler_t handler)
     39{
     40  struct sigaction sa;
     41 
     42  sa.sa_sigaction = (void *)handler;
     43  sigfillset(&sa.sa_mask);
     44  sa.sa_flags =
     45    SA_RESTART
     46    | SA_SIGINFO;
     47
     48  sigaction(signo, &sa, NULL);
     49}
     50
     51void
     52enable_fp_exceptions()
     53{
     54}
     55
     56void
     57exception_init()
     58{
     59}
     60
     61void
     62adjust_exception_pc(ExceptionInformation *xp, int delta)
     63{
     64  xpPC(xp) += delta;
     65}
     66
     67void
     68restore_soft_stack_limit(unsigned stkreg)
     69{
     70}
     71
     72/* Maybe this'll work someday.  We may have to do something to
     73   make the thread look like it's not handling an exception */
     74void
     75reset_lisp_process(ExceptionInformation *xp)
     76{
     77}
Note: See TracChangeset for help on using the changeset viewer.