artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

6
module/mescc.scm
View file

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