April 2004 - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

[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

[movitz-cvs] CVS update: movitz/losp/los0-gc.lisp
by Frode Vatvedt Fjeld 11 Apr '04

11 Apr '04

Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv32035 Modified Files: los0-gc.lisp Log Message: Minor edit. Date: Sun Apr 11 14:57:06 2004 Author: ffjeld Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.6 movitz/losp/los0-gc.lisp:1.7 --- movitz/losp/los0-gc.lisp:1.6 Wed Apr 7 09:55:10 2004 +++ movitz/losp/los0-gc.lisp Sun Apr 11 14:57:06 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Feb 21 17:48:32 2004 ;;;; -;;;; $Id: los0-gc.lisp,v 1.6 2004/04/07 13:55:10 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.7 2004/04/11 18:57:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -73,7 +73,7 @@ (:ret))) (defun new-malloc-clumps (clumps) - (check-type clumps (integer 0 200)) + (check-type clumps (integer 0 1000)) (with-inline-assembly (:returns :ebx) retry (:compile-form (:result-mode :eax) clumps)

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp
by Frode Vatvedt Fjeld 11 Apr '04

11 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv30760 Modified Files: debugger.lisp Log Message: Improved *stack-frame-setup-patterns* wrt. function prelude stack bounds-check. Date: Sun Apr 11 14:56:31 2004 Author: ffjeld Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.6 movitz/losp/x86-pc/debugger.lisp:1.7 --- movitz/losp/x86-pc/debugger.lisp:1.6 Tue Apr 6 20:34:57 2004 +++ movitz/losp/x86-pc/debugger.lisp Sun Apr 11 14:56:31 2004 @@ -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.6 2004/04/07 00:34:57 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.7 2004/04/11 18:56:31 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -318,7 +318,7 @@ (+ 2 (signed8-index result-position)))))))))))))) (defparameter *stack-frame-setup-patterns* - '(((:* 1 (#x64 #x62 #x67 #xe7)) ; #<asm (FS-OVERRIDE) BOUND [#x-19+%EDI] %ESP> + '(((:* 1 (#x64 #x62 #x67 (any-offset))) ; #<asm (FS-OVERRIDE) BOUND [#x-19+%EDI] %ESP> (:* 1 (#x55 #x8b #xec #x56)) ; pushl ebp, movl esp (:* 2 (#x80 #xf9 (cmpargs) (:or (#x72 (label))

1 0

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

11 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv28839 Modified Files: compiler.lisp Log Message: The inlined stack-check in the function prelude should access the limit using the thread-local segment prefix, not the global. Date: Sun Apr 11 14:55:24 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.42 movitz/compiler.lisp:1.43 --- movitz/compiler.lisp:1.42 Tue Apr 6 10:34:45 2004 +++ movitz/compiler.lisp Sun Apr 11 14:55:24 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.42 2004/04/06 14:34:45 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.43 2004/04/11 18:55:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -3847,7 +3847,7 @@ (append (when (and do-check-stack-p *compiler-auto-stack-checks-p* (not (without-check-stack-limit-p env))) - `((,*compiler-global-segment-prefix* + `((,*compiler-local-segment-prefix* :bound (:edi ,(global-constant-offset 'stack-bottom)) :esp))) (when use-stack-frame-p `((:pushl :ebp)

1 0

[movitz-cvs] CVS update: movitz/losp/lib/net/ip6.lisp
by Frode Vatvedt Fjeld 11 Apr '04

11 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/lib/net In directory common-lisp.net:/tmp/cvs-serv16353 Modified Files: ip6.lisp Log Message: Minor edits. Date: Sun Apr 11 14:53:42 2004 Author: ffjeld Index: movitz/losp/lib/net/ip6.lisp diff -u movitz/losp/lib/net/ip6.lisp:1.5 movitz/losp/lib/net/ip6.lisp:1.6 --- movitz/losp/lib/net/ip6.lisp:1.5 Thu Feb 26 06:27:07 2004 +++ movitz/losp/lib/net/ip6.lisp Sun Apr 11 14:53:42 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Nov 14 17:25:31 2001 ;;;; -;;;; $Id: ip6.lisp,v 1.5 2004/02/26 11:27:07 ffjeld Exp $ +;;;; $Id: ip6.lisp,v 1.6 2004/04/11 18:53:42 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -574,7 +574,6 @@ (let* ((link-local-address (link-local-address-by-mac (mac-address ne2000))) (solicited-node-address (solicited-node-address link-local-address)) (neighbor-cache (make-neighbor-cache))) - ;; (ne2000-multicast-join ne2000 (mac-by-multicast-address solicited-node-address)) (pushnew (mac-by-multicast-address solicited-node-address) (accept-multicast-addresses ne2000) :test #'equal) @@ -594,7 +593,7 @@ (setf (fill-pointer p) 0) (vector-push p packet-pool))) (loop with timings = (make-array 20 :fill-pointer t) - with eval-buffer = (make-array 16384 :element-type 'character :fill-pointer 0) + with eval-buffer = (make-array 4096 :element-type 'character :fill-pointer 0) with eval-prev-seqno = 0 with request-queue = nil with offset = 54

1 0