M1: Add support for ARM-like architectures.
* module/mescc/M1.scm (hex2:offset3): Make architecture-dependent. (info->M1): Allow symbol to be last.
This commit is contained in:
parent
d7576125d2
commit
7b2605b347
|
@ -67,7 +67,8 @@
|
|||
(string-append "@" o))
|
||||
|
||||
(define (hex2:offset3 o)
|
||||
(string-append "~" o))
|
||||
"Note: Uses architecture-specific printer (for branch instructions)"
|
||||
(string-append "^~" o))
|
||||
|
||||
(define hex? #t)
|
||||
|
||||
|
@ -199,6 +200,9 @@
|
|||
((or (string? (car o)) (symbol? (car o)))
|
||||
(display "\t" )
|
||||
(display-join (map text->M1 o) " "))
|
||||
((or (string? (car (reverse o))) (symbol? (car (reverse o))))
|
||||
(display "\t" )
|
||||
(display-join (map text->M1 o) " "))
|
||||
(else (error "line->M1 invalid line:" o)))
|
||||
(newline))
|
||||
(when verbose?
|
||||
|
|
Loading…
Reference in New Issue