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:
Danny Milosavljevic 2019-02-19 11:29:56 +01:00 committed by Jan Nieuwenhuizen
parent d7576125d2
commit 7b2605b347
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 5 additions and 1 deletions

View File

@ -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?