artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: Also print `parsing: input' when using -E.

Browse source 
* module/language/c99/compiler.mes (c99-input->ast): Print `parsing:
  input'.
  (c99-input->info): Remove that.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-06 07:18:19 +02:00
parent b5c2bdec00
commit 30262dcdc1
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
module/language/c99/compiler.mes
View file

@ -2443,12 +2443,12 @@
((ast->info (make <info> #:types i386:type-alist)) ast)) ((ast->info (make <info> #:types i386:type-alist)) ast))
(define* (c99-input->ast #:key (defines '()) (includes '())) (define* (c99-input->ast #:key (defines '()) (includes '()))
(stderr "parsing: input\n")
((compose ast-strip-const ast-strip-comment) (c99-input->full-ast #:defines defines #:includes includes))) ((compose ast-strip-const ast-strip-comment) (c99-input->full-ast #:defines defines #:includes includes)))
(define* (c99-input->info #:key (defines '()) (includes '())) (define* (c99-input->info #:key (defines '()) (includes '()))
(lambda () (lambda ()
(let* ((info (make <info> #:types i386:type-alist)) (let* ((info (make <info> #:types i386:type-alist))
(foo (stderr "parsing: input\n"))
(ast (c99-input->ast #:defines defines #:includes includes)) (ast (c99-input->ast #:defines defines #:includes includes))
(foo (stderr "compiling: input\n")) (foo (stderr "compiling: input\n"))
(info ((ast->info info) ast)) (info ((ast->info info) ast))