![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to langpats.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Net/2] / Net2 / arch / vax / inline|
Return to langpats.c CVS log | Up to [Net/2] / Net2 / arch / vax / inline |
1.1 root 1: /*-
2: * Copyright (c) 1984, 1986 The Regents of the University of California.
3: * All rights reserved.
4: *
5: * Redistribution and use in source and binary forms, with or without
6: * modification, are permitted provided that the following conditions
7: * are met:
8: * 1. Redistributions of source code must retain the above copyright
9: * notice, this list of conditions and the following disclaimer.
10: * 2. Redistributions in binary form must reproduce the above copyright
11: * notice, this list of conditions and the following disclaimer in the
12: * documentation and/or other materials provided with the distribution.
13: * 3. All advertising materials mentioning features or use of this software
14: * must display the following acknowledgement:
15: * This product includes software developed by the University of
16: * California, Berkeley and its contributors.
17: * 4. Neither the name of the University nor the names of its contributors
18: * may be used to endorse or promote products derived from this software
19: * without specific prior written permission.
20: *
21: * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31: * SUCH DAMAGE.
32: */
33:
34: #ifndef lint
35: static char sccsid[] = "@(#)langpats.c 7.3 (Berkeley) 5/8/91";
36: #endif /* not lint */
37:
38: #include "inline.h"
39:
40: /*
41: * Pattern table for kernel specific routines.
42: * These patterns are based on the old asm.sed script.
43: */
44: struct pats language_ptab[] = {
45:
46: #ifdef vax
47: { 0, "_spl0\n",
48: " mfpr $18,r0\n\
49: mtpr $0,$18\n" },
50:
51: { 0, "_spl1\n",
52: " mfpr $18,r0\n\
53: mtpr $1,$18\n" },
54:
55: { 0, "_splsoftclock\n",
56: " mfpr $18,r0\n\
57: mtpr $0x8,$18\n" },
58:
59: { 0, "_splnet\n",
60: " mfpr $18,r0\n\
61: mtpr $0xc,$18\n" },
62:
63: { 0, "_splimp\n",
64: " mfpr $18,r0\n\
65: mtpr $0x16,$18\n" },
66:
67: { 0, "_spl4\n",
68: " mfpr $18,r0\n\
69: mtpr $0x14,$18\n" },
70:
71: { 0, "_splbio\n",
72: " mfpr $18,r0\n\
73: mtpr $0x15,$18\n" },
74:
75: { 0, "_spltty\n",
76: " mfpr $18,r0\n\
77: mtpr $0x15,$18\n" },
78:
79: { 0, "_spl5\n",
80: " mfpr $18,r0\n\
81: mtpr $0x15,$18\n" },
82:
83: { 0, "_spl6\n",
84: " mfpr $18,r0\n\
85: mtpr $0x16,$18\n" },
86:
87: { 0, "_spl7\n",
88: " mfpr $18,r0\n\
89: mtpr $0x17,$18\n" },
90:
91: { 0, "_splclock\n",
92: " mfpr $18,r0\n\
93: mtpr $0x18,$18\n" },
94:
95: { 0, "_splhigh\n",
96: " mfpr $18,r0\n\
97: mtpr $0x1f,$18\n" },
98:
99: { 1, "_splx\n",
100: " movl (sp)+,r0\n\
101: mtpr r0,$18\n" },
102:
103: { 1, "_mfpr\n",
104: " movl (sp)+,r5\n\
105: mfpr r5,r0\n" },
106:
107: { 2, "_mtpr\n",
108: " movl (sp)+,r4\n\
109: movl (sp)+,r5\n\
110: mtpr r5,r4\n" },
111:
112: { 0, "_setsoftclock\n",
113: " mtpr $0x8,$0x14\n" },
114:
115: { 1, "_resume\n",
116: " movl (sp)+,r5\n\
117: ashl $9,r5,r0\n\
118: movpsl -(sp)\n\
119: jsb _Resume\n" },
120:
121: { 3, "_copyin\n",
122: " movl (sp)+,r1\n\
123: movl (sp)+,r3\n\
124: movl (sp)+,r5\n\
125: jsb _Copyin\n" },
126:
127: { 3, "_copyout\n",
128: " movl (sp)+,r1\n\
129: movl (sp)+,r3\n\
130: movl (sp)+,r5\n\
131: jsb _Copyout\n" },
132:
133: { 1, "_fubyte\n",
134: " movl (sp)+,r0\n\
135: jsb _Fubyte\n" },
136:
137: { 1, "_fuibyte\n",
138: " movl (sp)+,r0\n\
139: jsb _Fubyte\n" },
140:
141: { 1, "_fuword\n",
142: " movl (sp)+,r0\n\
143: jsb _Fuword\n" },
144:
145: { 1, "_fuiword\n",
146: " movl (sp)+,r0\n\
147: jsb _Fuword\n" },
148:
149: { 2, "_subyte\n",
150: " movl (sp)+,r0\n\
151: movl (sp)+,r1\n\
152: jsb _Subyte\n" },
153:
154: { 2, "_suibyte\n",
155: " movl (sp)+,r0\n\
156: movl (sp)+,r1\n\
157: jsb _Subyte\n" },
158:
159: { 2, "_suword\n",
160: " movl (sp)+,r0\n\
161: movl (sp)+,r1\n\
162: jsb _Suword\n" },
163:
164: { 2, "_suiword\n",
165: " movl (sp)+,r0\n\
166: movl (sp)+,r1\n\
167: jsb _Suword\n" },
168:
169: { 1, "_setrq\n",
170: " movl (sp)+,r0\n\
171: jsb _Setrq\n" },
172:
173: { 1, "_remrq\n",
174: " movl (sp)+,r0\n\
175: jsb _Remrq\n" },
176:
177: { 0, "_swtch\n",
178: " movpsl -(sp)\n\
179: jsb _Swtch\n" },
180:
181: { 1, "_ffs\n",
182: " movl (sp)+,r1\n\
183: ffs $0,$32,r1,r0\n\
184: bneq 1f\n\
185: mnegl $1,r0\n\
186: 1:\n\
187: incl r0\n" },
188:
189: { 1, "_htons\n",
190: " movl (sp)+,r5\n\
191: rotl $8,r5,r0\n\
192: rotl $-8,r5,r1\n\
193: movb r1,r0\n\
194: movzwl r0,r0\n" },
195:
196: { 1, "_ntohs\n",
197: " movl (sp)+,r5\n\
198: rotl $8,r5,r0\n\
199: rotl $-8,r5,r1\n\
200: movb r1,r0\n\
201: movzwl r0,r0\n" },
202:
203: { 1, "_htonl\n",
204: " movl (sp)+,r5\n\
205: rotl $-8,r5,r0\n\
206: insv r0,$16,$8,r0\n\
207: rotl $8,r5,r1\n\
208: movb r1,r0\n" },
209:
210: { 1, "_ntohl\n",
211: " movl (sp)+,r5\n\
212: rotl $-8,r5,r0\n\
213: insv r0,$16,$8,r0\n\
214: rotl $8,r5,r1\n\
215: movb r1,r0\n" },
216:
217: { 2, "__insque\n",
218: " movl (sp)+,r4\n\
219: movl (sp)+,r5\n\
220: insque (r4),(r5)\n" },
221:
222: { 1, "__remque\n",
223: " movl (sp)+,r5\n\
224: remque (r5),r0\n" },
225:
226: { 2, "__queue\n",
227: " movl (sp)+,r0\n\
228: movl (sp)+,r1\n\
229: insque (r1),*4(r0)\n" },
230:
231: { 1, "__dequeue\n",
232: " movl (sp)+,r0\n\
233: remque *(r0),r0\n" },
234:
235: { 2, "_imin\n",
236: " movl (sp)+,r0\n\
237: movl (sp)+,r5\n\
238: cmpl r0,r5\n\
239: bleq 1f\n\
240: movl r5,r0\n\
241: 1:\n" },
242:
243: { 2, "_imax\n",
244: " movl (sp)+,r0\n\
245: movl (sp)+,r5\n\
246: cmpl r0,r5\n\
247: bgeq 1f\n\
248: movl r5,r0\n\
249: 1:\n" },
250:
251: { 2, "_min\n",
252: " movl (sp)+,r0\n\
253: movl (sp)+,r5\n\
254: cmpl r0,r5\n\
255: blequ 1f\n\
256: movl r5,r0\n\
257: 1:\n" },
258:
259: { 2, "_max\n",
260: " movl (sp)+,r0\n\
261: movl (sp)+,r5\n\
262: cmpl r0,r5\n\
263: bgequ 1f\n\
264: movl r5,r0\n\
265: 1:\n" },
266: #endif vax
267:
268: #ifdef mc68000
269: /* someday... */
270: #endif mc68000
271:
272: { 0, "", "" }
273: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.