source: trunk/source/lisp-kernel/lisp_globals.s @ 15197

Last change on this file since 15197 was 15197, checked in by gb, 8 years ago

Rename one of the recently-renamed nil-relative symbols again.

Move all of the nrs definitions from lisp-kernel/*constants*.s
to a new file (lisp_globals.s) which should make this a little
easiser in the future. (see also compiler/*/*-arch.lisp).

Add lisp_globals.s as a dependency in (some) Makefiles; will
get the others in a minute.

(Builds on x8632/64; other archs not yet tested.)

File size: 4.7 KB
Line 
1/*   Copyright (C) 2009 Clozure Associates */
2/*   Copyright (C) 1994-2001 Digitool, Inc */
3/*   This file is part of Clozure CL. */
4
5/*   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public */
6/*   License , known as the LLGPL and distributed with Clozure CL as the */
7/*   file "LICENSE".  The LLGPL consists of a preamble and the LGPL, */
8/*   which is distributed with Clozure CL as the file "LGPL".  Where these */
9/*   conflict, the preamble takes precedence. */
10
11/*   Clozure CL 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/* This file should be included in a platform-specific *constants*.s file,
17   which should define nrs_origin and nrs_symbol_fulltag before doing so.
18*/
19nrs_symbol_extra = symbol.size-nrs_symbol_fulltag
20       
21        _struct(nrs,nrs_origin)
22         _struct_pad(nrs_symbol_fulltag)
23         _struct_label(tsym)
24         _struct_pad(nrs_symbol_extra)  /* t */
25
26         _struct_pad(nrs_symbol_fulltag)
27         _struct_label(nilsym)
28         _struct_pad(nrs_symbol_extra)  /* nil */
29
30         _struct_pad(nrs_symbol_fulltag)
31         _struct_label(errdisp)
32         _struct_pad(nrs_symbol_extra)  /* %err-disp */
33
34         _struct_pad(nrs_symbol_fulltag)
35         _struct_label(cmain)
36         _struct_pad(nrs_symbol_extra)  /* cmain */
37
38         _struct_pad(nrs_symbol_fulltag)
39         _struct_label(eval)
40         _struct_pad(nrs_symbol_extra)  /* eval */
41 
42         _struct_pad(nrs_symbol_fulltag)
43         _struct_label(appevalfn)
44         _struct_pad(nrs_symbol_extra)  /* apply-evaluated-function */
45
46         _struct_pad(nrs_symbol_fulltag)
47         _struct_label(error)
48         _struct_pad(nrs_symbol_extra)  /* error */
49
50         _struct_pad(nrs_symbol_fulltag)
51         _struct_label(defun)
52         _struct_pad(nrs_symbol_extra)  /* %defun */
53
54         _struct_pad(nrs_symbol_fulltag)
55         _struct_label(defvar)
56         _struct_pad(nrs_symbol_extra)  /* %defvar */
57
58         _struct_pad(nrs_symbol_fulltag)
59         _struct_label(defconstant)
60         _struct_pad(nrs_symbol_extra)  /* %defconstant */
61
62         _struct_pad(nrs_symbol_fulltag)
63         _struct_label(macrosym)
64         _struct_pad(nrs_symbol_extra)  /* %macro */
65
66         _struct_pad(nrs_symbol_fulltag)
67         _struct_label(kernelrestart)
68         _struct_pad(nrs_symbol_extra)  /* %kernel-restart */
69
70         _struct_pad(nrs_symbol_fulltag)
71         _struct_label(package)
72         _struct_pad(nrs_symbol_extra)  /* *package* */
73
74         _struct_pad(nrs_symbol_fulltag)
75         _struct_label(total_bytes_freed)               /* *total-bytes-freed* */
76         _struct_pad(nrs_symbol_extra)
77
78         _struct_pad(nrs_symbol_fulltag)
79         _struct_label(kallowotherkeys)
80         _struct_pad(nrs_symbol_extra)  /* allow-other-keys */
81
82         _struct_pad(nrs_symbol_fulltag)
83         _struct_label(toplcatch)
84         _struct_pad(nrs_symbol_extra)  /* %toplevel-catch% */
85
86         _struct_pad(nrs_symbol_fulltag)
87         _struct_label(toplfunc)
88         _struct_pad(nrs_symbol_extra)  /* %toplevel-function% */
89
90         _struct_pad(nrs_symbol_fulltag)
91         _struct_label(callbacks)
92         _struct_pad(nrs_symbol_extra)  /* %pascal-functions% */
93
94         _struct_pad(nrs_symbol_fulltag)
95         _struct_label(restore_lisp_pointers)
96         _struct_pad(nrs_symbol_extra)  /* restore-lisp-pointers */
97
98         _struct_pad(nrs_symbol_fulltag)
99         _struct_label(total_gc_microseconds)           /* *total-gc-microseconds* */
100         _struct_pad(nrs_symbol_extra)
101
102         _struct_pad(nrs_symbol_fulltag)
103         _struct_label(builtin_functions)               /* %builtin-functions% */
104         _struct_pad(nrs_symbol_extra)               
105
106         _struct_pad(nrs_symbol_fulltag)
107         _struct_label(udf)
108         _struct_pad(nrs_symbol_extra)  /* %unbound-function% */
109
110         _struct_pad(nrs_symbol_fulltag)
111         _struct_label(init_misc)
112         _struct_pad(nrs_symbol_extra)  /* %init-misc */
113
114         _struct_pad(nrs_symbol_fulltag)
115         _struct_label(macro_code)
116         _struct_pad(nrs_symbol_extra)  /* %macro-code% */
117
118         _struct_pad(nrs_symbol_fulltag)
119         _struct_label(closure_code)
120         _struct_pad(nrs_symbol_extra)      /* %closure-code% */
121
122         _struct_pad(nrs_symbol_fulltag)
123         _struct_label(new_gcable_ptr) /* %new-gcable-ptr */
124         _struct_pad(nrs_symbol_extra)
125       
126         _struct_pad(nrs_symbol_fulltag)
127         _struct_label(gc_event_status_bits)
128         _struct_pad(nrs_symbol_extra)  /* *gc-event-status-bits* */
129
130         _struct_pad(nrs_symbol_fulltag)
131         _struct_label(post_gc_hook)
132         _struct_pad(nrs_symbol_extra)  /* *post-gc-hook* */
133
134         _struct_pad(nrs_symbol_fulltag)
135         _struct_label(handlers)
136         _struct_pad(nrs_symbol_extra)  /* %handlers% */
137
138
139         _struct_pad(nrs_symbol_fulltag)
140         _struct_label(all_packages)
141         _struct_pad(nrs_symbol_extra)  /* %all-packages% */
142
143         _struct_pad(nrs_symbol_fulltag)
144         _struct_label(keyword_package)
145         _struct_pad(nrs_symbol_extra)  /* *keyword-package* */
146
147         _struct_pad(nrs_symbol_fulltag)
148         _struct_label(os_init_function)
149         _struct_pad(nrs_symbol_extra)  /* %os-init-function% */
150
151         _struct_pad(nrs_symbol_fulltag)
152         _struct_label(foreign_thread_control)
153         _struct_pad(nrs_symbol_extra)  /* %foreign-thread-control */
154        _ends
Note: See TracBrowser for help on using the repository browser.