source: branches/win64/lisp-kernel/x86-constants.h @ 9293

Last change on this file since 9293 was 9293, checked in by gb, 13 years ago

Add parens to suppress compiler warning.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.0 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#ifndef __x86_constants__
18#define __x86_constants__ 1
19
20#define TCR_FLAG_BIT_FOREIGN fixnumshift
21#define TCR_FLAG_BIT_AWAITING_PRESET (fixnumshift+1)
22#define TCR_FLAG_BIT_ALT_SUSPEND (fixnumshift+2)
23#define TCR_FLAG_BIT_PROPAGATE_EXCEPTION (fixnumshift+3)
24#define TCR_FLAG_BIT_SUSPEND_ACK_PENDING (fixnumshift+4)
25#define TCR_FLAG_BIT_PENDING_EXCEPTION (fixnumshift+5)
26#define TCR_FLAG_BIT_FOREIGN_EXCEPTION (fixnumshift+6)
27#define TCR_FLAG_BIT_PENDING_SUSPEND (fixnumshift+7)
28#define TCR_STATE_FOREIGN (1)
29#define TCR_STATE_LISP    (0)
30#define TCR_STATE_EXCEPTION_WAIT (2)
31#define TCR_STATE_EXCEPTION_RETURN (4)
32
33#ifdef X8664
34#include "x86-constants64.h"
35#else
36#include "x86-constants32.h"
37#endif
38
39#define dnode_size (node_size*2)
40#define dnode_shift (node_shift+1)
41
42#define INTERRUPT_LEVEL_BINDING_INDEX (1)
43
44/* FP exception mask bits */
45#define MXCSR_IM_BIT (7)        /* invalid masked when set*/
46#define MXCSR_DM_BIT (8)        /* denormals masked when set*/
47#define MXCSR_ZM_BIT (9)        /* divide-by-zero masked when set */
48#define MXCSR_OM_BIT (10)       /* overflow masked when set */
49#define MXCSR_UM_BIT (11)       /* underflow masked when set */
50#define MXCSR_PM_BIT (12)       /* precision masked when set */
51
52/* Bits in the xFLAGS register */
53#define X86_CARRY_FLAG_BIT (0)
54#define X86_PARITY_FLAG_BIT (2)
55#define X86_AUX_CARRY_FLAG_BIT (4)
56#define X86_ZERO_FLAG_BIT (6)
57#define X86_SIGN_FLAG_BIT (7)
58#define X86_DIRECTION_FLAG_BIT (10)
59#define X86_OVERFLOW_FLAG_BIT (11)
60
61
62#endif /* __x86_constants__ */
63
Note: See TracBrowser for help on using the repository browser.