movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS update: movitz/compiler.lisp
by ffjeld＠common-lisp.net 25 Jan '05

25 Jan '05

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv15977 Modified Files: compiler.lisp Log Message: Be more observant of *compiler-allow-transients* when locating bindings in registers. Date: Tue Jan 25 05:42:39 2005 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.129 movitz/compiler.lisp:1.130 --- movitz/compiler.lisp:1.129 Fri Jan 21 14:06:07 2005 +++ movitz/compiler.lisp Tue Jan 25 05:42:39 2005 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.129 2005/01/21 22:06:07 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.130 2005/01/25 13:42:39 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -2841,6 +2841,9 @@ (init-pc (second count-init-pc))) ;; (warn "b ~S: count: ~D, init-pc: ~{~&~A~}" binding count init-pc) (cond + ((and (not *compiler-allow-transients*) + (typep binding 'function-argument)) + (values nil :never)) ((binding-lended-p binding) ;; We can't lend a register. (values nil :never))

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by ffjeld＠common-lisp.net 21 Jan '05

21 Jan '05

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv4792 Modified Files: compiler.lisp Log Message: Fixed compute-call-extra-prefix whose previous incarnation I _really_ didn't understand (what was I thinking??) Date: Fri Jan 21 14:06:08 2005 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.128 movitz/compiler.lisp:1.129 --- movitz/compiler.lisp:1.128 Mon Jan 10 00:18:49 2005 +++ movitz/compiler.lisp Fri Jan 21 14:06:07 2005 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.128 2005/01/10 08:18:49 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.129 2005/01/21 22:06:07 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -34,7 +34,7 @@ "Make every compiled function check upon entry that the stack-pointer is within bounds. Costs 3 code-bytes and a few cycles.") -(defvar *compiler-allow-transients* t +(defvar *compiler-allow-transients* nil "Allow the compiler to keep function arguments solely in registers. Hurst debugging, improves performance.") @@ -117,22 +117,19 @@ (+ (ia-x86::assemble-env-current-pc env) size)))) (cond - ((not (and (ia-x86::instruction-operands instr) - (typep (car (ia-x86::instruction-operands instr)) - 'ia-x86::operand-indirect-register) - (eq 'ia-x86::esi - (ia-x86::operand-register (car (ia-x86::instruction-operands instr)))))) + ((not (typep instr 'ia-x86-instr::call)) nil) ((or (= (tag :even-fixnum) return-pointer-tag) (= (tag :odd-fixnum) return-pointer-tag)) ;; Insert a NOP '(#x90)) - ((= 3 return-pointer-tag) - ;; Insert two NOPs, 3 -> 5 - '(#x90 #x90)) +;;; ((= 3 return-pointer-tag) +;;; ;; Insert two NOPs, 3 -> 5 +;;; '(#x90 #x90)) ((= (tag :character) return-pointer-tag) ;; Insert three NOPs, 2 -> 5 - '(#x90 #x90 #x90))))) + '(#x90 #x90 #x90) + '(#x90))))) (defun make-compiled-primitive (form environment top-level-p docstring) "Primitive functions have no funobj, no stack-frame, and no implied @@ -3858,6 +3855,7 @@ (append (make-load-constant sub-funobj register funobj frame-map))) ((typep (movitz-allocation sub-funobj) 'with-dynamic-extent-scope-env) + (setf (headers-on-stack-frame-p funobj) t) (let ((dynamic-scope (movitz-allocation sub-funobj))) (append (make-load-lexical (base-binding dynamic-scope) :edx funobj nil frame-map)

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp
by ffjeld＠common-lisp.net 21 Jan '05

21 Jan '05

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv1838 Modified Files: debugger.lisp Log Message: Added some entries to *stack-frame-setup-patterns* so we avoid some {eax/ebx unknown} in the backtrace. Date: Fri Jan 21 13:02:45 2005 Author: ffjeld Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.28 movitz/losp/x86-pc/debugger.lisp:1.29 --- movitz/losp/x86-pc/debugger.lisp:1.28 Tue Jan 4 08:54:34 2005 +++ movitz/losp/x86-pc/debugger.lisp Fri Jan 21 13:02:45 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 22 10:09:18 2002 ;;;; -;;;; $Id: debugger.lisp,v 1.28 2005/01/04 16:54:34 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.29 2005/01/21 21:02:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -310,8 +310,10 @@ (:* 1 (#x55 #x8b #xec #x56)) ; pushl ebp, movl esp (:* 2 (#x80 #xf9 (cmpargs) (:or (#x72 (label)) + (#x75 (label)) (#x77 (label)) (#x0f #x82 (label) (label) (label) (label)) + (#x0f #x85 (label) (label) (label) (label)) (#x0f #x87 (label) (label) (label) (label))))) (:* 1 (#x84 #xc9 ; #<asm TESTB %CL %CL> (:or (#x78 (label)) ; #<asm JS %PC+#xed>

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/print.lisp
by ffjeld＠common-lisp.net 17 Jan '05

17 Jan '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30777 Modified Files: print.lisp Log Message: *** empty log message *** Date: Mon Jan 17 12:02:30 2005 Author: ffjeld Index: movitz/losp/muerte/print.lisp diff -u movitz/losp/muerte/print.lisp:1.16 movitz/losp/muerte/print.lisp:1.17 --- movitz/losp/muerte/print.lisp:1.16 Mon Jan 17 11:54:38 2005 +++ movitz/losp/muerte/print.lisp Mon Jan 17 12:02:27 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 3 11:48:19 2001 ;;;; -;;;; $Id: print.lisp,v 1.16 2005/01/17 10:54:38 ffjeld Exp $ +;;;; $Id: print.lisp,v 1.17 2005/01/17 11:02:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -253,13 +253,15 @@ (let ((name (symbol-name symbol))) (if (and (plusp (length name)) (every (lambda (c) - (and (or (upper-case-p c) - (member c '(#\+ #\- #\% #\$ #\* #\@ #\. #\& - #\/ #\< #\> #\=)) - (digit-char-p c)) - (not (or (digit-char-p c *read-base*) - (member c '(#\.)))))) - name)) + (or (upper-case-p c) + (member c '(#\+ #\- #\% #\$ #\* #\@ #\. #\& + #\/ #\< #\> #\=)) + (digit-char-p c))) + name) + (not (every (lambda (c) + (or (digit-char-p c *read-base*) + (member c '(#\.)))) + name))) (write-string name stream) (stream-write-escaped-string stream name #\|))))) (cond

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/print.lisp
by ffjeld＠common-lisp.net 17 Jan '05

17 Jan '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30160 Modified Files: print.lisp Log Message: Minor edit. Date: Mon Jan 17 11:54:38 2005 Author: ffjeld Index: movitz/losp/muerte/print.lisp diff -u movitz/losp/muerte/print.lisp:1.15 movitz/losp/muerte/print.lisp:1.16 --- movitz/losp/muerte/print.lisp:1.15 Mon Oct 11 15:53:09 2004 +++ movitz/losp/muerte/print.lisp Mon Jan 17 11:54:38 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001-2004, +;;;; Copyright (C) 2001-2005, ;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 3 11:48:19 2001 ;;;; -;;;; $Id: print.lisp,v 1.15 2004/10/11 13:53:09 ffjeld Exp $ +;;;; $Id: print.lisp,v 1.16 2005/01/17 10:54:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -32,6 +32,7 @@ (defvar *print-level* 3) (defvar *print-pretty* t) (defvar *print-circle* nil) +(defvar *print-case* :upcase) (defvar *print-safely* nil) @@ -252,15 +253,13 @@ (let ((name (symbol-name symbol))) (if (and (plusp (length name)) (every (lambda (c) - (or (upper-case-p c) - (member c '(#\+ #\- #\% #\$ #\* #\@ #\. #\& - #\/ #\< #\> #\=)) - (digit-char-p c))) - name) - (not (every (lambda (c) - (or (digit-char-p c *read-base*) - (member c '(#\.)))) - name))) + (and (or (upper-case-p c) + (member c '(#\+ #\- #\% #\$ #\* #\@ #\. #\& + #\/ #\< #\> #\=)) + (digit-char-p c)) + (not (or (digit-char-p c *read-base*) + (member c '(#\.)))))) + name)) (write-string name stream) (stream-write-escaped-string stream name #\|))))) (cond

1 0

[movitz-cvs] CVS update: movitz/storage-types.lisp
by ffjeld＠common-lisp.net 17 Jan '05

17 Jan '05

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv30135 Modified Files: storage-types.lisp Log Message: *** empty log message *** Date: Mon Jan 17 11:54:22 2005 Author: ffjeld Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.48 movitz/storage-types.lisp:1.49 --- movitz/storage-types.lisp:1.48 Mon Jan 3 12:55:57 2005 +++ movitz/storage-types.lisp Mon Jan 17 11:54:21 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: storage-types.lisp,v 1.48 2005/01/03 11:55:57 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.49 2005/01/17 10:54:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -771,7 +771,10 @@ (entry-protocol :initform :default :initarg :entry-protocol - :reader funobj-entry-protocol)) + :reader funobj-entry-protocol) + (headers-on-stack-frame-p + :initform nil + :accessor headers-on-stack-frame-p)) (:slot-align type #.+other-type-offset+)) (defmethod write-binary-record ((obj movitz-funobj) stream)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/interrupt.lisp
by ffjeld＠common-lisp.net 17 Jan '05

17 Jan '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30097 Modified Files: interrupt.lisp Log Message: Save the CR2 register in the DIT-frame. It holds the offending address in case of a page-fault. Date: Mon Jan 17 11:51:09 2005 Author: ffjeld Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.34 movitz/losp/muerte/interrupt.lisp:1.35 --- movitz/losp/muerte/interrupt.lisp:1.34 Tue Jan 4 17:54:16 2005 +++ movitz/losp/muerte/interrupt.lisp Mon Jan 17 11:51:09 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Apr 7 01:50:03 2004 ;;;; -;;;; $Id: interrupt.lisp,v 1.34 2005/01/04 16:54:16 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.35 2005/01/17 10:51:09 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -27,8 +27,10 @@ :edi :dynamic-env :atomically-continuation - :raw-scratch0 - :ecx :eax :edx :ebx :esi + :raw-scratch0 + :ecx + :cr2 + :eax :edx :ebx :esi :scratch1 :scratch2 :debug0 :debug1 @@ -124,7 +126,10 @@ (:locally (:pushl (:edi (:edi-offset dynamic-env)))) (:locally (:pushl (:edi (:edi-offset atomically-continuation)))) (:locally (:pushl (:edi (:edi-offset raw-scratch0)))) - ,@(loop for reg in (sort (copy-list '(:eax :ebx :ecx :edx :esi)) + (:locally (:pushl :ecx)) + (:movcr :cr2 :ecx) + (:locally (:pushl :ecx)) + ,@(loop for reg in (sort (copy-list '(:eax :ebx :edx :esi)) #'> :key #'dit-frame-index) collect `(:pushl ,reg))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/memref.lisp
by ffjeld＠common-lisp.net 10 Jan '05

10 Jan '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv10749 Modified Files: memref.lisp Log Message: For (setf memref :code-vector) use *compiler-nonlocal-lispval-write-segment-prefix*. Date: Mon Jan 10 15:04:53 2005 Author: ffjeld Index: movitz/losp/muerte/memref.lisp diff -u movitz/losp/muerte/memref.lisp:1.40 movitz/losp/muerte/memref.lisp:1.41 --- movitz/losp/muerte/memref.lisp:1.40 Tue Dec 21 15:28:02 2004 +++ movitz/losp/muerte/memref.lisp Mon Jan 10 15:04:52 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001-2004, +;;;; Copyright (C) 2001-2005, ;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Mar 6 21:25:49 2001 ;;;; -;;;; $Id: memref.lisp,v 1.40 2004/12/21 14:28:02 ffjeld Exp $ +;;;; $Id: memref.lisp,v 1.41 2005/01/10 14:04:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -748,40 +748,45 @@ (:load-lexical (:lexical-binding ,object-var) :ebx) (,prefixes :movl :eax (:ebx :ecx))))))))) (:code-vector - (cond - ((and (movitz:movitz-constantp offset env) - (movitz:movitz-constantp index env)) - `(with-inline-assembly (:returns :eax) - (:compile-two-forms (:eax :ebx) ,value ,object) - (:movl ,movitz:+code-vector-word-offset+ - (:ebx ,(+ (movitz:movitz-eval offset env) - (* 4 (movitz:movitz-eval index env))))) - (:addl :eax (:ebx ,(+ (movitz:movitz-eval offset env) - (* 4 (movitz:movitz-eval index env))))))) - ((movitz:movitz-constantp offset env) - (let ((value-var (gensym "memref-value-"))) - `(let ((,value-var ,value)) - (with-inline-assembly (:returns :eax) - (:compile-two-forms (:ebx :ecx) ,object ,index) - (:load-lexical (:lexical-binding ,value-var) :eax) - ,@(when (plusp (- movitz:+movitz-fixnum-shift+ 2)) - `((:sarl ,(- movitz:+movitz-fixnum-shift+ 2)) :ecx)) - (:movl ,movitz:+code-vector-word-offset+ - (:ebx :ecx ,(movitz:movitz-eval offset env))) - (:addl :eax (:ebx :ecx ,(movitz:movitz-eval offset env))))))) - (t (error "variable (setf memref) type :code-vector not implemented.") - #+ignore - (let ((value-var (gensym "memref-value-")) - (object-var (gensym "memref-object-"))) - `(let ((,value-var ,value) (,object-var ,object)) + (let ((prefixes (if localp + nil + movitz:*compiler-nonlocal-lispval-write-segment-prefix*))) + (cond + ((and (movitz:movitz-constantp offset env) + (movitz:movitz-constantp index env)) + `(with-inline-assembly (:returns :eax) + (:compile-two-forms (:eax :ebx) ,value ,object) + (:movl ,movitz:+code-vector-word-offset+ + (:ebx ,(+ (movitz:movitz-eval offset env) + (* 4 (movitz:movitz-eval index env))))) + (,prefixes + :addl :eax (:ebx ,(+ (movitz:movitz-eval offset env) + (* 4 (movitz:movitz-eval index env))))))) + ((movitz:movitz-constantp offset env) + (let ((value-var (gensym "memref-value-"))) + `(let ((,value-var ,value)) (with-inline-assembly (:returns :eax) - (:compile-two-forms (:untagged-fixnum-ecx :ebx) ,offset ,index) + (:compile-two-forms (:ebx :ecx) ,object ,index) (:load-lexical (:lexical-binding ,value-var) :eax) - ,@(when (cl:plusp (cl:- movitz::+movitz-fixnum-shift+ 2)) - `((:sarl ,(cl:- movitz::+movitz-fixnum-shift+ 2)) :ebx)) - (:addl :ebx :ecx) ; index += offset - (:load-lexical (:lexical-binding ,object-var) :ebx) - (:movl :eax (:ebx :ecx)))))))) + ,@(when (plusp (- movitz:+movitz-fixnum-shift+ 2)) + `((:sarl ,(- movitz:+movitz-fixnum-shift+ 2)) :ecx)) + (:movl ,movitz:+code-vector-word-offset+ + (:ebx :ecx ,(movitz:movitz-eval offset env))) + (,prefixes + :addl :eax (:ebx :ecx ,(movitz:movitz-eval offset env))))))) + (t (error "variable (setf memref) type :code-vector not implemented.") + #+ignore + (let ((value-var (gensym "memref-value-")) + (object-var (gensym "memref-object-"))) + `(let ((,value-var ,value) (,object-var ,object)) + (with-inline-assembly (:returns :eax) + (:compile-two-forms (:untagged-fixnum-ecx :ebx) ,offset ,index) + (:load-lexical (:lexical-binding ,value-var) :eax) + ,@(when (cl:plusp (cl:- movitz::+movitz-fixnum-shift+ 2)) + `((:sarl ,(cl:- movitz::+movitz-fixnum-shift+ 2)) :ebx)) + (:addl :ebx :ecx) ; index += offset + (:load-lexical (:lexical-binding ,object-var) :ebx) + (:movl :eax (:ebx :ecx))))))))) (t ;; (warn "Can't handle inline MEMREF: ~S" form) form))))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp
by ffjeld＠common-lisp.net 10 Jan '05

10 Jan '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv26054 Modified Files: primitive-functions.lisp Log Message: Use copy-funobj-code-vector-slots to initialize stack-allocated funobjs. Date: Mon Jan 10 09:19:08 2005 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.59 movitz/losp/muerte/primitive-functions.lisp:1.60 --- movitz/losp/muerte/primitive-functions.lisp:1.59 Tue Jan 4 17:54:20 2005 +++ movitz/losp/muerte/primitive-functions.lisp Mon Jan 10 09:19:06 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.59 2005/01/04 16:54:20 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.60 2005/01/10 08:19:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -692,3 +692,34 @@ (:movl (:edx -4) :esi) ; get target funobj into ESI (:movl (:esp 8) :edx) ; target jumper number (:jmp (:esi :edx (:offset movitz-funobj constant0))))) + +(define-primitive-function copy-funobj-code-vector-slots () + "Copy the (unsafe) code-vector and jumper slots of the funobj in EAX to that in EBX." + ;; Set up thread-atomical execution + (with-inline-assembly (:returns :eax) + (:locally (:movl #.(movitz::atomically-continuation-simple-pf 'copy-funobj-code-vector-slots) + (:edi (:edi-offset atomically-continuation)))) + (:movl (:eax (:offset movitz-funobj code-vector)) :ecx) + (:movl :ecx (:ebx (:offset movitz-funobj code-vector))) + + (:movl (:eax (:offset movitz-funobj code-vector%1op)) :ecx) + (:movl :ecx (:ebx (:offset movitz-funobj code-vector%1op))) + + (:movl (:eax (:offset movitz-funobj code-vector%2op)) :ecx) + (:movl :ecx (:ebx (:offset movitz-funobj code-vector%2op))) + + (:movl (:eax (:offset movitz-funobj code-vector%3op)) :ecx) + (:movl :ecx (:ebx (:offset movitz-funobj code-vector%3op))) + + (:movl (:eax (:offset movitz-funobj num-jumpers)) :edx) + (:andl #xffff :edx) + (:jnz 'copy-jumpers) + (:locally (:movl 0 (:edi (:edi-offset atomically-continuation)))) + (:ret) + copy-jumpers + (:movl (:eax :edx (:offset movitz-funobj constant0 -4)) :ecx) + (:movl :ecx (:ebx :edx (:offset movitz-funobj constant0 -4))) + (:subl 4 :edx) + (:jnz 'copy-jumpers) + (:locally (:movl 0 (:edi (:edi-offset atomically-continuation)))) + (:ret)))

1 0

[movitz-cvs] CVS update: movitz/image.lisp
by ffjeld＠common-lisp.net 10 Jan '05

10 Jan '05

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv26028 Modified Files: image.lisp Log Message: Use copy-funobj-code-vector-slots to initialize stack-allocated funobjs. Date: Mon Jan 10 09:18:59 2005 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.87 movitz/image.lisp:1.88 --- movitz/image.lisp:1.87 Tue Jan 4 17:53:53 2005 +++ movitz/image.lisp Mon Jan 10 09:18:56 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.87 2005/01/04 16:53:53 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.88 2005/01/10 08:18:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -482,6 +482,11 @@ :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 + :binary-tag :primitive-function) + (copy-funobj-code-vector-slots :binary-type code-vector-word :map-binary-write 'movitz-intern-code-vector :map-binary-read-delayed 'movitz-word-code-vector

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs