Skip to content
Snippets Groups Projects
Commit 0cf15373 authored by ram's avatar ram
Browse files

Moved assertion that the fasl file patch table was empty to be done at

the end of the file, rather than after each component.  This allows
forward function references across components.
parent a9692c7b
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.18 1990/10/13 20:23:53 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.19 1990/10/22 20:44:57 ram Exp $
;;;
;;; This file contains stuff that knows about dumping FASL files.
;;;
......@@ -303,6 +303,7 @@
;;;
(defun close-fasl-file (file abort-p)
(declare (type fasl-file file))
(assert (zerop (hash-table-count (fasl-file-patch-table file))))
(dump-fop 'lisp::fop-verify-empty-stack file)
(dump-fop 'lisp::fop-verify-table-size file)
(quick-dump-number (fasl-file-table-free file) 4 file)
......@@ -502,9 +503,6 @@
(dolist (patch old)
(alter-code-object (car patch) (cdr patch) entry-handle file))
(remhash entry (fasl-file-patch-table file)))))))
(assert (zerop (hash-table-count (fasl-file-patch-table file))))
(undefined-value))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment