mescc: Use a.out as default executable name.
authorJan Nieuwenhuizen <janneke@gnu.org>
Wed, 29 May 2019 14:49:22 +0000 (16:49 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 29 May 2019 14:49:22 +0000 (16:49 +0200)
* module/mescc/mescc.scm (hex2->elf): Use a.out as default executable
name.

module/mescc/mescc.scm

index 45f9c9137d59582592be800fc3014a70c25d19f1..33603c2ea1030992944491c8d1f3d7458dd3e98f 100644 (file)
 (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"))