Commit a4ceadd6 authored by ram's avatar ram
Browse files

Add check that SC alignment is a power of 2.

parent 1bffd2f0
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/meta-vmdef.lisp,v 1.3 1993/02/26 08:39:04 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/meta-vmdef.lisp,v 1.4 1993/08/12 10:56:31 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -157,6 +157,8 @@
(check-type save-p boolean)
(check-type alternate-scs list)
(check-type constant-scs list)
(unless (= (logcount alignment) 1)
(error "Alignment is not a power of two: ~S" alignment))
(let ((sb (meta-sb-or-lose sb-name)))
(if (eq (sb-kind sb) :finite)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment