movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS update: movitz/losp/muerte/format.lisp
by Frode Vatvedt Fjeld 13 Apr '04

13 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv18083 Modified Files: format.lisp Log Message: Tried to be somewhat more clever about avoiding keyword-parsing in calls to write. Date: Tue Apr 13 10:21:57 2004 Author: ffjeld Index: movitz/losp/muerte/format.lisp diff -u movitz/losp/muerte/format.lisp:1.3 movitz/losp/muerte/format.lisp:1.4 --- movitz/losp/muerte/format.lisp:1.3 Wed Mar 24 14:30:15 2004 +++ movitz/losp/muerte/format.lisp Tue Apr 13 10:21:57 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Mar 23 01:18:36 2002 ;;;; -;;;; $Id: format.lisp,v 1.3 2004/03/24 19:30:15 ffjeld Exp $ +;;;; $Id: format.lisp,v 1.4 2004/04/13 14:21:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -51,12 +51,13 @@ (padchar (or (second prefix-parameters) #\space)) (commachar (or (third prefix-parameters) #\,)) (comma-interval (or (fourth prefix-parameters) 3))) - (write-integer x *standard-output* :radix nil :base base - :mincol mincol :padchar padchar - :comma-interval (and colon-p comma-interval) - :comma-char commachar - :sign-always at-sign-p)) - (write x :escape nil :radix nil :base base :readably nil))) + (write-integer x *standard-output* base nil + mincol padchar at-sign-p commachar (and colon-p comma-interval))) + (let ((*print-escape* nil) + (*print-radix* nil) + (*print-base* base) + (*print-readably* nil)) + (write x)))) (defun find-directive (string i directive &optional recursive-skip-start (recursive-skip-end directive))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/variables.lisp
by Frode Vatvedt Fjeld 13 Apr '04

13 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv16607 Modified Files: variables.lisp Log Message: Moved *read-base* and *package* declarations to variables.lisp. Date: Tue Apr 13 10:21:19 2004 Author: ffjeld Index: movitz/losp/muerte/variables.lisp diff -u movitz/losp/muerte/variables.lisp:1.4 movitz/losp/muerte/variables.lisp:1.5 --- movitz/losp/muerte/variables.lisp:1.4 Tue Apr 6 10:31:09 2004 +++ movitz/losp/muerte/variables.lisp Tue Apr 13 10:21:19 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Nov 5 21:53:34 2003 ;;;; -;;;; $Id: variables.lisp,v 1.4 2004/04/06 14:31:09 ffjeld Exp $ +;;;; $Id: variables.lisp,v 1.5 2004/04/13 14:21:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -33,6 +33,9 @@ (defvar + nil) (defvar ++ nil) (defvar +++ nil) + +(defvar *read-base* 10) +(defvar *package*) (defparameter *debugger-hook* nil) (defvar *active-condition-handlers* nil)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/read.lisp
by Frode Vatvedt Fjeld 13 Apr '04

13 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv16565 Modified Files: read.lisp Log Message: Moved *read-base* and *package* declarations to variables.lisp. Date: Tue Apr 13 10:21:14 2004 Author: ffjeld Index: movitz/losp/muerte/read.lisp diff -u movitz/losp/muerte/read.lisp:1.2 movitz/losp/muerte/read.lisp:1.3 --- movitz/losp/muerte/read.lisp:1.2 Mon Jan 19 06:23:47 2004 +++ movitz/losp/muerte/read.lisp Tue Apr 13 10:21:14 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Oct 17 21:50:42 2001 ;;;; -;;;; $Id: read.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ +;;;; $Id: read.lisp,v 1.3 2004/04/13 14:21:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -18,8 +18,6 @@ (provide :muerte/read) (in-package muerte) - -(defvar *read-base* 10) (defun substring (string start end) (if (and (zerop start) (= end (length string)))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/packages.lisp
by Frode Vatvedt Fjeld 13 Apr '04

13 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv16435 Modified Files: packages.lisp Log Message: Moved *read-base* and *package* declarations to variables.lisp. Date: Tue Apr 13 10:21:09 2004 Author: ffjeld Index: movitz/losp/muerte/packages.lisp diff -u movitz/losp/muerte/packages.lisp:1.2 movitz/losp/muerte/packages.lisp:1.3 --- movitz/losp/muerte/packages.lisp:1.2 Mon Jan 19 06:23:47 2004 +++ movitz/losp/muerte/packages.lisp Tue Apr 13 10:21:09 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 30 15:19:43 2001 ;;;; -;;;; $Id: packages.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.3 2004/04/13 14:21:09 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -19,8 +19,6 @@ (provide :muerte/packages) (in-package muerte) - -(defvar *package*) (defstruct (package (:predicate packagep)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp
by Frode Vatvedt Fjeld 13 Apr '04

13 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24095 Modified Files: primitive-functions.lisp Log Message: Added the same change for undwind-protect as the other dynamic control-transfer mechanisms: Use a jumper-table index rather than EIP directly in the on-stack structure. Date: Tue Apr 13 09:28:31 2004 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.8 movitz/losp/muerte/primitive-functions.lisp:1.9 --- movitz/losp/muerte/primitive-functions.lisp:1.8 Tue Apr 13 09:02:33 2004 +++ movitz/losp/muerte/primitive-functions.lisp Tue Apr 13 09:28:31 2004 @@ -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.8 2004/04/13 13:02:33 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.9 2004/04/13 13:28:31 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -103,7 +103,7 @@ ;;; Unwind-protect entry: ;;; 12: parent -;;; 8: eip +;;; 8: jumper index (=> eip) ;;; 4: tag = #:unwind-protect-tag ;;; 0: ebp/stack-frame @@ -176,7 +176,8 @@ (:locally (:movl :ebx (:edi (:edi-offset dynamic-env)))) (:movl (:eax 0) :ebp) ; install clean-up's stack-frame (but keep our ESP) (:movl (:ebp -4) :esi) ; ..and install clean-up's funobj in ESI - (:call (:eax 8)) + (:movl (:eax 8) :edx) + (:call (:esi :edx #.(bt:slot-offset 'movitz:movitz-funobj 'movitz::constant0))) (:popl :edx) ; restoure our EDX (:popl :ebp) ; restore our EBP (:subl 4 :edx) ; ..slide EDX to next position inside stack-frame.

1 0

[movitz-cvs] CVS update: movitz/special-operators-cl.lisp
by Frode Vatvedt Fjeld 13 Apr '04

13 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv24057 Modified Files: special-operators-cl.lisp Log Message: Added the same change for undwind-protect as the other dynamic control-transfer mechanisms: Use a jumper-table index rather than EIP directly in the on-stack structure. Date: Tue Apr 13 09:28:26 2004 Author: ffjeld Index: movitz/special-operators-cl.lisp diff -u movitz/special-operators-cl.lisp:1.15 movitz/special-operators-cl.lisp:1.16 --- movitz/special-operators-cl.lisp:1.15 Tue Apr 13 09:07:40 2004 +++ movitz/special-operators-cl.lisp Tue Apr 13 09:28:26 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 24 16:31:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: special-operators-cl.lisp,v 1.15 2004/04/13 13:07:40 ffjeld Exp $ +;;;; $Id: special-operators-cl.lisp,v 1.16 2004/04/13 13:28:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1168,7 +1168,7 @@ (let ((up-env (make-instance 'unwind-protect-env :uplink env :funobj (movitz-environment-funobj env)))) - (with-labels (unwind-protect (cleanup-entry-offset cleanup-entry)) + (with-labels (unwind-protect (cleanup-label cleanup-entry)) (compiler-call #'compile-form :result-mode :multiple-values :forward all @@ -1178,9 +1178,8 @@ (do-case (t :multiple-values) ;; install up dynamic-env.. (:locally (:pushl (:edi (:edi-offset dynamic-env)))) - (:call (:pc+ 0)) ; EIP - ,cleanup-entry-offset - (:addl '(:funcall - ',cleanup-entry ',cleanup-entry-offset) (:esp)) + (:declare-label-set ,cleanup-label (,cleanup-entry)) + (:pushl ',cleanup-label) ; jumper index (:globally (:pushl (:edi (:edi-offset unwind-protect-tag)))) ; tag (:pushl :ebp) ; stack-frame (:locally (:movl :esp (:edi (:edi-offset dynamic-env)))))) ; install up-env @@ -1196,7 +1195,7 @@ ;; execute cleanup-forms (:call '(:sub-program (,cleanup-entry) ; label ,@(compiler-call #'compile-form - :with-stack-used t + :with-stack-used t ; stack distance is _really_ unknown! :defaults all :result-mode :ignore :form `(muerte.cl::progn ,@cleanup-forms))

1 0

[movitz-cvs] CVS update: movitz/special-operators.lisp
by Frode Vatvedt Fjeld 13 Apr '04

13 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv10494 Modified Files: special-operators.lisp Log Message: Changed the mechanism of dynamic control transfer so as to avoid having instruction-pointers present on the stack. Rather, we keep an index to the jumper-table of the target function. A jumper-table is a table of instruction-pointers pointing somewhere inside the function's code-vector, and is the first n elements of the function-objects constants. The purpose of all this is to reduce the complexity of scavenging the control-stack. Almost all the problems associated with this seems to be rooted in the presence of (potential) untagged instruction-pointers. Date: Tue Apr 13 09:07:47 2004 Author: ffjeld Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.18 movitz/special-operators.lisp:1.19 --- movitz/special-operators.lisp:1.18 Tue Apr 6 20:21:28 2004 +++ movitz/special-operators.lisp Tue Apr 13 09:07:46 2004 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.18 2004/04/07 00:21:28 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.19 2004/04/13 13:07:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1243,33 +1243,41 @@ :forward all) finally (error "No compiler-typecase clause matched compile-time type ~S." keyform-type))))) -(define-special-operator muerte::exact-throw (&all all-throw &form form) +(define-special-operator muerte::exact-throw (&all all-throw &form form &env env &funobj funobj) (destructuring-bind (tag context value-form) (cdr form) - (with-labels (throw (save-tag-variable save-context-var tag-not-found-label)) - (compiler-values () - :returns :non-local-exit - :code (append (compiler-call #'compile-form - :forward all-throw - :result-mode :multiple-values - :form `(muerte.cl:let ((,save-tag-variable ,tag) - (,save-context-var ,context)) - (muerte.cl:multiple-value-prog1 - ,value-form - (muerte::with-inline-assembly (:returns :nothing) - (:compile-form (:result-mode :eax) ,save-tag-variable) - (:compile-form (:result-mode :ebx) ,save-context-var) - (:globally (:call (:edi (:edi-offset dynamic-locate-catch-tag)))) - (:jnc '(:sub-program (,tag-not-found-label) (:int 108))) - (:movl :eax :ebp))))) ; save dynamic-slot in EBP - ;; now outside of m-v-prog1's cloak, with final dynamic-slot in ESP.. - ;; ..unwind it and transfer control. - `((:movl :ebp :esp) - (:popl :ebp) - (:movl (:ebp -4) :esi) - (:leal (:esp 8) :esp) ; skip tag and eip - (:locally (:popl (:edi (:edi-offset dynamic-env)))) ; unwind dynamic env - (:jmp (:esp -8)))))))) + (let* ((local-env (make-local-movitz-environment env funobj :type 'let-env)) + (dynamic-slot-binding (movitz-env-add-binding local-env + (make-instance 'located-binding + :name (gensym "dynamic-slot-"))))) + (with-labels (throw (save-tag-var save-context-var)) + (compiler-values () + :returns :non-local-exit + :code (append (compiler-call #'compile-form + :forward all-throw + :result-mode :multiple-values + :form `(muerte.cl:let ((,save-tag-var ,tag) + (,save-context-var ,context)) + (muerte.cl:multiple-value-prog1 + ,value-form + (muerte::with-inline-assembly (:returns :nothing) + (:compile-two-forms (:eax :ebx) ,save-tag-var ,save-context-var) + (:globally (:call (:edi (:edi-offset dynamic-locate-catch-tag)))) + (:jnc '(:sub-program () (:int 108))) + (:store-lexical ,dynamic-slot-binding :eax :type t) + )))) ; save dynamic-slot in EBP + ;; now outside of m-v-prog1's cloak, with final dynamic-slot in ESP.. + ;; ..unwind it and transfer control. + `((:load-lexical ,dynamic-slot-binding :ebp) + (:leave) + (:movl (:ebp -4) :esi) + (:movl (:esp 4) :edx) + ;; (:halt) + (:jmp (:esi :edx ,(slot-offset 'movitz-funobj 'constant0)))))))))) + +;;; (:leal (:esp 8) :esp) ; skip tag and eip +;;; (:locally (:popl (:edi (:edi-offset dynamic-env)))) ; unwind dynamic env +;;; (:jmp (:esp -8)))))))) (define-special-operator muerte::with-basic-restart (&all defaults &form form &env env) (destructuring-bind ((name function interactive test format-control @@ -1278,16 +1286,28 @@ (cdr form) (check-type name symbol "a restart name") (let* ((entry-size (+ 10 (* 2 (length format-arguments))))) - (with-labels (basic-restart-catch (exit-point-offset exit-point)) + (with-labels (basic-restart-catch (label-set exit-point)) (compiler-values () :returns :multiple-values - :code (append `((:locally (:pushl (:edi (:edi-offset dynamic-env)))) - (:call (:pc+ 0)) - ,exit-point-offset - (:addl '(:funcall - ',exit-point ',exit-point-offset) (:esp)) - (:globally (:pushl (:edi (:edi-offset restart-tag)))) - (:pushl :ebp) - (:load-constant ,name :push)) +;;; Basic-restart entry: +;;; 12: parent +;;; 8: jumper index (=> eip) +;;; 4: tag = #:basic-restart-tag +;;; 0: ebp/stack-frame +;;; -4: name +;;; -8: function +;;; -12: interactive function +;;; -16: test +;;; -20: format-control +;;; -24: (on-stack) list of format-arguments +;;; -28: cdr +;;; -32: car ... + :code (append `((:locally (:pushl (:edi (:edi-offset dynamic-env)))) ; parent + (:declare-label-set ,label-set (,exit-point)) + (:pushl ',label-set) ; jumper index + (:globally (:pushl (:edi (:edi-offset restart-tag)))) ; tag + (:pushl :ebp) ; ebp + (:load-constant ,name :push)) ; name (compiler-call #'compile-form :defaults defaults :form function @@ -1333,6 +1353,8 @@ :result-mode :multiple-values :with-stack-used entry-size :form body) - `((:leal (:esp ,(+ -4 (* 4 entry-size))) :esp) + `((:leal (:esp ,(+ -12 (* 4 entry-size))) :esp) + ,exit-point + (:leal (:esp ,(+ -8 16)) :esp) (:locally (:popl (:edi (:edi-offset dynamic-env)))) - ,exit-point))))))) + )))))))

1 0

[movitz-cvs] CVS update: movitz/special-operators-cl.lisp
by Frode Vatvedt Fjeld 13 Apr '04

13 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv10399 Modified Files: special-operators-cl.lisp Log Message: Changed the mechanism of dynamic control transfer so as to avoid having instruction-pointers present on the stack. Rather, we keep an index to the jumper-table of the target function. A jumper-table is a table of instruction-pointers pointing somewhere inside the function's code-vector, and is the first n elements of the function-objects constants. The purpose of all this is to reduce the complexity of scavenging the control-stack. Almost all the problems associated with this seems to be rooted in the presence of (potential) untagged instruction-pointers. Date: Tue Apr 13 09:07:41 2004 Author: ffjeld Index: movitz/special-operators-cl.lisp diff -u movitz/special-operators-cl.lisp:1.14 movitz/special-operators-cl.lisp:1.15 --- movitz/special-operators-cl.lisp:1.14 Tue Mar 30 16:33:54 2004 +++ movitz/special-operators-cl.lisp Tue Apr 13 09:07:40 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 24 16:31:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: special-operators-cl.lisp,v 1.14 2004/03/30 21:33:54 ffjeld Exp $ +;;;; $Id: special-operators-cl.lisp,v 1.15 2004/04/13 13:07:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -713,7 +713,8 @@ (:jmp (:esi :ecx ,(+ (slot-offset 'movitz-funobj 'constant0) (* 4 label-id)))))))))))) ; transfer control, finally. -(define-special-operator block (&all forward &funobj funobj &form form &env env &result-mode result-mode) +(define-special-operator block (&all forward &funobj funobj &form form &env env + &result-mode result-mode) (destructuring-bind (block-name &body body) (cdr form) (let* ((exit-block-label (gensym (format nil "exit-block-~A-" block-name))) @@ -1140,27 +1141,26 @@ :type '(values &rest t) :code code)))))) -(defun make-compiled-catch-wrapper (tag-form funobj env body-returns body-code &optional exit-point-pusher) +(defun make-compiled-catch-wrapper (tag-form funobj env body-returns body-code) (assert (member body-returns '(:multiple-values :non-local-exit))) (values 4 ; stack-used, must be added to body-code's env. - (with-labels (catch (exit-point-offset exit-point)) - (append (or exit-point-pusher - `((:locally (:pushl (:edi (:edi-offset dynamic-env)))) - (:call (:pc+ 0)) ; push EIP - ,exit-point-offset - (:addl '(:funcall - ',exit-point ',exit-point-offset) (:esp)))) + (with-labels (catch (label-set exit-point)) + (append `((:declare-label-set ,label-set (,exit-point)) + (:locally (:pushl (:edi (:edi-offset dynamic-env)))) ; push dynamic-env + (:pushl ',label-set)) (compiler-call #'compile-form :env env - ;; :with-stack-used 2 + :with-stack-used 2 :funobj funobj :form tag-form :result-mode :push) `((:pushl :ebp) ; push stack frame (:locally (:movl :esp (:edi (:edi-offset dynamic-env))))) ; install catch body-code - `((:leal (:esp ,(+ -4 16)) :esp) - (:locally (:popl (:edi (:edi-offset dynamic-env))))) - `(,exit-point))))) + `((:popl :ebp) ; This value is identical to current EBP. + ,exit-point + (:leal (:esp ,(+ -8 16)) :esp) + (:locally (:popl (:edi (:edi-offset dynamic-env))))))))) (define-special-operator unwind-protect (&all all &form form &env env) (destructuring-bind (protected-form &body cleanup-forms)

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 13 Apr '04

13 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv32540 Modified Files: compiler.lisp Log Message: Minor fixes to allow a lexical variable to be loaded into the EBP register. Date: Tue Apr 13 09:03:10 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.43 movitz/compiler.lisp:1.44 --- movitz/compiler.lisp:1.43 Sun Apr 11 14:55:24 2004 +++ movitz/compiler.lisp Tue Apr 13 09:03:10 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.43 2004/04/11 18:55:24 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.44 2004/04/13 13:03:10 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -2981,7 +2981,7 @@ (defun single-value-register (mode) (ecase mode ((:eax :single-value :multiple-values :function) :eax) - ((:ebx :ecx :edx :esi :esp) mode))) + ((:ebx :ecx :edx :esi :esp :ebp) mode))) (defun result-mode-register (mode) (case mode @@ -3155,7 +3155,7 @@ result-mode :eax (install-for-single-value binding binding-location :eax t))))) (t (case (result-mode-type result-mode) - ((:single-value :eax :ebx :ecx :edx :esi :esp) + ((:single-value :eax :ebx :ecx :edx :esi :esp :ebp) (install-for-single-value binding binding-location (single-value-register result-mode) nil)) (:push

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp
by Frode Vatvedt Fjeld 13 Apr '04

13 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv31863 Modified Files: primitive-functions.lisp Log Message: Minor comment edits. Date: Tue Apr 13 09:02:33 2004 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.7 movitz/losp/muerte/primitive-functions.lisp:1.8 --- movitz/losp/muerte/primitive-functions.lisp:1.7 Tue Apr 6 20:15:44 2004 +++ movitz/losp/muerte/primitive-functions.lisp Tue Apr 13 09:02:33 2004 @@ -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.7 2004/04/07 00:15:44 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.8 2004/04/13 13:02:33 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -97,7 +97,7 @@ ;;; Catch exit-point: ;;; 12: parent (no parent == #x0) -;;; 8: eip +;;; 8: jumper index (=> eip) ;;; 4: catch tag object/word ;;; 0: ebp/stack-frame @@ -109,7 +109,7 @@ ;;; Basic-restart entry: ;;; 12: parent -;;; 8: eip +;;; 8: jumper index (=> eip) ;;; 4: tag = #:basic-restart-tag ;;; 0: ebp/stack-frame ;;; -4: name

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