diff options
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 3 |
1 files changed, 2 insertions, 1 deletions
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) |