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
2a0be232
Commit
2a0be232
authored
Apr 20, 1990
by
ram
Browse files
CONT -> FP
parent
70f2dc97
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/old-rt/nlx.lisp
View file @
2a0be232
...
...
@@ -88,7 +88,7 @@
;;;; Unwind block hackery:
;;; Compute the address of the catch block from its TN, then store into the
;;; block the current
Cont
, Env, Unwind-Protect, and the entry PC.
;;; block the current
Fp
, Env, Unwind-Protect, and the entry PC.
;;;
(
define-vop
(
make-unwind-block
)
(
:args
(
tn
)
...
...
@@ -100,7 +100,7 @@
(
inst
ai
result
fp-tn
(
*
(
tn-offset
tn
)
4
))
(
load-global
temp
clc::current-unwind-protect-block
)
(
storew
temp
result
system:%unwind-block-current-uwp
)
(
storew
fp-tn
result
system:%unwind-block-current-
cont
)
(
storew
fp-tn
result
system:%unwind-block-current-
fp
)
(
storew
env-tn
result
system:%unwind-block-current-env
)
(
storew
entry-offset
result
system:%unwind-block-entry-pc
)
(
unless
(
location=
result
block
)
...
...
@@ -121,7 +121,7 @@
(
inst
ai
result
fp-tn
(
*
(
tn-offset
tn
)
4
))
(
load-global
temp
clc::current-unwind-protect-block
)
(
storew
temp
result
system:%unwind-block-current-uwp
)
(
storew
fp-tn
result
system:%unwind-block-current-
cont
)
(
storew
fp-tn
result
system:%unwind-block-current-
fp
)
(
storew
env-tn
result
system:%unwind-block-current-env
)
(
storew
entry-offset
result
system:%unwind-block-entry-pc
)
...
...
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