1 files changed, 15 insertions, 0 deletions
diff --git a/src/modules/utils/assign-stack.scm b/src/modules/utils/assign-stack.scm
new file mode 100644
index 0000000..8037400
--- /dev/null
+++ b/src/modules/utils/assign-stack.scm
@@ -0,0 +1,15 @@
+(define-module (modules utils assign-stack)
+  #:export (make-location
+            get-frame-size))
+
+
+(define make-location)
+(define get-frame-size)
+(let ((dict (make-hash-table))
+      (ptr 0))
+  (set! make-location
+        (lambda (id)
+          (or (hash-ref dict id)
+              (begin (set! ptr (1+ ptr))
+                     (hash-set! dict id (get-frame-size))))))
+  (set! get-frame-size (lambda () (* -4 ptr))))