source: branches/qres/ccl/lib/x8632env.lisp @ 14259

Last change on this file since 14259 was 13070, checked in by gz, 10 years ago

r13066, r13067 from trunk: copyrights etc

File size: 2.1 KB
Line 
1; -*- Mode:Lisp; Package:CCL; -*-
2;;;
3;;;   Copyright (C) 2005-2009 Clozure Associates
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(in-package "CCL")
18
19(defconstant $numx8632saveregs 0)
20(defconstant $numx8632argregs 2)
21
22
23(defconstant x8632-nonvolatile-registers-mask 0)
24
25(defconstant x8632-arg-registers-mask
26  (logior (ash 1 x8632::arg_z)
27          (ash 1 x8632::arg_y)))
28 
29(defconstant x8632-temp-registers-mask
30  (logior (ash 1 x8632::temp0)
31          (ash 1 x8632::temp1)))
32 
33(defconstant x8632-tagged-registers-mask
34  (logior x8632-temp-registers-mask
35          x8632-arg-registers-mask
36          x8632-nonvolatile-registers-mask))
37
38
39
40(defconstant x8632-temp-node-regs 
41  (make-mask x8632::temp0
42             x8632::temp1
43             x8632::arg_y
44             x8632::arg_z))
45
46(defconstant x8632-nonvolatile-node-regs 0)
47
48(defconstant x8632-node-regs (logior x8632-temp-node-regs x8632-nonvolatile-node-regs))
49
50(defconstant x8632-imm-regs (make-mask
51                             x8632::imm0))
52
53;;; Fine if we assume SSE support;  not so hot when using x87
54(defconstant x8632-temp-fp-regs (make-mask x8632::fp0
55                                           x8632::fp1
56                                           x8632::fp2
57                                           x8632::fp3
58                                           x8632::fp4
59                                           x8632::fp5
60                                           x8632::fp6
61                                           x8632::fp7))
62                               
63
64
65(defconstant x8632-cr-fields (make-mask 0))
66
67;;; hmm.
68(defconstant $undo-x86-c-frame 16)
69
70
71(ccl::provide "X8632ENV")
Note: See TracBrowser for help on using the repository browser.