From dcbf533e60542e16d3180121d80b9bf51ecb4684 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 15 Mar 2004 00:00:59 +0000 Subject: [PATCH] 0.8.8.24: Fix the build on MIPS ... DEF!CONSTANT for the registers so that the offsets are defined in a timely fashion ... also s/DO-PENDING-INTERRUPT/RECEIVE-PENDING-INTERRUPT/ for MIPS and HPPA --- src/compiler/hppa/system.lisp | 6 +++--- src/compiler/mips/system.lisp | 6 +++--- src/compiler/mips/vm.lisp | 2 +- version.lisp-expr | 2 +- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/compiler/hppa/system.lisp b/src/compiler/hppa/system.lisp index d231f11..70aa06a 100644 --- a/src/compiler/hppa/system.lisp +++ b/src/compiler/hppa/system.lisp @@ -186,10 +186,10 @@ ;;;; Other random VOPs. -(defknown sb!unix::do-pending-interrupt () (values)) -(define-vop (sb!unix::do-pending-interrupt) +(defknown sb!unix::receive-pending-interrupt () (values)) +(define-vop (sb!unix::receive-pending-interrupt) (:policy :fast-safe) - (:translate sb!unix::do-pending-interrupt) + (:translate sb!unix::receive-pending-interrupt) (:generator 1 (inst break pending-interrupt-trap))) diff --git a/src/compiler/mips/system.lisp b/src/compiler/mips/system.lisp index 8bc6987..59d81c2 100644 --- a/src/compiler/mips/system.lisp +++ b/src/compiler/mips/system.lisp @@ -235,10 +235,10 @@ ;;;; Other random VOPs. -(defknown sb!unix::do-pending-interrupt () (values)) -(define-vop (sb!unix::do-pending-interrupt) +(defknown sb!unix::receive-pending-interrupt () (values)) +(define-vop (sb!unix::receive-pending-interrupt) (:policy :fast-safe) - (:translate sb!unix::do-pending-interrupt) + (:translate sb!unix::receive-pending-interrupt) (:generator 1 (inst break pending-interrupt-trap))) diff --git a/src/compiler/mips/vm.lisp b/src/compiler/mips/vm.lisp index f061770..f843957 100644 --- a/src/compiler/mips/vm.lisp +++ b/src/compiler/mips/vm.lisp @@ -20,7 +20,7 @@ (macrolet ((defreg (name offset) (let ((offset-sym (symbolicate name "-OFFSET"))) `(eval-when (:compile-toplevel :load-toplevel :execute) - (defconstant ,offset-sym ,offset) + (def!constant ,offset-sym ,offset) (setf (svref *register-names* ,offset-sym) ,(symbol-name name))))) (defregset (name &rest regs) diff --git a/version.lisp-expr b/version.lisp-expr index 85c5a2c..93413af 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.8.8.23" +"0.8.8.24" -- 1.7.10.4