mescc: Fix for compiling handwritten .S assembly.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 6 Dec 2019 20:17:13 +0000 (21:17 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 6 Dec 2019 20:17:13 +0000 (21:17 +0100)
* module/mescc/mescc.scm (mescc:compile): Handle .S.
(mescc:link): Likewise.

module/mescc/mescc.scm

index a49c6afa4c5b7e5b021fda1bc4bc5666e6ecd05f..94a7380ffcab2d46b1ac1e30e76ee9838a3cbfb3 100644 (file)
@@ -73,6 +73,7 @@
          (input-base (basename input-file-name))
          (M1-file-name (cond ((and (option-ref options 'compile #f)
                                    (option-ref options 'output #f)))
+                             ((string-suffix? ".S" input-file-name) input-file-name)
                              (else (replace-suffix input-base ".s"))))
          (infos (map (cut file->info options <>) files))
          (verbose? (count-opt options 'verbose))
          (hex2-files (append hex2-files hex2-libraries))
          (s-files (append s-files (map (cut find-library options ".s" <>)  libraries)))
          (debug-info? (option-ref options 'debug-info #f))
-         (s-files (cons (replace-suffix input-file-name ".s") s-files))
+         (s-files (if (string-suffix? ".S" input-file-name) s-files
+                      (cons (replace-suffix input-file-name ".s") s-files)))
          (elf-footer (and debug-info?
                           (or (M1->blood-elf options s-files)
                               (exit 1)))))