Added RPOP spec

KCreate · KCreate · commit e30ca86e5c90 · 2017-03-27T19:21:15.000+02:00
diff --git a/spec/machine_spec.cr b/spec/machine_spec.cr
@@ -119,6 +119,20 @@ describe StackVM::Machine do
       sp.should eq 27
     end
 
+    it "runs RPOP" do
+      machine = Machine.new 32
+      machine.flash Assembler::Utils.convert_opcodes EXE{
+        LOADI, QWORD, 25_i64,
+        RPOP, R0,
+        HALT
+      }
+
+      machine.start
+
+      r0 = machine.regs[R0]
+      r0.should eq 25
+    end
+
   end
 
 end
diff --git a/src/stackvm.cr b/src/stackvm.cr
@@ -11,7 +11,8 @@ module StackVM
 
   # Compile the above program to bytes
   binary = Assembler::Utils.convert_opcodes EXE{
-    LOADI, 11_u32, "hello world",
+    LOADI, QWORD, 25_i64,
+    RPOP, R0,
     HALT
   }
 

Original file line number	Diff line number	Diff line change
`@@ -11,7 +11,8 @@ module StackVM`
`11`	`11`
`12`	`12`	`# Compile the above program to bytes`
`13`	`13`	`binary = Assembler::Utils.convert_opcodes EXE{`
`14`		`- LOADI, 11_u32, "hello world",`
	`14`	`+ LOADI, QWORD, 25_i64,`
	`15`	`+ RPOP, R0,`
`15`	`16`	`HALT`
`16`	`17`	`}`
`17`	`18`