Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv4898
Modified Files: image.lisp Log Message: Make the initial stack-vector a bit shorted, so we don't get so extremely long backtraces.
Date: Fri Jul 23 08:32:35 2004 Author: ffjeld
Index: movitz/image.lisp diff -u movitz/image.lisp:1.49 movitz/image.lisp:1.50 --- movitz/image.lisp:1.49 Wed Jul 21 17:27:17 2004 +++ movitz/image.lisp Fri Jul 23 08:32:35 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.49 2004/07/22 00:27:17 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.50 2004/07/23 15:32:35 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -937,7 +937,7 @@ (assert (file-position stream 512) () ; leave room for bootblock. "Couldn't set file-position for ~W." (pathname stream)) (let* ((stack-vector (make-instance 'movitz-basic-vector - :num-elements #xffff + :num-elements #x1ffe :fill-pointer 0 :symbolic-data nil :element-type :u32)) @@ -1311,9 +1311,10 @@ (code-position 0) (entry-points (map 'list #'identity (subseq code (movitz-vector-fill-pointer code-vector))))) (format t "~&;; Movitz Disassembly of ~A:~@[ -;; Constants: ~A~] +;; ~D Constants: ~A~] ~:{~4D: ~16<~{ ~2,'0X~}~;~> ~A~@[ ;~{ ~A~}~]~%~}" (movitz-print (or (movitz-funobj-name funobj) name)) + (length (movitz-funobj-const-list funobj)) (movitz-funobj-const-list funobj) (loop for pc = 0 then code-position