diff options
| -rw-r--r-- | edit.mu | 2 | ||||
| -rw-r--r-- | mu.arc | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/edit.mu b/edit.mu index 87433cb2..27dd3e68 100644 --- a/edit.mu +++ b/edit.mu @@ -4,13 +4,11 @@ ((601 integer) <- arg) ((602 integer) <- arg) ((603 screen-address) <- new (screen type) (601 integer)) - ((603 integer-address deref) <- copy (601 integer)) ((604 integer) <- copy (0 literal)) { begin ((606 line-address-address) <- index-address (603 screen-address deref) (604 integer)) ((606 line-address-address deref) <- new (line type) (602 integer)) ((605 line-address) <- copy (606 line-address-address deref)) - ((605 integer-address deref) <- copy (602 integer)) ((604 integer) <- add (604 integer) (1 literal)) ((607 boolean) <- neq (604 integer) (601 integer)) (continue-if (607 boolean)) diff --git a/mu.arc b/mu.arc index 47d50cea..de5b1f1e 100644 --- a/mu.arc +++ b/mu.arc @@ -521,7 +521,8 @@ (def new-array (type size) ;? (prn "new array: @type @size") (ret result Memory-in-use-until - (++ Memory-in-use-until (+ 1 (* (sizeof types*.type!elem) size))))) + (++ Memory-in-use-until (+ 1 (* (sizeof types*.type!elem) size))) + (= (memory* result) size))) (def sizeof (type) (trace "sizeof" type) |