Show the frame pointer in the debugger prompt

KCreate · KCreate · commit ac078e502461 · 2017-03-27T15:12:29.000+02:00
diff --git a/src/stackvm.cr b/src/stackvm.cr
@@ -9,10 +9,12 @@ module StackVM
   include Utils
 
   debug_program = Array(UInt8 | UInt16 | UInt32 | UInt64){
-    LOADI, DWORD, 0xff_u32,
-    LOADI, DWORD, 0xff_u32,
-    RPOP, R0 | M_C,
-    RPOP, R0 | M_C | M_H,
+    LOADI, QWORD, 0xff_u64,
+    LOADI, QWORD, 0xff_u64,
+    RPOP, R0,
+    RPOP, R1,
+    RPUSH, R0,
+    RPUSH, R1,
     HALT
   }
 
diff --git a/src/stackvm/machine/debugger.cr b/src/stackvm/machine/debugger.cr
@@ -20,8 +20,9 @@ module StackVM::Machine::Utils
       loop do
         ip = @machine.regs[Reg::IP]
         address = render_hex @machine.regs[Reg::IP], 8, :red
+        frame_pointer = render_hex @machine.regs[Reg::FP], 8, :green
 
-        command = Readline.readline "[#{address}]> ", true
+        command = Readline.readline "[#{frame_pointer}:#{address}]> ", true
 
         case command
         when "h", "help"
