source: trunk/source/lisp-kernel/lisp.s @ 13337

Last change on this file since 13337 was 13337, checked in by plkrueger, 10 years ago

Don't change the m4 quoting characters from their defaults (`').
(On the ARM, square brackets are used to denote memory operands, curly
braces surround register lists, and multicharacter quoting delimeters
look funny ...)

Some versions (at least) of m4 are confused by quoting characters in
comments, so try to refrain from using contractions ...

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.2 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
Note: See TracBrowser for help on using the repository browser.