Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv1732

Modified Files: image.lisp Log Message: Fixing dynamic control transfers, primarily to handle the stack-allocated funobjs, but there seems to be a number of (other) bugs here too. It's not quite working yet, though.

Date: Tue Jan 4 17:53:54 2005 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.86 movitz/image.lisp:1.87 --- movitz/image.lisp:1.86 Wed Dec 15 14:58:08 2004 +++ movitz/image.lisp Tue Jan 4 17:53:53 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001,2000, 2002-2004, +;;;; Copyright (C) 2001,2000, 2002-2005, ;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; Filename: image.lisp @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.86 2004/12/15 13:58:08 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.87 2005/01/04 16:53:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -477,6 +477,11 @@ :binary-type word :initform 0) (ret-trampoline + :binary-type code-vector-word + :map-binary-write 'movitz-intern-code-vector + :map-binary-read-delayed 'movitz-word-code-vector + :binary-tag :primitive-function) + (dynamic-jump-next :binary-type code-vector-word :map-binary-write 'movitz-intern-code-vector :map-binary-read-delayed 'movitz-word-code-vector