source: branches/working-0711/ccl/lisp-kernel/lisp.s @ 12989

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

mac changes (r12671, r12672)

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.1 KB
Line 
1/*   Copyright (C) 1994-2001 Digitool, Inc */
2/*   This file is part of OpenMCL. */
3 
4/*   OpenMCL is licensed under the terms of the Lisp Lesser GNU Public */
5/*   License , known as the LLGPL and distributed with OpenMCL as the */
6/*   file "LICENSE".  The LLGPL consists of a preamble and the LGPL, */
7/*   which is distributed with OpenMCL as the file "LGPL".  Where these */
8/*   conflict, the preamble takes precedence. */
9 
10/*   OpenMCL is referenced in the preamble as the "LIBRARY." */
11 
12/*   The LLGPL is also available online at */
13/*   http://opensource.franz.com/preamble.html */
14
15        include(m4macros.m4)
16        ifdef([LOWMEM_BIAS],[
17[LOWMEM_BIAS] = LOWMEM_BIAS
18],[
19[LOWMEM_BIAS] = 0
20])
21        undefine([LOWMEM_BIAS])
22        /* DWARF2 exception fsm */
23        DW_CFA_advance_loc = 0x40   
24        DW_CFA_offset = 0x80
25        DW_CFA_restore = 0xc0
26        DW_CFA_nop = 0x00
27        DW_CFA_set_loc = 0x01
28        DW_CFA_advance_loc1 = 0x02
29        DW_CFA_advance_loc2 = 0x03
30        DW_CFA_advance_loc4 = 0x04
31        DW_CFA_offset_extended = 0x05
32        DW_CFA_restore_extended = 0x06
33        DW_CFA_undefined = 0x07
34        DW_CFA_same_value = 0x08
35        DW_CFA_register = 0x09
36        DW_CFA_remember_state = 0x0a
37        DW_CFA_restore_state = 0x0b
38        DW_CFA_def_cfa = 0x0c
39        DW_CFA_def_cfa_register = 0x0d
40        DW_CFA_def_cfa_offset = 0x0e
41        /* DWARF 3.  */
42        DW_CFA_def_cfa_expression = 0x0f
43        DW_CFA_expression = 0x10
44        DW_CFA_offset_extended_sf = 0x11
45        DW_CFA_def_cfa_sf = 0x12
46        DW_CFA_def_cfa_offset_sf = 0x13
47        DW_CFA_val_offset = 0x14
48        DW_CFA_val_offset_sf = 0x15
49        DW_CFA_val_expression = 0x16
50        /* SGI/MIPS specific.  */
51        DW_CFA_MIPS_advance_loc8 = 0x1d
52        /* GNU extensions.  */
53        DW_CFA_GNU_window_save = 0x2d
54        DW_CFA_GNU_args_size = 0x2e
55        DW_CFA_GNU_negative_offset_extended = 0x2f
56
57        ifdef([PPC],[
58         include(ppc-constants.s)
59         include(ppc-macros.s)
60         include(ppc-uuo.s)
61        ])
62        ifdef([X86],[
63         include(x86-constants.s)
64         include(x86-macros.s)
65         include(x86-uuo.s)
66        ])
67
Note: See TracBrowser for help on using the repository browser.