From: Christophe R. <cr...@us...> - 2003-03-07 12:15:59
|
Update of /cvsroot/sbcl/sbcl/src/compiler/alpha In directory sc8-pr-cvs1:/tmp/cvs-serv31822/src/compiler/alpha Modified Files: nlx.lisp Log Message: 0.7.13.17: Merge mini backend-refactor, motivated by APD's *CHECK-CONSISTENCY*/non-local-exit observations ... OAOOize MAKE-DYNAMIC-SPACE-TNS VM support routine Also add tests for documentation in the presence of generalized function names that should have been merged before but were forgotten (sorry). Index: nlx.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/nlx.lisp,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- nlx.lisp 17 Nov 2002 13:56:58 -0000 1.11 +++ nlx.lisp 7 Mar 2003 12:15:23 -0000 1.12 @@ -34,14 +34,6 @@ ;;;; before sbcl-0.7.0), then this would be the place to restore the ;;;; top pointers. -;;; Return a list of TNs that can be used to snapshot the dynamic -;;; state for use with the SAVE- and RESTORE-DYNAMIC-ENVIRONMENT VOPs. -(!def-vm-support-routine make-dynamic-state-tns () - (list (make-normal-tn *backend-t-primitive-type*) - (make-normal-tn *backend-t-primitive-type*) - (make-normal-tn *backend-t-primitive-type*) - (make-normal-tn *backend-t-primitive-type*))) - (define-vop (save-dynamic-state) (:results (catch :scs (descriptor-reg)) (nfp :scs (descriptor-reg)) |