From: Christophe R. <cr...@us...> - 2005-08-20 17:21:22
|
Update of /cvsroot/sbcl/sbcl/src/compiler/generic In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10752/src/compiler/generic Modified Files: objdef.lisp Log Message: 0.9.3.71: Alpha build fixes ... unused :node-var node (noted by PVE, introduced 0.9.1.61) ... s/foreign-symbol-address/foreign-symbol-sap/ (introduced 0.9.2.26) ... rearrange the thread object so that structure packing doesn't confuse the system (introduced 0.9.2.9) Index: objdef.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/objdef.lisp,v retrieving revision 1.37 retrieving revision 1.38 diff -u -d -r1.37 -r1.38 --- objdef.lisp 19 Aug 2005 15:14:16 -0000 1.37 +++ objdef.lisp 20 Aug 2005 17:21:14 -0000 1.38 @@ -416,12 +416,12 @@ (alien-stack-start :c-type "lispobj *" :length #!+alpha 2 #!-alpha 1) (alien-stack-pointer :c-type "lispobj *" :length #!+alpha 2 #!-alpha 1) #!+gencgc (alloc-region :c-type "struct alloc_region" :length 5) - (tls-cookie) ; on x86, the LDT index (this :c-type "struct thread *" :length #!+alpha 2 #!-alpha 1) (prev :c-type "struct thread *" :length #!+alpha 2 #!-alpha 1) (next :c-type "struct thread *" :length #!+alpha 2 #!-alpha 1) ;; starting, running, suspended, dead (state :c-type "volatile lispobj") + (tls-cookie) ; on x86, the LDT index #!+(or x86 x86-64) (pseudo-atomic-atomic) #!+(or x86 x86-64) (pseudo-atomic-interrupted) (interrupt-fun) |