Skip to content
Snippets Groups Projects
Commit 3c4b57d9 authored by wlott's avatar wlott
Browse files

Changed reference to stack to control-stack and fixed random typos.

parent b01c7765
No related branches found
No related tags found
No related merge requests found
......@@ -51,12 +51,12 @@
(let ((tn (tn-ref-tn val)))
(sc-case tn
(descriptor-reg
(st tn start-temp i))
(stack
(storew tn start-temp i))
(control-stack
(load-stack-tn temp tn)
(st temp start-temp i)))))
(storew temp start-temp i)))))
(move start start-temp)
(inst ori count zero-tn nvals)))
(move count nvals)))
;;; Push a list of values on the stack, returning Start and Count as used in
......
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