mescc: Use a.out as default executable name.

* module/mescc/mescc.scm (hex2->elf): Use a.out as default executable
name.
This commit is contained in:
Jan Nieuwenhuizen 2019-05-29 16:49:22 +02:00
parent 9cc3b10763
commit 50f3f9ffdc
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273

View file

@ -198,7 +198,7 @@
(define* (hex2->elf options hex2-files #:key elf-footer)
(let* ((input-file-name (car (option-ref options '() '("a.c"))))
(elf-file-name (cond ((option-ref options 'output #f))
(else (replace-suffix input-file-name ""))))
(else "a.out")))
(verbose? (option-ref options 'verbose #f))
(hex2 (or (getenv "HEX2") "hex2"))
(machine (option-ref options 'machine "32"))