From: Tobias C. R. <tc...@fr...> - 2010-03-04 09:53:31
|
(in-package :sb-thread) (defstruct foo data) (define-structure-slot-addressor foo-data-address :structure foo :slot data) (defvar *foo* (make-foo :data 0)) (defun test () (futex-wait (foo-data-address *foo*) (get-lisp-obj-address -1) 0 0)) #<SB-C:TN t1> is not valid as the first argument to VOP: SB-VM::MOVE-WORD-ARG Primitive type: T SC restrictions: (SB-VM::SIGNED-REG SB-VM::UNSIGNED-REG) The primitive type disallows these loadable SCs: (SB-VM::SIGNED-REG SB-VM::UNSIGNED-REG) [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] Abort compilation. 1: [ABORT] Return to SLIME's top level. 2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "worker" RUNNING {C488A99}>) Backtrace: 0: (SB-C::BAD-COERCE-ERROR #<SB-C:TN-REF :TN #<SB-C:TN t1> :WRITE-P NIL :VOP SB-VM::MOVE-WORD-ARG>) 1: (SB-C::EMIT-COERCE-VOP #<SB-C:TN-REF :TN #<SB-C:TN t1> :WRITE-P NIL :VOP SB-VM::MOVE-WORD-ARG> NIL #(NIL NIL NIL NIL (20 19) NIL ...) #<SB-C::VOP :INFO SB-VM::MOVE-WORD-ARG :ARGS # :RESULTS #>) 2: (SB-C::COERCE-VOP-OPERANDS #<SB-C::VOP :INFO SB-VM::MOVE-WORD-ARG :ARGS # :RESULTS #>) 3: (SB-C::EMIT-MOVES-AND-COERCIONS #<SB-C::IR2-BLOCK :START-VOP # :LAST-VOP # :%LABEL #<SB-ASSEM:LABEL 1>>) 4: (SB-C::SELECT-REPRESENTATIONS #<SB-C:COMPONENT :NAME FOO-DATA-ADDRESS {C5583A1}>) 5: (SB-C::%COMPILE-COMPONENT #<SB-C:COMPONENT :NAME FOO-DATA-ADDRESS {C5583A1}>) 6: (SB-C::COMPILE-COMPONENT #<SB-C:COMPONENT :NAME FOO-DATA-ADDRESS {C5583A1}>) 7: (SB-C::%COMPILE ..)[:EXTERNAL] 8: (SB-C::FOPCOMPILE-FUNCTION ..) 9: (SB-C::FOPCOMPILE ..) 10: (SB-C::CONVERT-AND-MAYBE-COMPILE ..) 11: ((FLET SB-C::DEFAULT-PROCESSOR) ..) 12: (SB-C::PROCESS-TOPLEVEL-FORM ..) 13: (SB-C::PROCESS-TOPLEVEL-PROGN ..) 14: (SB-C::PROCESS-TOPLEVEL-FORM ..) 15: (SB-C::PROCESS-TOPLEVEL-PROGN ..) 16: (SB-C::PROCESS-TOPLEVEL-FORM ..) 17: ((FLET SB-C::DEFAULT-PROCESSOR) (DEFUN TEST () (FUTEX-WAIT (FOO-DATA-ADDRESS *FOO*) (GET-LISP-OBJ-ADDRESS -1) 0 0))) 18: (SB-C::PROCESS-TOPLEVEL-FORM (DEFUN TEST () (FUTEX-WAIT (FOO-DATA-ADDRESS *FOO*) (GET-LISP-OBJ-ADDRESS -1) 0 0)) (SB-C::ORIGINAL-SOURCE-START 0 4) NIL) 19: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >) |