[movitz-cvs] CVS update: movitz/image.lisp

[Frode Vatvedt Fjeld]

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