movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS update: ia-x86/README
by ffjeld＠common-lisp.net 30 Jan '05

30 Jan '05

Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv29444 Modified Files: README Log Message: *** empty log message *** Date: Sun Jan 30 03:35:16 2005 Author: ffjeld Index: ia-x86/README diff -u ia-x86/README:1.1 ia-x86/README:1.2 --- ia-x86/README:1.1 Sat Jan 29 08:33:31 2005 +++ ia-x86/README Sun Jan 30 03:35:16 2005 @@ -10,7 +10,7 @@ ## Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ## Created at: Sat Jan 29 16:48:42 2005 ## -## $Id: README,v 1.1 2005/01/29 16:33:31 ffjeld Exp $ +## $Id: README,v 1.2 2005/01/30 11:35:16 ffjeld Exp $ ## ###################################################################### @@ -22,7 +22,7 @@ the Movitz compiler. The following documents the most interesting API operators for this package. -A few terms requires explanation. A "proglist" is a representation of +A few terms requires explanation. A "program" is a representation of an assembly program that is reasonably convenient to work with for humans. This is a list, whose elements are either a symbol that represents a label, or a list that represents an instruction. The @@ -31,10 +31,70 @@ by 1" (more on this syntax below). However, instructions are also represented internally ia-x86 by instances of the various subclasses of the "instruction" standard-class, and lists of such objects are -also someplaces referred to as proglists. +referred to as "proglists". Assembly +The function read-proglist reads a program into proglist form, which +is typically the first step in producing machine code. This function +(and its helper functions, in read.lisp) defines the human-readable +syntax for assembly programs. This is an example program (or rather, a +lisp function that produces an assembly program): + + (defun mkasm16-bios-print () + "Print something to the terminal. [es:si] points to the text" + `((:movzxb (:si) :cx) + (:incw :si) + (:movb #xe :ah) + (:movw 7 :bx) + print-loop + (:lodsb) + (:int #x10) + (:loop 'print-loop) + (:ret))) + +I personally tend to use keywords for instruction names, although the +instructions are recognized by name rather than identity, so any +package will do. Labels, however, are recognized by identity. Label +references are on the form (quote <label>), so that the loop +instruction above will transfer control to the print-loop label two +instructions before it. Indirect memory references are writen by +placing the pointer inside parens, such as in the first movzxb above. +If the first element of an instructon is a list (rather than an +instruction name), this is interpreted as a list of instruction +prefixes (such as REP, LOCK, etc.). + +This is a more-or-less exact description of the syntax: + + program ::= (<sexpr>*) + + sexpr ::= ( <expr> ) | <label> | (% <inline-data> %) | (:include . <program>) + expr ::= <instro> | ( { <prefix> } ) <instro> + instro ::= <instruction> { <operand> } + + operand ::= <concrete> | <abstract> + + concrete ::= <immediate> | <register> | <indirect> + immediate ::= <number> + register ::= eax | ecx | ... + indirect ::= ( iexpr ) + iexpr ::= <address> + | (quote <label>) + | <segment> <address> + | pc+ <offset> + | pc <address> + | { (quote <label>) } <offset> <scaled-register> <register> + scaled-register ::= <register> | ( <register> <scale> ) + scale ::= 1 | 2 | 4 | 8 + address ::= <number> + offset ::= <signed-number> + + abstract ::= (quote <absexpr>) + absexpr ::= <label> | <number> | append-prg + append-prg ::= program + prefix ::= <segment-override> | (:size <size>) +The function proglist-encode takes a proglist and produces +machine-code in the form of e.g. a vector of 8-bit bytes.

1 0

[movitz-cvs] CVS update: ia-x86/README
by ffjeld＠common-lisp.net 29 Jan '05

29 Jan '05

Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv3027 Added Files: README Log Message: First few lines. Date: Sat Jan 29 08:33:31 2005 Author: ffjeld

1 0

[movitz-cvs] CVS update: public_html/ChangeLog public_html/index.html
by ffjeld＠common-lisp.net 29 Jan '05

29 Jan '05

Update of /project/movitz/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv17004 Modified Files: index.html Added Files: ChangeLog Log Message: moved this here. Date: Sat Jan 29 02:42:28 2005 Author: ffjeld Index: public_html/index.html diff -u public_html/index.html:1.23 public_html/index.html:1.24 --- public_html/index.html:1.23 Sat Jan 29 02:38:47 2005 +++ public_html/index.html Sat Jan 29 02:42:28 2005 @@ -39,7 +39,7 @@ with Movitz, and which is now fixed in QEMU's CVS. <p> For more news, see the <a - href="files/ChangeLog"><tt>ChangeLog</tt></a>. + href="ChangeLog"><tt>ChangeLog</tt></a>. <h3>Introduction</h3>

1 0

[movitz-cvs] CVS update: public_html/index.html
by ffjeld＠common-lisp.net 29 Jan '05

29 Jan '05

Update of /project/movitz/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv16960 Modified Files: index.html Log Message: *** empty log message *** Date: Sat Jan 29 02:38:47 2005 Author: ffjeld Index: public_html/index.html diff -u public_html/index.html:1.22 public_html/index.html:1.23 --- public_html/index.html:1.22 Sat Jan 29 02:36:56 2005 +++ public_html/index.html Sat Jan 29 02:38:47 2005 @@ -20,6 +20,9 @@ should, even in the corner cases when two interrupts occur in rapid succession etc. + <p> <i>January 4, 2005</i> Fixed some support for stack-allocating + funobjs and cons-cells of dynamic extent. + <p> <i>December 12, 2004:</i> Various bits and pieces have been cleaned up so that recent (2.33) CLisp can now compile Movitz kernels just fine (mostly to do with CLisp having CL symbols with e.g. CLOS

1 0

[movitz-cvs] CVS update: public_html/index.html
by ffjeld＠common-lisp.net 29 Jan '05

29 Jan '05

Update of /project/movitz/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv16922 Modified Files: index.html Log Message: *** empty log message *** Date: Sat Jan 29 02:36:56 2005 Author: ffjeld Index: public_html/index.html diff -u public_html/index.html:1.21 public_html/index.html:1.22 --- public_html/index.html:1.21 Sun Dec 12 04:38:40 2004 +++ public_html/index.html Sat Jan 29 02:36:56 2005 @@ -15,6 +15,11 @@ <h3>Most recent news</h3> + <p> <i>January 29, 2005</i> The stack discipline and associated GC + scavenging routines have been cleaned up, now hopefully work as they + should, even in the corner cases when two interrupts occur in rapid + succession etc. + <p> <i>December 12, 2004:</i> Various bits and pieces have been cleaned up so that recent (2.33) CLisp can now compile Movitz kernels just fine (mostly to do with CLisp having CL symbols with e.g. CLOS

1 0

[movitz-cvs] CVS update: movitz/doc/ChangeLog
by ffjeld＠common-lisp.net 29 Jan '05

29 Jan '05

Update of /project/movitz/cvsroot/movitz/doc In directory common-lisp.net:/tmp/cvs-serv16868 Modified Files: ChangeLog Log Message: *** empty log message *** Date: Sat Jan 29 02:32:57 2005 Author: ffjeld Index: movitz/doc/ChangeLog diff -u movitz/doc/ChangeLog:1.9 movitz/doc/ChangeLog:1.10 --- movitz/doc/ChangeLog:1.9 Tue Jan 4 12:33:17 2005 +++ movitz/doc/ChangeLog Sat Jan 29 02:32:57 2005 @@ -1,3 +1,12 @@ +2005-01-29 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> + + * There's been quite a bit of work on scavenge.lisp. The stack scavenging + has been re-designed completely, and should now not break as it + sometimes did before in certain interrupt + situations. Interestingly, the scavenging API essentially didn't + change at all. There are still some holes left empty when it comes + to migrating code-vectors, but this should be trivial to fix. + 2005-01-04 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> * Fixed some support for stack-allocating funobjs and cons-cells

1 0

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

28 Jan '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv439 Modified Files: interrupt.lisp Log Message: Fixed dit-frame-casf according to the (newish) stack discipline. Date: Fri Jan 28 00:49:07 2005 Author: ffjeld Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.36 movitz/losp/muerte/interrupt.lisp:1.37 --- movitz/losp/muerte/interrupt.lisp:1.36 Tue Jan 25 05:50:16 2005 +++ movitz/losp/muerte/interrupt.lisp Fri Jan 28 00:49:07 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.36 2005/01/25 13:50:16 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.37 2005/01/28 08:49:07 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -82,20 +82,17 @@ (let ((ebp (dit-frame-ref stack dit-frame :ebp)) (esp (dit-frame-esp stack dit-frame))) (cond - ((null ebp) ; special mode + ((null ebp) ; special dynamic control-transfer mode (stack-frame-ref stack (dit-frame-ref stack dit-frame :dynamic-env) 0)) ((< esp ebp) ebp) - ((> esp ebp) - ;; A throw situation + ((eq esp ebp) (let ((next-ebp (stack-frame-ref stack esp 0))) (check-type next-ebp fixnum) (assert (< esp next-ebp)) next-ebp)) - (t (let ((next-ebp (stack-frame-ref stack esp 0))) - (check-type next-ebp fixnum) - (assert (< esp next-ebp)) - next-ebp))))) + (t (error "Undefined CASF for dit-frame ~S with EBP #x~X and ESP #x~X." + dit-frame ebp esp))))) (define-primitive-function (default-interrupt-trampoline :symtab-property t) () "Default first-stage/trampoline interrupt handler. Assumes the IF flag in EFLAGS

1 0

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

28 Jan '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv418 Modified Files: scavenge.lisp Log Message: Fixed a typo in match-funobj, and removed the old scavenge function that's now defunct. Date: Fri Jan 28 00:47:18 2005 Author: ffjeld Index: movitz/losp/muerte/scavenge.lisp diff -u movitz/losp/muerte/scavenge.lisp:1.43 movitz/losp/muerte/scavenge.lisp:1.44 --- movitz/losp/muerte/scavenge.lisp:1.43 Thu Jan 27 01:01:27 2005 +++ movitz/losp/muerte/scavenge.lisp Fri Jan 28 00:47:18 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Mar 29 14:54:08 2004 ;;;; -;;;; $Id: scavenge.lisp,v 1.43 2005/01/27 09:01:27 ffjeld Exp $ +;;;; $Id: scavenge.lisp,v 1.44 2005/01/28 08:47:18 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -173,17 +173,17 @@ (cond ((not (typep funobj 'function)) nil) - ((let ((x (funobj-code-vector casf-funobj))) + ((let ((x (funobj-code-vector funobj))) (and (location-in-object-p x location) x))) - ((let ((x (funobj-code-vector%1op casf-funobj))) + ((let ((x (funobj-code-vector%1op funobj))) (and (typep x 'vector) (location-in-object-p x location) x))) - ((let ((x (funobj-code-vector%2op casf-funobj))) + ((let ((x (funobj-code-vector%2op funobj))) (and (typep x 'vector) (location-in-object-p x location) x))) - ((let ((x (funobj-code-vector%3op casf-funobj))) + ((let ((x (funobj-code-vector%3op funobj))) (and (typep x 'vector) (location-in-object-p x location) x)))))) @@ -340,145 +340,4 @@ old) (t (setf (stack-frame-ref nil index 0) nil))))) - -#+ignore -(defun old-map-stack-vector (function stack start-frame &optional (map-region #'map-header-vals)) - "Map function over the potential pointer words of a stack, starting -at the start-stack-frame location." - (with-funcallable (map-region) - (loop with next-frame with next-nether-frame - for nether-frame = start-frame then (or next-nether-frame frame) - and frame = (stack-frame-uplink stack start-frame) then (or next-frame - (stack-frame-uplink stack frame)) - while (plusp frame) - do (setf next-frame nil next-nether-frame nil) - do (flet ((scavenge-funobj-code-vector (funobj) - "Funobj 0 is assumed to be the DIT code-vector." - (if (eq 0 funobj) - (symbol-value 'default-interrupt-trampoline) - (funobj-code-vector funobj)))) - (let ((funobj (funcall function (stack-frame-funobj stack frame) frame))) - ;; If nether-frame is a DIT-frame, there are 4 more words to be skipped. - (when (eq 0 (stack-frame-ref stack nether-frame -1)) - (incf nether-frame 4)) - (typecase funobj - ((or function null) - (assert (= 0 (funobj-frame-raw-locals funobj))) - (map-region function (+ nether-frame 2) frame)) - ((eql 0) ; A dit interrupt-frame? - (let* ((dit-frame frame) - (casf-frame (dit-frame-casf stack dit-frame))) - ;; 1. Scavenge the dit-frame - (cond - ((let ((atomically (dit-frame-ref stack dit-frame :atomically-continuation - :unsigned-byte32))) - (and (not (= 0 atomically)) - (= 0 (ldb (byte 2 0) atomically)))) - ;; Interrupt occurred inside an (non-pf) atomically, so none of the - ;; registers are active. - (map-region function (+ nether-frame 2) - (+ dit-frame 1 (dit-frame-index :tail-marker)))) - ((logbitp 10 (dit-frame-ref stack dit-frame :eflags :unsigned-byte32)) - ;; DF flag was 1, so EAX and EDX are not GC roots. - #+ignore (warn "Interrupt in uncommon mode at ~S" - (dit-frame-ref stack dit-frame :eip :unsigned-byte32)) - (map-region function ; Assume nothing in the dit-frame above the location .. - (+ nether-frame 2) ; ..of EDX holds pointers. - (+ dit-frame (dit-frame-index :edx)))) - (t #+ignore (warn "Interrupt in COMMON mode!") - (map-region function ; Assume nothing in the dit-frame above the location .. - (+ nether-frame 2) ; ..of ECX holds pointers. - (+ dit-frame (dit-frame-index :ecx))))) - ;; 2. Pop to (dit-)frame's CASF - (setf nether-frame dit-frame - frame casf-frame #+ignore (dit-frame-casf stack frame)) - (let ((eip-location (dit-frame-ref stack dit-frame :eip :location)) - (interrupted-esp (dit-frame-esp stack dit-frame)) - (interrupted-ebp (dit-frame-ref stack dit-frame :ebp)) - (casf-funobj (funcall function (stack-frame-funobj stack frame) frame))) - (cond - ((or (eq 0 casf-funobj) - (typep casf-funobj 'function)) - (let ((casf-code-vector (scavenge-funobj-code-vector casf-funobj))) - ;; 3. Scavenge the interrupted frame, according to one of i. ii. or iii. - (cond - ((eq nil interrupted-ebp) - (cond - ((location-in-object-p casf-code-vector eip-location) - (warn "DIT at throw situation, in target ~S at ~S" - casf-funobj - (dit-frame-ref stack dit-frame :eip :unsigned-byte32)) - (map-region function interrupted-esp frame)) - ((location-in-object-p (%run-time-context-slot 'dynamic-jump-next) - eip-location) - (warn "DIT at throw situation, in dynamic-jump-next.") - (let ((dynamic-env (dit-frame-ref stack dit-frame :dynamic-env))) - (assert (< dynamic-env frame)) - (map-region function dynamic-env frame))) - (t (error "Unknown throw situation with EBP=~S, ESP=~S" - interrupted-ebp interrupted-esp)))) - ((location-in-object-p casf-code-vector - (dit-frame-ref stack dit-frame :eip :location)) - (cond - ((let ((x0-tag (ldb (byte 3 0) - (memref interrupted-esp 0 :type :unsigned-byte8)))) - (and (member x0-tag '(1 5 6 7)) - (location-in-object-p casf-code-vector - (memref interrupted-esp 0 :type :location)))) - ;; When code-vector migration is implemented... - (warn "Scanning at ~S X0 call ~S in ~S." - (dit-frame-ref stack dit-frame :eip :unsigned-byte32) - (memref interrupted-esp 0 :type :unsigned-byte32) - (funobj-name casf-funobj)) - (when (eq 0 (stack-frame-ref stack frame -1)) - (break "X1 call in DIT-frame.")) - (map-region function (+ interrupted-esp 1) frame) - (setf next-frame frame - next-nether-frame (+ interrupted-esp 1 -2))) - ((let ((x1-tag (ldb (byte 3 0) - (memref interrupted-esp 4 :type :unsigned-byte8)))) - (and (member x1-tag '(1 5 6 7)) - (location-in-object-p casf-code-vector - (memref interrupted-esp 4 :type :location)))) - ;; When code-vector migration is implemented... - (warn "Scanning at ~S X1 call ~S in ~S." - (dit-frame-ref stack dit-frame :eip :unsigned-byte32) - (memref interrupted-esp 4 :type :unsigned-byte32) - (funobj-name casf-funobj)) - (when (eq 0 (stack-frame-ref stack frame -1)) - (break "X1 call in DIT-frame.")) - (map-region function (+ interrupted-esp 2) frame) - (setf next-frame frame - next-nether-frame (+ interrupted-esp 2 -2))) - (t ;; Situation i. Nothing special on stack, scavenge frame normally. - ;; (map-region function interrupted-esp frame) - (setf next-frame frame - next-nether-frame (- interrupted-esp 2)) - ))) - ((eq casf-frame (memref interrupted-esp 0 :type :location)) - ;; Situation ii. esp(0)=CASF, esp(1)=code-vector - (assert (location-in-object-p casf-code-vector - (memref interrupted-esp 4 :type :location)) - - () "Stack discipline situation ii. invariant broken. CASF=#x~X, ESP=~S, EBP=~S" - casf-frame interrupted-esp interrupted-ebp) - (when (eq 0 (stack-frame-ref stack frame -1)) - (break "X1 ii call in DIT-frame.")) - (map-region function (+ interrupted-esp 2) frame) - (setf next-frame frame - next-nether-frame (+ interrupted-esp 2 -2))) - (t ;; Situation iii. esp(0)=code-vector. - (assert (location-in-object-p casf-code-vector - (memref interrupted-esp 0 :type :location)) - () "Stack discipline situation iii. invariant broken. CASF=#x~X" - casf-frame) - (when (eq 0 (stack-frame-ref stack frame -1)) - (break "X1 iii call in DIT-frame.")) - (map-region function (+ interrupted-esp 1) frame) - (setf next-frame frame - next-nether-frame (+ interrupted-esp 1 -2)))))) - (t (error "DIT-frame interrupted unknown CASF funobj: ~Z, CASF ~S" - casf-funobj casf-frame)))))) - (t (error "Don't know how to scavenge across frame ~S of kind ~S." frame funobj))))))) - (values))

