ARM: mescc: Handle command-line option "-marm".

* module/mescc/mescc.scm (arch-get): Handle command-line option "-marm".
This commit is contained in:
Danny Milosavljevic 2019-03-20 17:46:30 +01:00 committed by Jan Nieuwenhuizen
parent c37eee6b3d
commit 58be0fd7e0
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 1 deletions

View File

@ -291,7 +291,8 @@
(arch (option-ref options 'arch #f)))
(if machine (cond ((member arch '("x86" "x86_64")) (cond ((equal? machine "32") "x86")
((equal? machine "64") "x86_64")))
((equal? arch "arm") (cond ((equal? machine "32") "arm"))))
((equal? arch "arm") (cond ((equal? machine "32") "arm")
((equal? machine "arm") "arm"))))
arch)))
(define (mescc:get-host options)