mescc: support -E.
[mes.git] / module / language / c99 / compiler.mes
index 17f4398683dc3b2f0e84df20429c6fb65799f971..54768b92487105895e22d7e249918f30fd7c003e 100644 (file)
          #:functions (map function:object->text (.functions o))
          #:init (map init:object->text (.init o))))
 
+(define* (c99-ast->info ast)
+  ((ast->info (make <info> #:types i386:type-alist)) ast))
+
 (define* (c99-input->elf #:key (defines '()) (includes '()))
   ((compose info->elf info:object->text (c99-input->info #:defines defines #:includes includes))))