From 3e1d39f2e44bb42f54e017b8b3a80a79f00935c8 Mon Sep 17 00:00:00 2001 From: Thiemo Seufer Date: Tue, 14 Nov 2006 20:23:33 +0000 Subject: [PATCH] 0.9.18.51: Fix GC-unsafe temporary variable. --- src/compiler/mips/cell.lisp | 5 +++-- version.lisp-expr | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/compiler/mips/cell.lisp b/src/compiler/mips/cell.lisp index ab632fb..75756ec 100644 --- a/src/compiler/mips/cell.lisp +++ b/src/compiler/mips/cell.lisp @@ -254,11 +254,12 @@ (:policy :fast-safe) (:translate %instance-length) (:args (struct :scs (descriptor-reg))) + (:temporary (:scs (non-descriptor-reg)) temp) (:results (res :scs (unsigned-reg))) (:result-types positive-fixnum) (:generator 4 - (loadw res struct 0 instance-pointer-lowtag) - (inst srl res n-widetag-bits))) + (loadw temp struct 0 instance-pointer-lowtag) + (inst srl res temp n-widetag-bits))) (define-full-reffer instance-index-ref * instance-slots-offset instance-pointer-lowtag (descriptor-reg any-reg) * %instance-ref) diff --git a/version.lisp-expr b/version.lisp-expr index a3b9d18..51fa7d7 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.18.50" +"0.9.18.51" -- 1.7.10.4