From f190daaa46db9f2505cd49e23cec90eee3373b92 Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Wed, 5 Feb 1997 15:53:16 +0000 Subject: [PATCH] initial post 1.3.7 merge --- compiler/generic/new-genesis.lisp | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp index 8874d6daf..2a4ffe361 100644 --- a/compiler/generic/new-genesis.lisp +++ b/compiler/generic/new-genesis.lisp @@ -4,7 +4,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.20 1997/01/18 14:31:16 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.21 1997/02/05 15:53:16 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -698,13 +698,15 @@ (frob *static-space-free-pointer* (allocate-descriptor *static* 0 vm:even-fixnum-type)) (frob *initial-dynamic-space-free-pointer* - (allocate-descriptor *dynamic* 0 vm:even-fixnum-type)) - - (when (c:backend-featurep :x86) - (frob x86::*fp-constant-0d0* (number-to-core 0d0)) - (frob x86::*fp-constant-1d0* (number-to-core 1d0)) - (frob x86::*fp-constant-0s0* (number-to-core 0s0)) - (frob x86::*fp-constant-1s0* (number-to-core 1s0))))) + (allocate-descriptor *dynamic* 0 vm:even-fixnum-type))) + + (when (c:backend-featurep :x86) + (macrolet ((frob (name pkg value) + `(cold-setq (cold-intern (intern ,name ,pkg)) ,value))) + (frob "*FP-CONSTANT-0D0*" "X86" (number-to-core 0d0)) + (frob "*FP-CONSTANT-1D0*" "X86" (number-to-core 1d0)) + (frob "*FP-CONSTANT-0S0*" "X86" (number-to-core 0s0)) + (frob "*FP-CONSTANT-1S0*" "X86" (number-to-core 1s0))))) ;;; Make-Make-Package-Args -- Internal ;;; -- GitLab