summary refs log tree commit diff
path: root/execution-support.e
diff options
context:
space:
mode:
Diffstat (limited to 'execution-support.e')
-rw-r--r--execution-support.e2
1 files changed, 2 insertions, 0 deletions
diff --git a/execution-support.e b/execution-support.e
index b668157..67f9162 100644
--- a/execution-support.e
+++ b/execution-support.e
@@ -95,11 +95,13 @@
 ~
 ~ * rbp points to the top of the control stack.
 ~
+~ TODO can this be correct? it seems backwards?
 ~ (source register, base address -- new base address)
 : pack-pushcontrol
   swap :rbp -8 :rbp lea-reg64-disp8-reg64
   swap :rbp 0 mov-disp8-reg64-reg64 ;
 
+~ TODO can this be correct? it seems backwards?
 ~ (target register, base address -- new base address)
 : pack-popcontrol
   :rbp 0 3roll mov-reg64-disp8-reg64