diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-02-08 13:24:10 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-02-08 13:24:10 -0800 |
commit | 465c5c06e7657fc8b1ef0e383d43e171db6e02de (patch) | |
tree | bf307ce14e448e24a3777434f3cb9125ae41f875 /mu.arc | |
parent | 3cf8954932091235f7d1088a2a6ffd5b476a14d4 (diff) | |
download | mu-465c5c06e7657fc8b1ef0e383d43e171db6e02de.tar.gz |
718 - disable raw memory warnings in tests
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/mu.arc b/mu.arc index 272a3b8a..71e2f251 100644 --- a/mu.arc +++ b/mu.arc @@ -1375,15 +1375,17 @@ (trace "cn1" instr)) instrs) +(= allow-raw-addresses* nil) (def check-default-space (instrs name) - (let oarg-names (accum yield - (each (oargs _ _) (map parse-instr (keep acons ; non-label - instrs)) - (each oarg oargs - (when nondummy.oarg - (yield v.oarg))))) - (when (~pos 'default-space oarg-names) - (prn "function @name has no default-space")))) + (unless allow-raw-addresses* + (let oarg-names (accum yield + (each (oargs _ _) (map parse-instr (keep acons ; non-label + instrs)) + (each oarg oargs + (when nondummy.oarg + (yield v.oarg))))) + (when (~pos 'default-space oarg-names) + (prn "function @name has no default-space"))))) ; assign an index to an arg (def maybe-add (arg location idx) |