|
[Sbcl-commits] CVS: sbcl/src/compiler/x86 insts.lisp,1.38,1.39
From: Cyrus Harmon <slyrus@us...> - 2007-03-03 00:42
|
Update of /cvsroot/sbcl/sbcl/src/compiler/x86
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv22077/src/compiler/x86
Modified Files:
insts.lisp
Log Message:
1.0.3.16: experimental x86-64/darwin suport
* fix sb-posix time structs to match headers on darwin
* comment out mtime sb-posix test as this isn't working ATM
* add UD2A trap stuff to x86-64 and corresponding word-imm support
* remove bogus extern-alien-name in boxed_region fixups
* add compiler parameters for Darwin
* add x86-64 darwin config file
* some type safety fixes (proper types) in darwin-dlshim.c
* use setpgid on Darwin
* add signal context support x86-64/darwin
* report trap instead of si_code for trap_Error/trap_Cerror
* unsigned -> unsigned long in purify.c
* add mach exception handler support for x86-64/darwin
* x86-64 assembly hacks to make darwin's assembler happy
* update x86-64-bsd-os.c to suppot darwin and mach exceptions
* add x86-64-darwin-os.c/h
* update LDSO stubs for x86-64 darwin
Index: insts.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/insts.lisp,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- insts.lisp 17 Sep 2006 02:31:14 -0000 1.38
+++ insts.lisp 3 Mar 2007 00:42:02 -0000 1.39
@@ -1965,8 +1965,8 @@
;; Lisp (with (DESCRIBE 'BYTE-IMM-CODE)) than to definitively deduce
;; from first principles whether it's defined in some way that genesis
;; can't grok.
- (case #-darwin (byte-imm-code chunk dstate)
- #+darwin (word-imm-code chunk dstate)
+ (case #!-darwin (byte-imm-code chunk dstate)
+ #!+darwin (word-imm-code chunk dstate)
(#.error-trap
(nt "error trap")
(sb!disassem:handle-break-args #'snarf-error-junk stream dstate))
@@ -1984,17 +1984,17 @@
(define-instruction break (segment code)
(:declare (type (unsigned-byte 8) code))
- #-darwin (:printer byte-imm ((op #b11001100)) '(:name :tab code)
+ #!-darwin (:printer byte-imm ((op #b11001100)) '(:name :tab code)
:control #'break-control)
- #+darwin (:printer word-imm ((op #b0000101100001111)) '(:name :tab code)
+ #!+darwin (:printer word-imm ((op #b0000101100001111)) '(:name :tab code)
:control #'break-control)
(:emitter
- #-darwin (emit-byte segment #b11001100)
+ #!-darwin (emit-byte segment #b11001100)
;; On darwin, trap handling via SIGTRAP is unreliable, therefore we
;; throw a sigill with 0x0b0f instead and check for this in the
;; SIGILL handler and pass it on to the sigtrap handler if
;; appropriate
- #+darwin (emit-word segment #b0000101100001111)
+ #!+darwin (emit-word segment #b0000101100001111)
(emit-byte segment code)))
(define-instruction int (segment number)
|
| Thread | Author | Date |
|---|---|---|
| [Sbcl-commits] CVS: sbcl/src/compiler/x86 insts.lisp,1.38,1.39 | Cyrus Harmon <slyrus@us...> |