/[cmucl]/src/lisp/globals.h
ViewVC logotype

Contents of /src/lisp/globals.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.13 - (show annotations)
Mon Nov 2 15:05:07 2009 UTC (4 years, 5 months ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, intl-branch-working-2010-02-19-1000, release-20b-pre1, release-20b-pre2, sparc-tramp-assem-2010-07-19, intl-2-branch-base, GIT-CONVERSION, cross-sol-x86-merged, intl-branch-working-2010-02-11-1000, RELEASE_20b, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, pre-merge-intl-branch, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, snapshot-2010-08, cross-sol-x86-2010-12-20, intl-branch-2010-03-18-1300, snapshot-2009-12, cross-sparc-branch-base, intl-branch-base, HEAD
Branch point for: cross-sparc-branch, RELEASE-20B-BRANCH, sparc-tramp-assem-branch, intl-branch, cross-sol-x86-branch, intl-2-branch
Changes since 1.12: +1 -1 lines
File MIME type: text/plain
Revert previous changes.  They were supposed to go on
amd64-dd-branch.
1 /* $Header: /tiger/var/lib/cvsroots/cmucl/src/lisp/globals.h,v 1.13 2009/11/02 15:05:07 rtoy Rel $ */
2
3 #ifndef _GLOBALS_H_
4 #define _GLOBALS_H_
5
6 #ifndef LANGUAGE_ASSEMBLY
7
8 #include "lisp.h"
9
10 extern int foreign_function_call_active;
11
12 extern fpu_mode_t fpu_mode;
13
14 extern lispobj *current_control_stack_pointer;
15 extern lispobj *current_control_frame_pointer;
16
17 #if !defined(ibmrt) && !defined(i386)
18 extern lispobj *current_binding_stack_pointer;
19 #endif
20
21 extern lispobj *read_only_space;
22 extern lispobj *static_space;
23 extern lispobj *dynamic_0_space;
24 extern lispobj *dynamic_1_space;
25 extern unsigned dynamic_space_size;
26 extern lispobj *control_stack;
27 extern lispobj *binding_stack;
28
29 #if (defined(i386) || defined(__x86_64))
30 extern lispobj *control_stack_end;
31 #endif
32 extern lispobj *current_dynamic_space;
33
34 #if !defined(ibmrt) && !defined(i386)
35 extern lispobj *current_dynamic_space_free_pointer;
36 extern lispobj *current_auto_gc_trigger;
37 #endif
38
39 extern void globals_init(void);
40
41 #else /* LANGUAGE_ASSEMBLY */
42
43 /* These are needed by ./assem.s */
44
45 #ifdef ppc
46 #ifdef DARWIN
47 #define EXTERN(name,bytes) .globl _/**/name
48 #else
49 #define EXTERN(name,bytes) .globl _/**/name
50 #endif
51 #endif
52 #ifdef mips
53 #define EXTERN(name,bytes) .extern name bytes
54 #endif
55 #ifdef sparc
56 #ifdef SVR4
57 #define EXTERN(name,bytes) .global name
58 #else
59 #define EXTERN(name,bytes) .global _ ## name
60 #endif
61 #endif
62 #ifdef ibmrt
63 #define EXTERN(name,bytes) .globl _/**/name
64 #endif
65
66 #ifdef i386
67 #ifdef __linux__
68 #define EXTERN(name,bytes) .globl _/**/name
69 #else
70 #define EXTERN(name,bytes) .global _ ## name
71 #endif
72 #endif
73
74 EXTERN(foreign_function_call_active, 4)
75
76 EXTERN(current_control_stack_pointer, 4)
77 EXTERN(current_control_frame_pointer, 4)
78 #if !defined(ibmrt) && !defined(i386)
79 EXTERN(current_binding_stack_pointer, 4)
80 EXTERN(current_dynamic_space_free_pointer, 4)
81 #endif
82 #ifdef mips
83 EXTERN(current_flags_register, 4)
84 #endif
85 #endif /* LANGUAGE_ASSEMBLY */
86 #endif /* _GLOBALS_H_ */

  ViewVC Help
Powered by ViewVC 1.1.5