mescc: Fix -dumpmachine to respect -m bits selection.

* module/mescc.scm (parse-opts): Fix -dumpmachine to respect -m bits
selection.  Also display kernel.
This commit is contained in:
Jan Nieuwenhuizen 2019-05-29 00:04:47 +02:00
parent 8abc68bb43
commit 1444c67010
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 4 additions and 2 deletions

View File

@ -79,11 +79,13 @@
(language (single-char #\x) (value #t))))
(options (getopt-long args option-spec))
(help? (option-ref options 'help #f))
(machine (option-ref options 'machine "32"))
(files (option-ref options '() '()))
(usage? (and (not help?) (null? files)))
(version? (option-ref options 'version #f)))
(cond ((option-ref options 'dumpmachine #f)
(display "x86-mes")
(cond ((equal? machine "32") (display "x86-linux-mes\n"))
(else (display "x86_64-linux-mes\n")))
(exit 0))
(version? (format #t "mescc (GNU Mes) ~a\n" %version) (exit 0))
(else
@ -91,7 +93,7 @@
(format (or (and usage? (current-error-port)) (current-output-port)) "\
Usage: mescc [OPTION]... FILE...
--align align globals
-dumpmachine display the compiler's target processor
-dumpmachine display the compiler's target machine
--base-address=ADRRESS
use BaseAddress ADDRESS [0x1000000]
-D DEFINE[=VALUE] define DEFINE [VALUE=1]