From 9e1d21a6aa3f7f5734316c613ef8a32a198f5217 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 1 Dec 1990 22:33:57 +0000
Subject: [PATCH] Added :alignment options to storage-class definitions.

---
 compiler/sparc/vm.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/compiler/sparc/vm.lisp b/compiler/sparc/vm.lisp
index 1663ab498..d0b13b2b0 100644
--- a/compiler/sparc/vm.lisp
+++ b/compiler/sparc/vm.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/vm.lisp,v 1.1 1990/11/30 17:03:26 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/vm.lisp,v 1.2 1990/12/01 22:33:57 wlott Exp $
 ;;;
 ;;; This file contains the VM definition for the SPARC.
 ;;;
@@ -141,7 +141,8 @@
   (base-character-stack non-descriptor-stack) ; non-descriptor characters.
   (sap-stack non-descriptor-stack) ; System area pointers.
   (single-stack non-descriptor-stack) ; single-floats
-  (double-stack non-descriptor-stack :element-size 2) ; double floats.
+  (double-stack non-descriptor-stack
+		:element-size 2 :alignment 2) ; double floats.
 
 
   ;; **** Things that can go in the integer registers.
@@ -212,7 +213,7 @@
   (double-reg float-registers
    :locations (0 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30)
    ;; ### Note: load-tns don't work with an element-size other than 1.
-   ;; :element-size 2
+   ;; :element-size 2 :alignment 2
    :constant-scs ()
    :save-p t
    :alternate-scs (double-stack))
-- 
GitLab