asm.h revision 1.1.6.2 1 1.1.6.2 simonb /* $NetBSD: asm.h,v 1.1.6.2 2006/04/22 11:37:36 simonb Exp $ */
2 1.1.6.2 simonb
3 1.1.6.2 simonb /* -
4 1.1.6.2 simonb * Copyright (c) 1991,1990,1989,1994,1995,1996 Carnegie Mellon University
5 1.1.6.2 simonb * All Rights Reserved.
6 1.1.6.2 simonb *
7 1.1.6.2 simonb * Permission to use, copy, modify and distribute this software and its
8 1.1.6.2 simonb * documentation is hereby granted, provided that both the copyright
9 1.1.6.2 simonb * notice and this permission notice appear in all copies of the
10 1.1.6.2 simonb * software, derivative works or modified versions, and any portions
11 1.1.6.2 simonb * thereof, and that both notices appear in supporting documentation.
12 1.1.6.2 simonb *
13 1.1.6.2 simonb * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
14 1.1.6.2 simonb * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
15 1.1.6.2 simonb * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
16 1.1.6.2 simonb *
17 1.1.6.2 simonb * Carnegie Mellon requests users of this software to return to
18 1.1.6.2 simonb *
19 1.1.6.2 simonb * Software Distribution Coordinator or Software.Distribution (at) CS.CMU.EDU
20 1.1.6.2 simonb * School of Computer Science
21 1.1.6.2 simonb * Carnegie Mellon University
22 1.1.6.2 simonb * Pittsburgh PA 15213-3890
23 1.1.6.2 simonb *
24 1.1.6.2 simonb * any improvements or extensions that they make and grant Carnegie Mellon
25 1.1.6.2 simonb * the rights to redistribute these changes.
26 1.1.6.2 simonb */
27 1.1.6.2 simonb
28 1.1.6.2 simonb /*
29 1.1.6.2 simonb * Assembly coding style
30 1.1.6.2 simonb *
31 1.1.6.2 simonb * This file contains macros and register defines to
32 1.1.6.2 simonb * aid in writing more readable assembly code.
33 1.1.6.2 simonb * Some rules to make assembly code understandable by
34 1.1.6.2 simonb * a debugger are also noted.
35 1.1.6.2 simonb */
36 1.1.6.2 simonb
37 1.1.6.2 simonb /*
38 1.1.6.2 simonb * Macro to make a local label name.
39 1.1.6.2 simonb */
40 1.1.6.2 simonb #define LLABEL(name,num) L ## name ## num
41 1.1.6.2 simonb
42 1.1.6.2 simonb /*
43 1.1.6.2 simonb * MCOUNT
44 1.1.6.2 simonb */
45 1.1.6.2 simonb #if defined(GPROF)
46 1.1.6.2 simonb #define MCOUNT \
47 1.1.6.2 simonb alloc out0 = ar.pfs, 8, 0, 4, 0; \
48 1.1.6.2 simonb mov out1 = r1; \
49 1.1.6.2 simonb mov out2 = b0;; \
50 1.1.6.2 simonb mov out3 = r0; \
51 1.1.6.2 simonb br.call.sptk b0 = _mcount;;
52 1.1.6.2 simonb #else
53 1.1.6.2 simonb #define MCOUNT /* nothing */
54 1.1.6.2 simonb #endif
55 1.1.6.2 simonb
56 1.1.6.2 simonb /*
57 1.1.6.2 simonb * ENTRY
58 1.1.6.2 simonb * Declare a global leaf function.
59 1.1.6.2 simonb * A leaf function does not call other functions.
60 1.1.6.2 simonb */
61 1.1.6.2 simonb #define ENTRY(_name_, _n_args_) \
62 1.1.6.2 simonb .global _name_; \
63 1.1.6.2 simonb .align 16; \
64 1.1.6.2 simonb .proc _name_; \
65 1.1.6.2 simonb _name_:; \
66 1.1.6.2 simonb .regstk _n_args_, 0, 0, 0; \
67 1.1.6.2 simonb MCOUNT
68 1.1.6.2 simonb
69 1.1.6.2 simonb #define ENTRY_NOPROFILE(_name_, _n_args_) \
70 1.1.6.2 simonb .global _name_; \
71 1.1.6.2 simonb .align 16; \
72 1.1.6.2 simonb .proc _name_; \
73 1.1.6.2 simonb _name_:; \
74 1.1.6.2 simonb .regstk _n_args_, 0, 0, 0
75 1.1.6.2 simonb
76 1.1.6.2 simonb /*
77 1.1.6.2 simonb * STATIC_ENTRY
78 1.1.6.2 simonb * Declare a local leaf function.
79 1.1.6.2 simonb */
80 1.1.6.2 simonb #define STATIC_ENTRY(_name_, _n_args_) \
81 1.1.6.2 simonb .align 16; \
82 1.1.6.2 simonb .proc _name_; \
83 1.1.6.2 simonb _name_:; \
84 1.1.6.2 simonb .regstk _n_args_, 0, 0, 0 \
85 1.1.6.2 simonb MCOUNT
86 1.1.6.2 simonb /*
87 1.1.6.2 simonb * XENTRY
88 1.1.6.2 simonb * Global alias for a leaf function, or alternate entry point
89 1.1.6.2 simonb */
90 1.1.6.2 simonb #define XENTRY(_name_) \
91 1.1.6.2 simonb .globl _name_; \
92 1.1.6.2 simonb _name_:
93 1.1.6.2 simonb
94 1.1.6.2 simonb /*
95 1.1.6.2 simonb * STATIC_XENTRY
96 1.1.6.2 simonb * Local alias for a leaf function, or alternate entry point
97 1.1.6.2 simonb */
98 1.1.6.2 simonb #define STATIC_XENTRY(_name_) \
99 1.1.6.2 simonb _name_:
100 1.1.6.2 simonb
101 1.1.6.2 simonb
102 1.1.6.2 simonb /*
103 1.1.6.2 simonb * END
104 1.1.6.2 simonb * Function delimiter
105 1.1.6.2 simonb */
106 1.1.6.2 simonb #define END(_name_) \
107 1.1.6.2 simonb .endp _name_
108 1.1.6.2 simonb
109 1.1.6.2 simonb
110 1.1.6.2 simonb /*
111 1.1.6.2 simonb * EXPORT
112 1.1.6.2 simonb * Export a symbol
113 1.1.6.2 simonb */
114 1.1.6.2 simonb #define EXPORT(_name_) \
115 1.1.6.2 simonb .global _name_; \
116 1.1.6.2 simonb _name_:
117 1.1.6.2 simonb
118 1.1.6.2 simonb
119 1.1.6.2 simonb /*
120 1.1.6.2 simonb * IMPORT
121 1.1.6.2 simonb * Make an external name visible, typecheck the size
122 1.1.6.2 simonb */
123 1.1.6.2 simonb #define IMPORT(_name_, _size_) \
124 1.1.6.2 simonb /* .extern _name_,_size_ */
125 1.1.6.2 simonb
126 1.1.6.2 simonb
127 1.1.6.2 simonb /*
128 1.1.6.2 simonb * ABS
129 1.1.6.2 simonb * Define an absolute symbol
130 1.1.6.2 simonb */
131 1.1.6.2 simonb #define ABS(_name_, _value_) \
132 1.1.6.2 simonb .globl _name_; \
133 1.1.6.2 simonb _name_ = _value_
134 1.1.6.2 simonb
135 1.1.6.2 simonb
136 1.1.6.2 simonb /*
137 1.1.6.2 simonb * BSS
138 1.1.6.2 simonb * Allocate un-initialized space for a global symbol
139 1.1.6.2 simonb */
140 1.1.6.2 simonb #define BSS(_name_,_numbytes_) \
141 1.1.6.2 simonb .comm _name_,_numbytes_
142 1.1.6.2 simonb
143 1.1.6.2 simonb
144 1.1.6.2 simonb /*
145 1.1.6.2 simonb * MSG
146 1.1.6.2 simonb * Allocate space for a message (a read-only ascii string)
147 1.1.6.2 simonb */
148 1.1.6.2 simonb #define ASCIZ .asciz
149 1.1.6.2 simonb #define MSG(msg,reg,label) \
150 1.1.6.2 simonb addl reg,@ltoff(label),gp;; \
151 1.1.6.2 simonb ld8 reg=[reg];; \
152 1.1.6.2 simonb .data; \
153 1.1.6.2 simonb label: ASCIZ msg; \
154 1.1.6.2 simonb .text;
155 1.1.6.2 simonb
156 1.1.6.2 simonb
157 1.1.6.2 simonb /*
158 1.1.6.2 simonb * System call glue.
159 1.1.6.2 simonb */
160 1.1.6.2 simonb #define SYSCALLNUM(name) SYS_ ## name
161 1.1.6.2 simonb
162 1.1.6.2 simonb #define CALLSYS_NOERROR(name) \
163 1.1.6.2 simonb { .mmi ; \
164 1.1.6.2 simonb alloc r9 = ar.pfs, 0, 0, 8, 0 ; \
165 1.1.6.2 simonb mov r31 = ar.k5 ; \
166 1.1.6.2 simonb mov r10 = b0 ;; } \
167 1.1.6.2 simonb { .mib ; \
168 1.1.6.2 simonb mov r8 = SYSCALLNUM(name) ; \
169 1.1.6.2 simonb mov b7 = r31 ; \
170 1.1.6.2 simonb br.call.sptk b0 = b7 ;; }
171 1.1.6.2 simonb
172 1.1.6.2 simonb
173 1.1.6.2 simonb /*
174 1.1.6.2 simonb * WEAK_ALIAS: create a weak alias (ELF only).
175 1.1.6.2 simonb */
176 1.1.6.2 simonb #define WEAK_ALIAS(alias,sym) \
177 1.1.6.2 simonb .weak alias; \
178 1.1.6.2 simonb alias = sym
179 1.1.6.2 simonb
180