mescc: Support --align, off by default.
[mes.git] / module / mescc / mescc.scm
index 39f6c46570eec7f983febf39d46a952ffeaeb8fe..be06d943feed9f09e9558bfe097d9685669b50b9 100644 (file)
                                    (option-ref options 'output #f)))
                              (else (replace-suffix input-file-name ".S"))))
          (infos (map (cut file->info options <>) files))
                                    (option-ref options 'output #f)))
                              (else (replace-suffix input-file-name ".S"))))
          (infos (map (cut file->info options <>) files))
-         (verbose? (option-ref options 'verbose #f)))
+         (verbose? (option-ref options 'verbose #f))
+         (align? (option-ref options 'align #f)))
     (when verbose?
       (stderr "dumping: ~a\n" M1-file-name))
     (with-output-to-file M1-file-name
     (when verbose?
       (stderr "dumping: ~a\n" M1-file-name))
     (with-output-to-file M1-file-name
-      (cut infos->M1 M1-file-name infos))
+      (cut infos->M1 M1-file-name infos #:align? align?))
     M1-file-name))
 
 (define (file->info options file-name)
     M1-file-name))
 
 (define (file->info options file-name)
          (M1-file-name (replace-suffix hex2-file-name ".S"))
          (options (acons 'compile #t options)) ; ugh
          (options (acons 'output hex2-file-name options))
          (M1-file-name (replace-suffix hex2-file-name ".S"))
          (options (acons 'compile #t options)) ; ugh
          (options (acons 'output hex2-file-name options))
-         (verbose? (option-ref options 'verbose #f)))
+         (verbose? (option-ref options 'verbose #f))
+         (align? (option-ref options 'align #f)))
     (when verbose?
       (stderr "dumping: ~a\n" M1-file-name))
     (with-output-to-file M1-file-name
     (when verbose?
       (stderr "dumping: ~a\n" M1-file-name))
     (with-output-to-file M1-file-name
-      (cut infos->M1 M1-file-name infos))
+      (cut infos->M1 M1-file-name infos #:align? align?))
     (or (M1->hex2 options (list M1-file-name))
         (exit 1))))
 
     (or (M1->hex2 options (list M1-file-name))
         (exit 1))))