source: release/1.9/source/lisp-kernel/ppc-constants.h @ 16083

Last change on this file since 16083 was 13627, checked in by gb, 9 years ago

Include lisptypes.h and word-size/arch-specific constants file in platform
header; don't include lisptypes/*constants from lisp.h.

Whatever seemed to make it necessary to include dyld.h early on Darwin
seems to be gone (assuming that these changes actually compile and run
on all platforms.)

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.6 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#include "constants.h"
19
20/*  Register usage: */
21#define rzero 0
22#define sp 1
23#define linux_sys_reg 2  /* volatile reg on Darwin ; thread ptr on Linux32, TOC on
24                                Linux64. */
25#define imm0 3
26#define imm1 4
27#define imm2 5
28#define imm3 6
29#define imm4 7
30#define imm5 8
31#define allocptr 9
32#define allocbase 10
33#define nargs 11
34#define tsp 12
35#define loc_pc 14               /*  code vector locative */
36#define vsp 15         
37#define fn 16
38#define temp3 17
39#define temp2 18
40#define temp1 19
41#define temp0 20       
42#define arg_x 21
43#define arg_y 22
44#define arg_z 23
45#define save7 24
46#define save6 25
47#define save5 26
48#define save4 27
49#define save3 28
50#define save2 29
51#define save1 30
52#define save0 31
53
54#define vfp save0       /*  frame pointer if needed (stack consing). */
55#define fname temp3
56#define nfn temp2
57#define next_method_context temp1
58#define closure_data temp0
59
60
61#define BA_MASK ((unsigned) ((-1<<26) | (1<<1)))
62#define BA_VAL  ((unsigned) ((18<<26) | (1<<1)))
63
64
65#define STATIC_BASE_ADDRESS 0x00002000
66
67
68
Note: See TracBrowser for help on using the repository browser.