Control statement (interpreter, SM, x86)

regression/Makefile

@@ -1,4 +1,4 @@
-TESTS=test001 test002 test003 test004 test005 test006 test007 test008
+TESTS=test001 test002 test003 test004 test005 test006 test007 test008 test009 test010 test011
 
 RC=../src/rc.opt
 

regression/orig/test009.log

@@ -1 +1 @@
-2
+1024

regression/orig/test010.log

@@ -1 +1 @@
-1024
+499950

regression/orig/test011.log

@@ -1,3 +1 @@
-5
-5
-3
+2

regression/orig/test014.log

@@ -1 +0,0 @@
-499950

regression/test009.expr

@@ -0,0 +1,8 @@
+n := 2;
+k := 10;
+res := 1;
+while k > 0 do
+  res := res * n;
+  k := k - 1
+od;
+write(res)

regression/test010.expr

@@ -0,0 +1,18 @@
+i := 0;
+s := 0; 
+
+while i < 100
+do
+    j := 0;
+
+    while j < 100
+    do   
+      s := s + j;
+      j := j + 1
+    od;
+
+    s := s + i;
+    i := i + 1
+od;
+
+write (s)

regression/test011.expr

@@ -0,0 +1,5 @@
+x:=0;
+if x
+then write(1)
+else write(2)
+fi