source: release/1.9/source/lisp-kernel/lisp.s @ 16083

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

Changes from ARM branch. Need testing ...

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.3 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        include(m4macros.m4)       
17        ifdef(`LOWMEM_BIAS',`
18`LOWMEM_BIAS' = LOWMEM_BIAS
19',`
20`LOWMEM_BIAS' = 0
21')
22        undefine(`LOWMEM_BIAS')
23        /* DWARF2 exception fsm */
24        DW_CFA_advance_loc = 0x40   
25        DW_CFA_offset = 0x80
26        DW_CFA_restore = 0xc0
27        DW_CFA_nop = 0x00
28        DW_CFA_set_loc = 0x01
29        DW_CFA_advance_loc1 = 0x02
30        DW_CFA_advance_loc2 = 0x03
31        DW_CFA_advance_loc4 = 0x04
32        DW_CFA_offset_extended = 0x05
33        DW_CFA_restore_extended = 0x06
34        DW_CFA_undefined = 0x07
35        DW_CFA_same_value = 0x08
36        DW_CFA_register = 0x09
37        DW_CFA_remember_state = 0x0a
38        DW_CFA_restore_state = 0x0b
39        DW_CFA_def_cfa = 0x0c
40        DW_CFA_def_cfa_register = 0x0d
41        DW_CFA_def_cfa_offset = 0x0e
42        /* DWARF 3.  */
43        DW_CFA_def_cfa_expression = 0x0f
44        DW_CFA_expression = 0x10
45        DW_CFA_offset_extended_sf = 0x11
46        DW_CFA_def_cfa_sf = 0x12
47        DW_CFA_def_cfa_offset_sf = 0x13
48        DW_CFA_val_offset = 0x14
49        DW_CFA_val_offset_sf = 0x15
50        DW_CFA_val_expression = 0x16
51        /* SGI/MIPS specific.  */
52        DW_CFA_MIPS_advance_loc8 = 0x1d
53        /* GNU extensions.  */
54        DW_CFA_GNU_window_save = 0x2d
55        DW_CFA_GNU_args_size = 0x2e
56        DW_CFA_GNU_negative_offset_extended = 0x2f
57
58        ifdef(`PPC',`
59         include(ppc-constants.s)
60         include(ppc-macros.s)
61         include(ppc-uuo.s)
62        ')
63        ifdef(`X86',`
64         include(x86-constants.s)
65         include(x86-macros.s)
66         include(x86-uuo.s)
67        ')
68        ifdef(`ARM',`
69         include(arm-constants.s)
70         include(arm-macros.s)
71         include(arm-uuo.s)
72        ')
73
Note: See TracBrowser for help on using the repository browser.