mescc: Fix -dumpmachine to respect -m bits selection.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 28 May 2019 22:04:47 +0000 (00:04 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 28 May 2019 22:04:47 +0000 (00:04 +0200)
* module/mescc.scm (parse-opts): Fix -dumpmachine to respect -m bits
selection.  Also display kernel.

module/mescc.scm

index 6a4bd69523f55da0b00a1338a730889dbc6b42e8..c7e533a2a661588217ca49c9027e60fee8b1ccf7 100644 (file)
             (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]