diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-05-05 20:51:33 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-05-05 20:51:33 -0700 |
| commit | 2e3b597fe85b654e82b891c22d50754fa5a26156 (patch) | |
| tree | 6cf55316ee3c547f5c3e8cfa317fbfb12706d979 /mu.arc | |
| parent | d27034341e69bd8bb5aea06a67d85b6984096faa (diff) | |
| download | mu-2e3b597fe85b654e82b891c22d50754fa5a26156.tar.gz | |
1275
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 39 |
1 files changed, 18 insertions, 21 deletions
diff --git a/mu.arc b/mu.arc index d95ae335..c79183d1 100644 --- a/mu.arc +++ b/mu.arc @@ -1474,27 +1474,24 @@ (zap next-space-generator* name))))) (proc check-numeric-address (instrs name) -;? (prn name) ;? 2 - (on instr instrs -;? (prn instr) ;? 2 - (when acons.instr ; not a label - (let (oargs op args) (parse-instr instr) - (each arg oargs -;? (prn " " arg) ;? 2 - (when (and acons.arg ; not dummy _ or raw string - (isa v.arg 'int) - (~is v.arg 0) - (~pos '(raw) metadata.arg) - (~literal? arg)) - (prn "using a raw integer address @arg in @name (instruction #@index)"))) - (each arg args -;? (prn " " arg) ;? 2 - (when (and acons.arg ; not dummy _ or raw string - (isa v.arg 'int) - (~is v.arg 0) - (~pos '(raw) metadata.arg) - (~literal? arg)) - (prn "using a raw integer address @arg in @name (instruction #@index)"))))))) + (unless allow-raw-addresses* + (on instr instrs + (when acons.instr ; not a label + (let (oargs op args) (parse-instr instr) + (each arg oargs + (when (and acons.arg ; not dummy _ or raw string + (isa v.arg 'int) + (~is v.arg 0) + (~pos '(raw) metadata.arg) + (~literal? arg)) + (prn "using a raw integer address @repr.arg in @name (instruction #@index)"))) + (each arg args + (when (and acons.arg ; not dummy _ or raw string + (isa v.arg 'int) + (~is v.arg 0) + (~pos '(raw) metadata.arg) + (~literal? arg)) + (prn "using a raw integer address @repr.arg in @name (instruction #@index)")))))))) ;; literate tangling system for reordering code |