diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-08-22 11:30:36 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-08-22 11:30:36 -0700 |
commit | 2ee76bda373acdce71f560908e7c15ae7d97b8f8 (patch) | |
tree | 7365e282d38dee1d10023e60f6de3e9515576c47 /mu.arc | |
parent | 1f18a4fd0a44f1e2f7a4b9d6ef0f8e5832c0c069 (diff) | |
download | mu-2ee76bda373acdce71f560908e7c15ae7d97b8f8.tar.gz |
72 - broken
Thoroughly confused about how to manage memory at initialization time, and how to maintain type information in the simulated machine.
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc index f9af4697..242bba63 100644 --- a/mu.arc +++ b/mu.arc @@ -16,7 +16,7 @@ (def clear () (= types* (obj ; must be scalar or array, sum or product or primitive - type (obj size 1) + type (obj size 5 record t elems '(integer boolean boolean boolean type-array)) location (obj size 1) integer (obj size 1) boolean (obj size 1) @@ -155,6 +155,8 @@ (do1 fn-arg-idx ++.fn-arg-idx)) (m fn-args.idx)) + type + (ty (fn-args arg.0)) otype (ty (fn-oargs arg.0)) jmp |