Skip to content
Snippets Groups Projects
Commit dba64da7 authored by ram's avatar ram
Browse files

Fixed MAYBE-LOAD-STACK-TN to accept word-pointer and non-descriptor regs.

parent 073c74a2
No related branches found
No related tags found
No related merge requests found
...@@ -167,9 +167,9 @@ ...@@ -167,9 +167,9 @@
(once-only ((n-reg reg) (once-only ((n-reg reg)
(n-stack reg-or-stack)) (n-stack reg-or-stack))
`(sc-case ,n-reg `(sc-case ,n-reg
((any-reg descriptor-reg) ((any-reg descriptor-reg non-descriptor-reg word-pointer-reg)
(sc-case ,n-stack (sc-case ,n-stack
((any-reg descriptor-reg) ((any-reg descriptor-reg non-descriptor-reg word-pointer-reg)
(move ,n-reg ,n-stack)) (move ,n-reg ,n-stack))
((control-stack) ((control-stack)
(loadw ,n-reg cfp-tn (tn-offset ,n-stack)))))))) (loadw ,n-reg cfp-tn (tn-offset ,n-stack))))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment