source: branches/qres/ccl/lisp-kernel/constants.h @ 15278

Last change on this file since 15278 was 14048, checked in by gz, 10 years ago

from trunk, reorg of platform-specific kernel files (r13589-r13956)

File size: 1.2 KB
Line 
1/*
2   Copyright (C) 2009 Clozure Associates
3   Copyright (C) 1994-2001 Digitool, Inc
4   This file is part of Clozure CL. 
5
6   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
7   License , known as the LLGPL and distributed with Clozure CL as the
8   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
9   which is distributed with Clozure CL as the file "LGPL".  Where these
10   conflict, the preamble takes precedence. 
11
12   Clozure CL is referenced in the preamble as the "LIBRARY."
13
14   The LLGPL is also available online at
15   http://opensource.franz.com/preamble.html
16*/
17
18#define TCR_FLAG_BIT_FOREIGN fixnumshift
19#define TCR_FLAG_BIT_AWAITING_PRESET (fixnumshift+1)
20#define TCR_FLAG_BIT_ALT_SUSPEND (fixnumshift+2)
21#define TCR_FLAG_BIT_PROPAGATE_EXCEPTION (fixnumshift+3)
22#define TCR_FLAG_BIT_SUSPEND_ACK_PENDING (fixnumshift+4)
23#define TCR_FLAG_BIT_PENDING_EXCEPTION (fixnumshift+5)
24#define TCR_FLAG_BIT_FOREIGN_EXCEPTION (fixnumshift+6)
25#define TCR_FLAG_BIT_PENDING_SUSPEND (fixnumshift+7)
26
27#define TCR_STATE_FOREIGN (1)
28#define TCR_STATE_LISP    (0)
29#define TCR_STATE_EXCEPTION_WAIT (2)
30#define TCR_STATE_EXCEPTION_RETURN (4)
31
32#define dnode_size (node_size*2)
33#define dnode_shift (node_shift+1)
34
35#define INTERRUPT_LEVEL_BINDING_INDEX (1)
Note: See TracBrowser for help on using the repository browser.