7276

1 files changed, 7 insertions, 0 deletions

diff --git a/408float.mu b/408float.mu
index ad94a8d3..d1c04836 100644
--- a/408float.mu
+++ b/408float.mu
@@ -14,3 +14,10 @@ fn fill-in-sqrt _out: (addr float), n: int {
   result <- square-root result
   copy-to *out, result
 }
+
+fn rational nr: int, dr: int -> _/xmm0: float {
+  var result/xmm0: float <- convert nr
+  var divisor/xmm1: float <- convert dr
+  result <- divide divisor
+  return result
+}