diff --git a/compiler/dyncount.lisp b/compiler/dyncount.lisp index 35b6da3291836f8ecd8cd537b2917827c44f615c..f2cb7d8a00656ccc5baf2606fa500a10708cc9c1 100644 --- a/compiler/dyncount.lisp +++ b/compiler/dyncount.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dyncount.lisp,v 1.3 1991/02/20 14:57:14 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dyncount.lisp,v 1.4 1992/02/03 18:54:13 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -28,7 +28,8 @@ (defstruct (dyncount-info - (:print-function %print-dyncount-info)) + (:print-function %print-dyncount-info) + (:make-load-form-fun :just-dump-it-normally)) for (counts (required-argument) :type (simple-array (unsigned-byte 32) (*))) (vops (required-argument) :type simple-vector)) @@ -42,6 +43,8 @@ (defun setup-dynamic-count-info (component) (let* ((info (ir2-component-dyncount-info (component-info component))) (vops (dyncount-info-vops info))) + (when (producing-fasl-file) + (fasl-validate-structure info *compile-object*)) (do-ir2-blocks (block component) (let* ((start-vop (ir2-block-start-vop block)) (1block (ir2-block-block block))