mescc: Prepare for x86_64 support.
[mes.git] / module / mescc / mescc.scm
index f74df8daf80a55798391673fba4f7e08bf14ff7c..89d0116b1bd1b3b7d2e95479341e35db56f5b588 100644 (file)
@@ -24,6 +24,7 @@
   #:use-module (mes guile)
   #:use-module (mes misc)
 
+  #:use-module (mescc i386 info)
   #:use-module (mescc preprocess)
   #:use-module (mescc compile)
   #:use-module (mescc M1)
@@ -32,6 +33,8 @@
             mescc:assemble
             mescc:link))
 
+(define %info (x86-info))
+
 (define GUILE-with-output-to-file with-output-to-file)
 (define (with-output-to-file file-name thunk)
   (if (equal? file-name "-") (thunk)
          (includes (cons dir includes))
          (prefix (option-ref options 'prefix "")))
     (with-input-from-file file-name
-      (cut c99-input->info #:prefix prefix #:defines defines #:includes includes))))
+      (cut c99-input->info %info #:prefix prefix #:defines defines #:includes includes))))
 
 (define (E->info options file-name)
   (let ((ast (with-input-from-file file-name read)))
-    (c99-ast->info ast)))
+    (c99-ast->info %info ast)))
 
 (define (mescc:assemble options)
   (let* ((files (option-ref options '() '("a.c")))