Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
3db589e0
Commit
3db589e0
authored
Mar 14, 1990
by
wlott
Browse files
Added LABEL info arguments to the NLX entry VOPs and made them emit the
label and build the return-pc object.
parent
c88a87f1
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/mips/nlx.lisp
View file @
3db589e0
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/nlx.lisp,v 1.
4
1990/03/
06 19:33:53
wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/nlx.lisp,v 1.
5
1990/03/
14 16:06:12
wlott Exp $
;;;
;;; This file contains the definitions of VOPs used for non-local exit
;;; (throw, lexical exit, etc.)
...
...
@@ -173,10 +173,11 @@
(
count
))
(
:results
(
values
:more
t
))
(
:temporary
(
:scs
(
descriptor-reg
))
move-temp
)
(
:info
nvals
)
(
:info
label
nvals
)
(
:save-p
:force-to-stack
)
(
:node-var
node
)
(
:generator
30
(
emit-return-pc
label
)
(
cond
((
zerop
nvals
))
((
=
nvals
1
)
(
let
((
no-values
(
gen-label
)))
...
...
@@ -226,6 +227,7 @@
(
start
:target
src
)
(
count
:target
num
))
(
:results
(
new-start
)
(
new-count
))
(
:info
label
)
(
:temporary
(
:scs
(
any-reg
descriptor-reg
)
:type
fixnum
:from
(
:argument
0
))
dst
)
(
:temporary
(
:scs
(
any-reg
descriptor-reg
)
:type
fixnum
:from
(
:argument
1
))
...
...
@@ -235,6 +237,7 @@
(
:temporary
(
:scs
(
descriptor-reg
))
temp
)
(
:save-p
:force-to-stack
)
(
:generator
30
(
emit-return-pc
label
)
(
let
((
loop
(
gen-label
))
(
done
(
gen-label
)))
...
...
@@ -264,7 +267,10 @@
;;; This VOP is just to force the TNs used in the cleanup onto the stack.
;;;
(
define-vop
(
uwp-entry
)
(
:info
label
)
(
:save-p
:force-to-stack
)
(
:results
(
block
)
(
start
)
(
count
))
(
:ignore
block
start
count
)
(
:generator
0
))
(
:generator
0
(
emit-return-pc
label
)))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment