diff options
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc index 4ba2a193..59a16e70 100644 --- a/mu.arc +++ b/mu.arc @@ -815,11 +815,14 @@ (map memory* (addrs addr n))))))) (def setm (loc val) ; set memory, respecting metadata +;? (tr 111) (point return +;? (tr 112) (when (is v.loc 'default-space) (assert (is 1 sizeof.loc) "can't store compounds in default-space @loc") (= rep.routine*!call-stack.0!default-space val) (return)) +;? (tr 120) (assert (isa v.loc 'int) "can't store to non-numeric address (problem in convert-names?)") (trace "setm" loc " <= " val) (with (n (if (isa val 'record) (len rep.val) 1) @@ -904,7 +907,7 @@ (def absolutize (operand) (if (no routine*) operand - (is '_ v.operand) + (in v.operand '_ 'default-space) operand (pos '(raw) metadata.operand) operand |