common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

0.8.15.12:

Browse source 
On non-x86 platforms allocate the header TN of the var-alloc
	VOP in a non-descriptor-register instead of an any-register.
	Fixes "attempted to scavenge non-descriptor value" warning.
This commit is contained in:
Juho Snellman 2004-10-12 21:14:40 +00:00
parent e1d8ec7c0f
commit cabcdba742
5 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/compiler/hppa/alloc.lisp
View file

@ -157,7 +157,8 @@
(:info name words type lowtag)
(:ignore name)
(:results (result :scs (descriptor-reg)))
(:temporary (:scs (any-reg)) bytes header)
(:temporary (:scs (any-reg)) bytes)
(:temporary (:scs (non-descriptor-reg)) header)
(:generator 6
(inst addi (* (1+ words) n-word-bytes) extra bytes)
(inst sll bytes (- n-widetag-bits 2) header)

4
src/compiler/mips/alloc.lisp
View file

@ -161,8 +161,8 @@
(:info name words type lowtag)
(:ignore name)
(:results (result :scs (descriptor-reg)))
(:temporary (:scs (any-reg)) header)
(:temporary (:scs (non-descriptor-reg)) bytes)
(:temporary (:scs (any-reg)) bytes)
(:temporary (:scs (non-descriptor-reg)) header)
(:temporary (:sc non-descriptor-reg :offset nl4-offset) pa-flag)
(:generator 6
(inst addu bytes extra (* (1+ words) n-word-bytes))

3
src/compiler/ppc/alloc.lisp
View file

@ -170,7 +170,8 @@
(:info name words type lowtag)
(:ignore name)
(:results (result :scs (descriptor-reg)))
(:temporary (:scs (any-reg)) bytes header)
(:temporary (:scs (any-reg)) bytes)
(:temporary (:scs (non-descriptor-reg)) header)
(:temporary (:sc non-descriptor-reg :offset nl3-offset) pa-flag)
(:generator 6
(inst addi bytes extra (* (1+ words) n-word-bytes))

3
src/compiler/sparc/alloc.lisp
View file

@ -171,7 +171,8 @@
(:info name words type lowtag)
(:ignore name)
(:results (result :scs (descriptor-reg)))
(:temporary (:scs (any-reg)) bytes header)
(:temporary (:scs (any-reg)) bytes)
(:temporary (:scs (non-descriptor-reg)) header)
(:generator 6
(inst add bytes extra (* (1+ words) n-word-bytes))
(inst sll header bytes (- n-widetag-bits 2))

2
version.lisp-expr
View file

@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
"0.8.15.11"
"0.8.15.12"