[Git][cmucl/cmucl][issue-97-define-ud2-inst] Rename TRAP_CODE to UD1
Raymond Toy (@rtoy)
gitlab at common-lisp.net
Fri May 21 23:33:10 UTC 2021
Raymond Toy pushed to branch issue-97-define-ud2-inst at cmucl / cmucl
Commits:
83e0f05b by Raymond Toy at 2021-05-21T16:32:41-07:00
Rename TRAP_CODE to UD1
- - - - -
1 changed file:
- src/lisp/x86-assem.S
Changes:
=====================================
src/lisp/x86-assem.S
=====================================
@@ -28,7 +28,7 @@
*
* Also, clang doesn't recognize the ud1 instruction.
*/
-#define TRAP_CODE(code) \
+#define UD1(code) \
.byte 0x0f ; \
.byte 0xb9 ; \
.byte 0xc0 + code
@@ -259,7 +259,7 @@ ENDFUNC(sse_restore)
* The undefined-function trampoline.
*/
FUNCDEF(undefined_tramp)
- TRAP_CODE(trap_Error)
+ UD1(trap_Error)
/* Number of argument bytes */
.byte 2
.byte UNDEFINED_SYMBOL_ERROR
@@ -300,7 +300,7 @@ multiple_value_return:
.globl GNAME(function_end_breakpoint_trap)
GNAME(function_end_breakpoint_trap):
- TRAP_CODE(trap_FunctionEndBreakpoint)
+ UD1(trap_FunctionEndBreakpoint)
hlt # Should never return here.
ENDFUNC(function_end_breakpoint_trap)
@@ -308,20 +308,20 @@ ENDFUNC(function_end_breakpoint_trap)
GNAME(function_end_breakpoint_end):
FUNCDEF(do_pending_interrupt)
- TRAP_CODE(trap_PendingInterrupt)
+ UD1(trap_PendingInterrupt)
ret
ENDFUNC(do_pending_interrupt)
#ifdef trap_DynamicSpaceOverflowError
FUNCDEF(do_dynamic_space_overflow_error)
- TRAP_CODE(trap_DynamicSpaceOverflowError)
+ UD1(trap_DynamicSpaceOverflowError)
ret
ENDFUNC(do_dynamic_space_overflow_error)
#endif
#ifdef trap_DynamicSpaceOverflowWarning
FUNCDEF(do_dynamic_space_overflow_warning)
- TRAP_CODE(trap_DynamicSpaceOverflowWarning)
+ UD1(trap_DynamicSpaceOverflowWarning)
ret
ENDFUNC(do_dynamic_space_overflow_warning)
#endif
@@ -503,7 +503,7 @@ FUNCDEF(undefined_foreign_symbol_trap)
movl 8(%ebp),%eax
/* Now trap to Lisp */
- TRAP_CODE(trap_Error)
+ UD1(trap_Error)
/* Number of argument bytes */
.byte 2
.byte UNDEFINED_FOREIGN_SYMBOL_ERROR
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/83e0f05bf46f9947891a78e0d6e67ebfc49a8435
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/83e0f05bf46f9947891a78e0d6e67ebfc49a8435
You're receiving this email because of your account on gitlab.common-lisp.net.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20210521/1b4a95f9/attachment-0001.html>
More information about the cmucl-cvs
mailing list