asm-watcom-x86-32.h@ 68113

Last change on this file since 68113 was 62473, checked in by vboxsync, 8 years ago
(C) 2016
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 14.2 KB

Line
1	/** @file
2	* IPRT - Assembly Functions, x86 32-bit Watcom C/C++ pragma aux.
3	*/
4
5	/*
6	* Copyright (C) 2006-2016 Oracle Corporation
7	*
8	* This file is part of VirtualBox Open Source Edition (OSE), as
9	* available from http://www.virtualbox.org. This file is free software;
10	* you can redistribute it and/or modify it under the terms of the GNU
11	* General Public License (GPL) as published by the Free Software
12	* Foundation, in version 2 as it comes in the "COPYING" file of the
13	* VirtualBox OSE distribution. VirtualBox OSE is distributed in the
14	* hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
15	*
16	* The contents of this file may alternatively be used under the terms
17	* of the Common Development and Distribution License Version 1.0
18	* (CDDL) only, as it comes in the "COPYING.CDDL" file of the
19	* VirtualBox OSE distribution, in which case the provisions of the
20	* CDDL are applicable instead of those of the GPL.
21	*
22	* You may elect to license modified versions of this file under the
23	* terms and conditions of either the GPL or the CDDL or both.
24	*/
25
26	#ifndef ___iprt_asm_h
27	# error "Don't include this header directly."
28	#endif
29	#ifndef ___iprt_asm_watcom_x86_32_h
30	#define ___iprt_asm_watcom_x86_32_h
31
32	#ifndef __FLAT__
33	# error "Only works with flat pointers! (-mf)"
34	#endif
35
36	/*
37	* Note! The #undef that preceds the #pragma aux statements is for undoing
38	* the mangling, because the symbol in #pragma aux [symbol] statements
39	* doesn't get subjected to preprocessing. This is also why we include
40	* the watcom header at the top rather than at the bottom of the
41	* asm-amd64-x86.h file.
42	*/
43
44	#undef ASMCompilerBarrier
45	#if 0 /* overkill version. */
46	# pragma aux ASMCompilerBarrier = \
47	"nop" \
48	parm [] \
49	modify exact [eax ebx ecx edx es ds fs gs];
50	#else
51	# pragma aux ASMCompilerBarrier = \
52	"" \
53	parm [] \
54	modify exact [];
55	#endif
56
57	#undef ASMNopPause
58	#pragma aux ASMNopPause = \
59	".686p" \
60	".xmm2" \
61	"pause" \
62	parm [] nomemory \
63	modify exact [] nomemory;
64
65	#undef ASMAtomicXchgU8
66	#pragma aux ASMAtomicXchgU8 = \
67	"xchg [ecx], al" \
68	parm [ecx] [al] \
69	value [al] \
70	modify exact [al];
71
72	#undef ASMAtomicXchgU16
73	#pragma aux ASMAtomicXchgU16 = \
74	"xchg [ecx], ax" \
75	parm [ecx] [ax] \
76	value [ax] \
77	modify exact [ax];
78
79	#undef ASMAtomicXchgU32
80	#pragma aux ASMAtomicXchgU32 = \
81	"xchg [ecx], eax" \
82	parm [ecx] [eax] \
83	value [eax] \
84	modify exact [eax];
85
86	#undef ASMAtomicXchgU64
87	#pragma aux ASMAtomicXchgU64 = \
88	".586" \
89	"try_again:" \
90	"lock cmpxchg8b [esi]" \
91	"jnz try_again" \
92	parm [esi] [ebx ecx] \
93	value [eax edx] \
94	modify exact [edx ecx ebx eax];
95
96	#undef ASMAtomicCmpXchgU8
97	#pragma aux ASMAtomicCmpXchgU8 = \
98	".486" \
99	"lock cmpxchg [edx], cl" \
100	"setz al" \
101	parm [edx] [cl] [al] \
102	value [al] \
103	modify exact [al];
104
105	#undef ASMAtomicCmpXchgU16
106	#pragma aux ASMAtomicCmpXchgU16 = \
107	".486" \
108	"lock cmpxchg [edx], cx" \
109	"setz al" \
110	parm [edx] [cx] [ax] \
111	value [al] \
112	modify exact [ax];
113
114	#undef ASMAtomicCmpXchgU32
115	#pragma aux ASMAtomicCmpXchgU32 = \
116	".486" \
117	"lock cmpxchg [edx], ecx" \
118	"setz al" \
119	parm [edx] [ecx] [eax] \
120	value [al] \
121	modify exact [eax];
122
123	#undef ASMAtomicCmpXchgU64
124	#pragma aux ASMAtomicCmpXchgU64 = \
125	".586" \
126	"lock cmpxchg8b [edi]" \
127	"setz al" \
128	parm [edi] [ebx ecx] [eax edx] \
129	value [al] \
130	modify exact [eax edx];
131
132	#undef ASMAtomicCmpXchgExU32
133	#pragma aux ASMAtomicCmpXchgExU32 = \
134	".586" \
135	"lock cmpxchg [edx], ecx" \
136	"mov [edi], eax" \
137	"setz al" \
138	parm [edx] [ecx] [eax] [edi] \
139	value [al] \
140	modify exact [eax];
141
142	#undef ASMAtomicCmpXchgExU64
143	#pragma aux ASMAtomicCmpXchgExU64 = \
144	".586" \
145	"lock cmpxchg8b [edi]" \
146	"mov [esi], eax" \
147	"mov [esi + 4], edx" \
148	"setz al" \
149	parm [edi] [ebx ecx] [eax edx] [esi] \
150	value [al] \
151	modify exact [eax edx];
152
153	#undef ASMSerializeInstructionCpuId
154	#pragma aux ASMSerializeInstructionCpuId = \
155	".586" \
156	"xor eax, eax" \
157	"cpuid" \
158	parm [] \
159	modify exact [eax ebx ecx edx];
160
161	#undef ASMSerializeInstructionIRet
162	#pragma aux ASMSerializeInstructionIRet = \
163	"pushf" \
164	"push cs" \
165	"call foo" /* 'push offset done' doesn't work */ \
166	"jmp done" \
167	"foo:" \
168	"iret" \
169	"done:" \
170	parm [] \
171	modify exact [];
172
173	#undef ASMSerializeInstructionRdTscp
174	#pragma aux ASMSerializeInstructionRdTscp = \
175	0x0f 0x01 0xf9 \
176	parm [] \
177	modify exact [eax edx ecx];
178
179	#undef ASMAtomicReadU64
180	#pragma aux ASMAtomicReadU64 = \
181	".586" \
182	"xor eax, eax" \
183	"mov edx, eax" \
184	"mov ebx, eax" \
185	"mov ecx, eax" \
186	"lock cmpxchg8b [edi]" \
187	parm [edi] \
188	value [eax edx] \
189	modify exact [eax ebx ecx edx];
190
191	#undef ASMAtomicUoReadU64
192	#pragma aux ASMAtomicUoReadU64 = \
193	".586" \
194	"xor eax, eax" \
195	"mov edx, eax" \
196	"mov ebx, eax" \
197	"mov ecx, eax" \
198	"lock cmpxchg8b [edi]" \
199	parm [edi] \
200	value [eax edx] \
201	modify exact [eax ebx ecx edx];
202
203	#undef ASMAtomicAddU16
204	#pragma aux ASMAtomicAddU16 = \
205	".486" \
206	"lock xadd [ecx], ax" \
207	parm [ecx] [ax] \
208	value [ax] \
209	modify exact [ax];
210
211	#undef ASMAtomicAddU32
212	#pragma aux ASMAtomicAddU32 = \
213	".486" \
214	"lock xadd [ecx], eax" \
215	parm [ecx] [eax] \
216	value [eax] \
217	modify exact [eax];
218
219	#undef ASMAtomicIncU16
220	#pragma aux ASMAtomicIncU16 = \
221	".486" \
222	"mov ax, 1" \
223	"lock xadd [ecx], ax" \
224	"inc ax" \
225	parm [ecx] \
226	value [ax] \
227	modify exact [ax];
228
229	#undef ASMAtomicIncU32
230	#pragma aux ASMAtomicIncU32 = \
231	".486" \
232	"mov eax, 1" \
233	"lock xadd [ecx], eax" \
234	"inc eax" \
235	parm [ecx] \
236	value [eax] \
237	modify exact [eax];
238
239	/* ASMAtomicIncU64: Should be done by C inline or in external file. */
240
241	#undef ASMAtomicDecU16
242	#pragma aux ASMAtomicDecU16 = \
243	".486" \
244	"mov ax, 0ffffh" \
245	"lock xadd [ecx], ax" \
246	"dec ax" \
247	parm [ecx] \
248	value [ax] \
249	modify exact [ax];
250
251	#undef ASMAtomicDecU32
252	#pragma aux ASMAtomicDecU32 = \
253	".486" \
254	"mov eax, 0ffffffffh" \
255	"lock xadd [ecx], eax" \
256	"dec eax" \
257	parm [ecx] \
258	value [eax] \
259	modify exact [eax];
260
261	/* ASMAtomicDecU64: Should be done by C inline or in external file. */
262
263	#undef ASMAtomicOrU32
264	#pragma aux ASMAtomicOrU32 = \
265	"lock or [ecx], eax" \
266	parm [ecx] [eax] \
267	modify exact [];
268
269	/* ASMAtomicOrU64: Should be done by C inline or in external file. */
270
271	#undef ASMAtomicAndU32
272	#pragma aux ASMAtomicAndU32 = \
273	"lock and [ecx], eax" \
274	parm [ecx] [eax] \
275	modify exact [];
276
277	/* ASMAtomicAndU64: Should be done by C inline or in external file. */
278
279	#undef ASMAtomicUoOrU32
280	#pragma aux ASMAtomicUoOrU32 = \
281	"or [ecx], eax" \
282	parm [ecx] [eax] \
283	modify exact [];
284
285	/* ASMAtomicUoOrU64: Should be done by C inline or in external file. */
286
287	#undef ASMAtomicUoAndU32
288	#pragma aux ASMAtomicUoAndU32 = \
289	"and [ecx], eax" \
290	parm [ecx] [eax] \
291	modify exact [];
292
293	/* ASMAtomicUoAndU64: Should be done by C inline or in external file. */
294
295	#undef ASMAtomicUoIncU32
296	#pragma aux ASMAtomicUoIncU32 = \
297	".486" \
298	"xadd [ecx], eax" \
299	"inc eax" \
300	parm [ecx] \
301	value [eax] \
302	modify exact [eax];
303
304	#undef ASMAtomicUoDecU32
305	#pragma aux ASMAtomicUoDecU32 = \
306	".486" \
307	"mov eax, 0ffffffffh" \
308	"xadd [ecx], eax" \
309	"dec eax" \
310	parm [ecx] \
311	value [eax] \
312	modify exact [eax];
313
314	#undef ASMMemZeroPage
315	#pragma aux ASMMemZeroPage = \
316	"mov ecx, 1024" \
317	"xor eax, eax" \
318	"rep stosd" \
319	parm [edi] \
320	modify exact [eax ecx edi];
321
322	#undef ASMMemZero32
323	#pragma aux ASMMemZero32 = \
324	"shr ecx, 2" \
325	"xor eax, eax" \
326	"rep stosd" \
327	parm [edi] [ecx] \
328	modify exact [eax ecx edi];
329
330	#undef ASMMemFill32
331	#pragma aux ASMMemFill32 = \
332	"shr ecx, 2" \
333	"rep stosd" \
334	parm [edi] [ecx] [eax]\
335	modify exact [ecx edi];
336
337	#undef ASMProbeReadByte
338	#pragma aux ASMProbeReadByte = \
339	"mov al, [ecx]" \
340	parm [ecx] \
341	value [al] \
342	modify exact [al];
343
344	#undef ASMBitSet
345	#pragma aux ASMBitSet = \
346	"bts [ecx], eax" \
347	parm [ecx] [eax] \
348	modify exact [];
349
350	#undef ASMAtomicBitSet
351	#pragma aux ASMAtomicBitSet = \
352	"lock bts [ecx], eax" \
353	parm [ecx] [eax] \
354	modify exact [];
355
356	#undef ASMBitClear
357	#pragma aux ASMBitClear = \
358	"btr [ecx], eax" \
359	parm [ecx] [eax] \
360	modify exact [];
361
362	#undef ASMAtomicBitClear
363	#pragma aux ASMAtomicBitClear = \
364	"lock btr [ecx], eax" \
365	parm [ecx] [eax] \
366	modify exact [];
367
368	#undef ASMBitToggle
369	#pragma aux ASMBitToggle = \
370	"btc [ecx], eax" \
371	parm [ecx] [eax] \
372	modify exact [];
373
374	#undef ASMAtomicBitToggle
375	#pragma aux ASMAtomicBitToggle = \
376	"lock btc [ecx], eax" \
377	parm [ecx] [eax] \
378	modify exact [];
379
380
381	#undef ASMBitTestAndSet
382	#pragma aux ASMBitTestAndSet = \
383	"bts [ecx], eax" \
384	"setc al" \
385	parm [ecx] [eax] \
386	value [al] \
387	modify exact [eax];
388
389	#undef ASMAtomicBitTestAndSet
390	#pragma aux ASMAtomicBitTestAndSet = \
391	"lock bts [ecx], eax" \
392	"setc al" \
393	parm [ecx] [eax] \
394	value [al] \
395	modify exact [eax];
396
397	#undef ASMBitTestAndClear
398	#pragma aux ASMBitTestAndClear = \
399	"btr [ecx], eax" \
400	"setc al" \
401	parm [ecx] [eax] \
402	value [al] \
403	modify exact [eax];
404
405	#undef ASMAtomicBitTestAndClear
406	#pragma aux ASMAtomicBitTestAndClear = \
407	"lock btr [ecx], eax" \
408	"setc al" \
409	parm [ecx] [eax] \
410	value [al] \
411	modify exact [eax];
412
413	#undef ASMBitTestAndToggle
414	#pragma aux ASMBitTestAndToggle = \
415	"btc [ecx], eax" \
416	"setc al" \
417	parm [ecx] [eax] \
418	value [al] \
419	modify exact [eax];
420
421	#undef ASMAtomicBitTestAndToggle
422	#pragma aux ASMAtomicBitTestAndToggle = \
423	"lock btc [ecx], eax" \
424	"setc al" \
425	parm [ecx] [eax] \
426	value [al] \
427	modify exact [eax];
428
429	#undef ASMBitTest
430	#pragma aux ASMBitTest = \
431	"bt [ecx], eax" \
432	"setc al" \
433	parm [ecx] [eax] nomemory \
434	value [al] \
435	modify exact [eax] nomemory;
436
437	#if 0
438	/** @todo this is way to much inline assembly, better off in an external function. */
439	#undef ASMBitFirstClear
440	#pragma aux ASMBitFirstClear = \
441	"mov edx, edi" /* save start of bitmap for later */ \
442	"add ecx, 31" \
443	"shr ecx, 5" /* cDWord = RT_ALIGN_32(cBits, 32) / 32; */ \
444	"mov eax, 0ffffffffh" \
445	"repe scasd" \
446	"je done" \
447	"lea edi, [edi - 4]" /* rewind edi */ \
448	"xor eax, [edi]" /* load inverted bits */ \
449	"sub edi, edx" /* calc byte offset */ \
450	"shl edi, 3" /* convert byte to bit offset */ \
451	"mov edx, eax" \
452	"bsf eax, edx" \
453	"add eax, edi" \
454	"done:" \
455	parm [edi] [ecx] \
456	value [eax] \
457	modify exact [eax ecx edx edi];
458
459	/* ASMBitNextClear: Too much work, do when needed. */
460
461	/** @todo this is way to much inline assembly, better off in an external function. */
462	#undef ASMBitFirstSet
463	#pragma aux ASMBitFirstSet = \
464	"mov edx, edi" /* save start of bitmap for later */ \
465	"add ecx, 31" \
466	"shr ecx, 5" /* cDWord = RT_ALIGN_32(cBits, 32) / 32; */ \
467	"mov eax, 0ffffffffh" \
468	"repe scasd" \
469	"je done" \
470	"lea edi, [edi - 4]" /* rewind edi */ \
471	"mov eax, [edi]" /* reload previous dword */ \
472	"sub edi, edx" /* calc byte offset */ \
473	"shl edi, 3" /* convert byte to bit offset */ \
474	"mov edx, eax" \
475	"bsf eax, edx" \
476	"add eax, edi" \
477	"done:" \
478	parm [edi] [ecx] \
479	value [eax] \
480	modify exact [eax ecx edx edi];
481
482	/* ASMBitNextSet: Too much work, do when needed. */
483	#else
484	/* ASMBitFirstClear: External file. */
485	/* ASMBitNextClear: External file. */
486	/* ASMBitFirstSet: External file. */
487	/* ASMBitNextSet: External file. */
488	#endif
489
490	#undef ASMBitFirstSetU32
491	#pragma aux ASMBitFirstSetU32 = \
492	"bsf eax, eax" \
493	"jz not_found" \
494	"inc eax" \
495	"jmp done" \
496	"not_found:" \
497	"xor eax, eax" \
498	"done:" \
499	parm [eax] nomemory \
500	value [eax] \
501	modify exact [eax] nomemory;
502
503	#undef ASMBitFirstSetU64
504	#pragma aux ASMBitFirstSetU64 = \
505	"bsf eax, eax" \
506	"jz not_found_low" \
507	"inc eax" \
508	"jmp done" \
509	\
510	"not_found_low:" \
511	"bsf eax, edx" \
512	"jz not_found_high" \
513	"add eax, 33" \
514	"jmp done" \
515	\
516	"not_found_high:" \
517	"xor eax, eax" \
518	"done:" \
519	parm [eax edx] nomemory \
520	value [eax] \
521	modify exact [eax] nomemory;
522
523	#undef ASMBitFirstSetU16
524	#pragma aux ASMBitFirstSetU16 = \
525	"movzx eax, ax" \
526	"bsf eax, eax" \
527	"jz not_found" \
528	"inc eax" \
529	"jmp done" \
530	"not_found:" \
531	"xor eax, eax" \
532	"done:" \
533	parm [ax] nomemory \
534	value [eax] \
535	modify exact [eax] nomemory;
536
537	#undef ASMBitLastSetU32
538	#pragma aux ASMBitLastSetU32 = \
539	"bsr eax, eax" \
540	"jz not_found" \
541	"inc eax" \
542	"jmp done" \
543	"not_found:" \
544	"xor eax, eax" \
545	"done:" \
546	parm [eax] nomemory \
547	value [eax] \
548	modify exact [eax] nomemory;
549
550	#undef ASMBitLastSetU64
551	#pragma aux ASMBitLastSetU64 = \
552	"bsf eax, eax" \
553	"jz not_found_low" \
554	"inc eax" \
555	"jmp done" \
556	\
557	"not_found_low:" \
558	"bsf eax, edx" \
559	"jz not_found_high" \
560	"add eax, 33" \
561	"jmp done" \
562	\
563	"not_found_high:" \
564	"xor eax, eax" \
565	"done:" \
566	parm [eax edx] nomemory \
567	value [eax] \
568	modify exact [eax] nomemory;
569
570	#undef ASMBitLastSetU16
571	#pragma aux ASMBitLastSetU16 = \
572	"movzx eax, ax" \
573	"bsr eax, eax" \
574	"jz not_found" \
575	"inc eax" \
576	"jmp done" \
577	"not_found:" \
578	"xor eax, eax" \
579	"done:" \
580	parm [ax] nomemory \
581	value [eax] \
582	modify exact [eax] nomemory;
583
584	#undef ASMByteSwapU16
585	#pragma aux ASMByteSwapU16 = \
586	"ror ax, 8" \
587	parm [ax] nomemory \
588	value [ax] \
589	modify exact [ax] nomemory;
590
591	#undef ASMByteSwapU32
592	#pragma aux ASMByteSwapU32 = \
593	"bswap eax" \
594	parm [eax] nomemory \
595	value [eax] \
596	modify exact [eax] nomemory;
597
598	#undef ASMRotateLeftU32
599	#pragma aux ASMRotateLeftU32 = \
600	"rol eax, cl" \
601	parm [eax] [ecx] nomemory \
602	value [eax] \
603	modify exact [eax] nomemory;
604
605	#undef ASMRotateRightU32
606	#pragma aux ASMRotateRightU32 = \
607	"ror eax, cl" \
608	parm [eax] [ecx] nomemory \
609	value [eax] \
610	modify exact [eax] nomemory;
611
612	#endif
613

Note: See TracBrowser for help on using the repository browser.

source: vbox/trunk/include/iprt/asm-watcom-x86-32.h@ 68113

Download in other formats: