source: trunk/ccl/lisp-kernel/x86-exceptions.c @ 2881

Last change on this file since 2881 was 2881, checked in by gb, 15 years ago

Stubs for x86 exception stuff.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
Line 
1/*
2   Copyright (C) 2005 Clozure Associates
3   This file is part of OpenMCL. 
4
5   OpenMCL is licensed under the terms of the Lisp Lesser GNU Public
6   License , known as the LLGPL and distributed with OpenMCL as the
7   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
8   which is distributed with OpenMCL as the file "LGPL".  Where these
9   conflict, the preamble takes precedence. 
10
11   OpenMCL is referenced in the preamble as the "LIBRARY."
12
13   The LLGPL is also available online at
14   http://opensource.franz.com/preamble.html
15*/
16
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 TracBrowser for help on using the repository browser.