1 0

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

27 Jan '05

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv30105 Modified Files: debugger.lisp Log Message: Tweaked *call-site-patterns*. Date: Thu Jan 27 03:19:55 2005 Author: ffjeld Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.29 movitz/losp/x86-pc/debugger.lisp:1.30 --- movitz/losp/x86-pc/debugger.lisp:1.29 Fri Jan 21 13:02:45 2005 +++ movitz/losp/x86-pc/debugger.lisp Thu Jan 27 03:19:53 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.29 2005/01/21 21:02:45 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.30 2005/01/27 11:19:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -225,7 +225,8 @@ (:* 1 ((:or ((:or (#x8b #x56 (:edx :esi)) ; (:movl (:esi x) :edx) (#x8b #x54 #x37 (:edx :esi+edi))) ;#<asm MOVL [#x39+%EDI+%ESI] => %EDX> #x8b #x72 #xfd) ; (:movl (:edx -3) :esi) - (#x8b #x74 #x7e (:any-offset))))) ; #<asm MOVL [#x28+%ESI+%EDI*2] => %ESI> + (#x8b #x74 #x7e (:any-offset)) ; #<asm MOVL [#x28+%ESI+%EDI*2] => %ESI> + (#x8b #x76 (:any-offset))))) ; #<asm MOVL [#x56+%ESI] => %ESI> (:* 1 ((:or (#xb1 (:cl-numargs))))) ; (:movb x :cl) (:* 1 ((:or (#x8b #x55 (:edx :ebp)) (#x8b #x56 (:edx :esi)))))

1 0

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

27 Jan '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv23073 Modified Files: scavenge.lisp Log Message: Fixed the situation when an interrupt occures inside dynamic-jump-next. Date: Thu Jan 27 01:01:27 2005 Author: ffjeld Index: movitz/losp/muerte/scavenge.lisp diff -u movitz/losp/muerte/scavenge.lisp:1.42 movitz/losp/muerte/scavenge.lisp:1.43 --- movitz/losp/muerte/scavenge.lisp:1.42 Wed Jan 26 23:46:49 2005 +++ movitz/losp/muerte/scavenge.lisp Thu Jan 27 01:01:27 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Mar 29 14:54:08 2004 ;;;; -;;;; $Id: scavenge.lisp,v 1.42 2005/01/27 07:46:49 ffjeld Exp $ +;;;; $Id: scavenge.lisp,v 1.43 2005/01/27 09:01:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -199,9 +199,16 @@ ((match-funobj esi location)) ((not (typep casf-funobj 'function)) (break "Unknown funobj/frame-type: ~S" casf-funobj)) + ((location-in-object-p (%run-time-context-slot 'dynamic-jump-next) location) + (%run-time-context-slot 'dynamic-jump-next)) ((when searchp (%find-code-vector location))) - (t (error "Unable to decode EIP #x~X funobj ~S." location casf-funobj))))) + (t (with-simple-restart (continue "Try to perform a code-vector-search.") + (error "Unable to decode EIP #x~X funobj ~S, ESI ~S." + (* 4 location) casf-funobj esi)) + (or (%find-code-vector location) + (error "Code-vector-search for EIP #x~X also failed." + (* 4 location))))))) (defun map-stack-value (function value frame) (if (not (typep value 'pointer)) @@ -305,7 +312,6 @@ (eq x1-tag 3) ; 3 or 7? (and (oddp x1-location) (eq x1-tag 2))) ; 6? (location-in-object-p casf-code-vector x1-location)) - (warn "X1: ~S ~S" x1-location x1-tag) (let* ((old-x1-code-vector (scavenge-find-code-vector (stack-frame-ref nil next-eip-index 0 :location) casf-funobj interrupted-esi t)))

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