From: Christophe R. <cr...@us...> - 2003-03-07 12:16:03
|
Update of /cvsroot/sbcl/sbcl/src/compiler/mips In directory sc8-pr-cvs1:/tmp/cvs-serv31822/src/compiler/mips 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/mips/nlx.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- nlx.lisp 17 Nov 2002 13:56:58 -0000 1.3 +++ nlx.lisp 7 Mar 2003 12:15:28 -0000 1.4 @@ -21,12 +21,6 @@ ;;; were any additional stacks, 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/Restore-DYNAMIC-ENVIRONMENT VOPs. -(!def-vm-support-routine make-dynamic-state-tns () - (make-n-tns 4 *backend-t-primitive-type*)) - (define-vop (save-dynamic-state) (:results (catch :scs (descriptor-reg)) (nfp :scs (descriptor-reg)) |