source: trunk/source/lisp-kernel/x86-uuo.s @ 14347

Last change on this file since 14347 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.0 KB
Line 
1/*   Copyright (C) 2005-2009 Clozure Associates */
2/*   This file is part of Clozure CL.   */
3
4/*   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public */
5/*   License , known as the LLGPL and distributed with Clozure CL as the */
6/*   file "LICENSE".  The LLGPL consists of a preamble and the LGPL, */
7/*   which is distributed with Clozure CL as the file "LGPL".  Where these */
8/*   conflict, the preamble takes precedence.   */
9
10/*   Clozure CL 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
16define(`uuo_error_too_few_args',`
17        int `$'0xc0
18')
19
20define(`uuo_error_too_many_args',`
21        int `$'0xc1
22')
23
24define(`uuo_error_wrong_number_of_args',`
25        int `$'0xc2
26')
27
28
29define(`uuo_error_gc_trap',`
30        int `$'0xc4
31')                       
32
33
34define(`uuo_error_debug_trap',`
35        int `$'0xca
36')                       
37       
38                                       
39/* If we're allocating a CONS, the tcr's save_allocptr slot will be */
40/* tagged as a cons.  Otherwise, it'll be tagged as fulltag_misc, */
41/* and we have to look at the immediate registers to determine what's */
42/* being allocated. */
43define(`uuo_alloc',`
44        int `$'0xc5
45')
46                               
47define(`uuo_error_not_callable',`
48        int `$'0xc6
49')
50
51
52define(`xuuo',`
53        ud2a
54        .byte $1
55')
56       
57define(`tlb_too_small',`
58        xuuo(1)
59')
60
61define(`interrupt_now',`
62        xuuo(2)
63')             
64
65define(`suspend_now',`
66        xuuo(3)
67')             
68
69define(`uuo_error_reg_not_fixnum',`
70        int `$'0xf0|$1
71')     
72       
73define(`uuo_error_reg_not_list',`
74        int `$'0xe0|$1
75')
76
77define(`uuo_error_reg_not_tag',`
78        int `$'0xd0|$1
79        .byte $2
80')                     
81
82define(`uuo_error_reg_not_type',`
83        int `$'0xb0|$1
84        .byte $2
85')
86
87define(`uuo_error_reg_not_fixnum',`
88        int `$'0xf0|$1
89')     
90               
91define(`uuo_error_reg_unbound',`
92        int `$'0x90|$1
93')     
94
95define(`uuo_error_vector_bounds',`
96        int `$'0xc8
97        .byte ($1<<4)|($2)
98')     
99
100define(`uuo_error_array_bounds',`
101        int `$'0xcb
102        .byte ($1<<4)|($2)
103')     
104
Note: See TracBrowser for help on using the repository browser.