From f2126a0a4e454f24e67d79a04920aa1ee4303665 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sat, 11 Jun 2005 20:46:19 +0000 Subject: [PATCH] 0.9.1.37: Maybe fix the build on alpha. ... one more WITH-FIXED-ALLOCATION problem. --- src/compiler/alpha/alloc.lisp | 6 ++---- src/compiler/sparc/alloc.lisp | 2 -- version.lisp-expr | 2 +- 3 files changed, 3 insertions(+), 7 deletions(-) diff --git a/src/compiler/alpha/alloc.lisp b/src/compiler/alpha/alloc.lisp index fd3822b..7966981 100644 --- a/src/compiler/alpha/alloc.lisp +++ b/src/compiler/alpha/alloc.lisp @@ -128,16 +128,14 @@ (storew function result closure-fun-slot fun-pointer-lowtag)))) ;;; The compiler likes to be able to directly make value cells. -;;; (define-vop (make-value-cell) (:args (value :to :save :scs (descriptor-reg any-reg null zero))) (:temporary (:scs (non-descriptor-reg)) temp) (:results (result :scs (descriptor-reg))) (:generator 10 (with-fixed-allocation - (result temp value-cell-header-widetag value-cell-size)) - (storew value result value-cell-value-slot other-pointer-lowtag))) - + (result temp value-cell-header-widetag value-cell-size) + (storew value result value-cell-value-slot other-pointer-lowtag)))) ;;;; automatic allocators for primitive objects diff --git a/src/compiler/sparc/alloc.lisp b/src/compiler/sparc/alloc.lisp index 721b944..755323a 100644 --- a/src/compiler/sparc/alloc.lisp +++ b/src/compiler/sparc/alloc.lisp @@ -129,7 +129,6 @@ (storew function result closure-fun-slot fun-pointer-lowtag))) ;;; The compiler likes to be able to directly make value cells. -;;; (define-vop (make-value-cell) (:args (value :to :save :scs (descriptor-reg any-reg))) (:temporary (:scs (non-descriptor-reg)) temp) @@ -138,7 +137,6 @@ (with-fixed-allocation (result temp value-cell-header-widetag value-cell-size) (storew value result value-cell-value-slot other-pointer-lowtag)))) - ;;;; Automatic allocators for primitive objects. diff --git a/version.lisp-expr b/version.lisp-expr index 2bb3732..5e98092 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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.9.1.36" +"0.9.1.37" -- 1.7.10.4