diff --git a/compiler/alpha/nlx.lisp b/compiler/alpha/nlx.lisp index b0ab78ed41cb950833bcff8022c9b139984e4ddb..ce8c8310ccb4f93e0b1b013a94864fa2b2e3363e 100644 --- a/compiler/alpha/nlx.lisp +++ b/compiler/alpha/nlx.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/nlx.lisp,v 1.2 1994/10/31 04:39:51 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/nlx.lisp,v 1.3 1998/01/21 19:28:44 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -26,6 +26,14 @@ (make-representation-tn *fixnum-primitive-type* immediate-arg-scn) env)) +;;; Make-NLX-Entry-Argument-Start-Location -- Interface +;;; +;;; Make a TN for the argument count passing location for a +;;; non-local entry. +;;; +#+nil +(def-vm-support-routine make-nlx-entry-argument-start-location () + (make-wired-tn *fixnum-primitive-type* immediate-arg-scn ocfp-offset)) ;;; Save and restore dynamic environment. diff --git a/compiler/sparc/nlx.lisp b/compiler/sparc/nlx.lisp index 7e4522aca294331be4c6eaf62e8ff2019dad799b..b4c73c9bedfaa81cf46b5c53df7bc9a894a2fdd1 100644 --- a/compiler/sparc/nlx.lisp +++ b/compiler/sparc/nlx.lisp @@ -5,11 +5,11 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/nlx.lisp,v 1.6 1994/10/31 04:46:41 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/nlx.lisp,v 1.7 1998/01/21 19:28:42 dtc Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/nlx.lisp,v 1.6 1994/10/31 04:46:41 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/nlx.lisp,v 1.7 1998/01/21 19:28:42 dtc Exp $ ;;; ;;; This file contains the definitions of VOPs used for non-local exit ;;; (throw, lexical exit, etc.) @@ -27,6 +27,14 @@ (make-representation-tn *fixnum-primitive-type* immediate-arg-scn) env)) +;;; Make-NLX-Entry-Argument-Start-Location -- Interface +;;; +;;; Make a TN for the argument count passing location for a +;;; non-local entry. +;;; +#+nil +(def-vm-support-routine make-nlx-entry-argument-start-location () + (make-wired-tn *fixnum-primitive-type* immediate-arg-scn ocfp-offset)) ;;; Save and restore dynamic environment.