From bd59acec960bf9e2ad93f0d1caa11a65613ee168 Mon Sep 17 00:00:00 2001
From: bd-912 <bdunahu@colostate.edu>
Date: Sun, 14 Apr 2024 02:36:20 -0600
Subject: Add HW4 Test Files

---
 vaporize/tests/Factorial.opt.vaporm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 vaporize/tests/Factorial.opt.vaporm

(limited to 'vaporize/tests/Factorial.opt.vaporm')

diff --git a/vaporize/tests/Factorial.opt.vaporm b/vaporize/tests/Factorial.opt.vaporm
new file mode 100644
index 0000000..fb5f8e6
--- /dev/null
+++ b/vaporize/tests/Factorial.opt.vaporm
@@ -0,0 +1,30 @@
+const empty_Fac
+
+func Main [in 0, out 0, local 0]
+  $a0 = :empty_Fac
+  $a1 = 10
+  call :Fac.ComputeFac
+  $t0 = $v0
+  PrintIntS($t0)
+  ret
+
+func Fac.ComputeFac [in 0, out 0, local 1]
+  local[0] = $s0
+  $t0 = $a0
+  $s0 = $a1
+  $t1 = LtS($s0 1)
+  if0 $t1 goto :if1_else
+  $t1 = 1
+  goto :if1_end
+if1_else:
+  $t2 = Sub($s0 1)
+  $a0 = $t0
+  $a1 = $t2
+  call :Fac.ComputeFac
+  $t2 = $v0
+  $t1 = MulS($s0 $t2)
+if1_end:
+  $v0 = $t1
+  $s0 = local[0]
+  ret
+
-- 
cgit v1.2.3