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

mescc: Tinycc support: bugfix *++foo,*--foo.

Browse source 
* module/language/c99/compiler.mes (c99-input->full-ast): Pre-define NULL.
  (expr->pointer, expr->size): Handle pre/post-inc/dec.
This commit is contained in:
Jan Nieuwenhuizen 2017-07-29 10:45:16 +02:00
parent f1d9a7a42c
commit 7d0d3a2221
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -57,6 +57,7 @@
(parse-c99 (parse-c99
#:inc-dirs (append includes (cons* include "mlibc/include" "mlibc" (or (and=> (getenv "C_INCLUDE_PATH") (cut string-split <> #\:)) '()))) #:inc-dirs (append includes (cons* include "mlibc/include" "mlibc" (or (and=> (getenv "C_INCLUDE_PATH") (cut string-split <> #\:)) '())))
#:cpp-defs `( #:cpp-defs `(
"NULL=0"
"__i386__=1" "__i386__=1"
"POSIX=0" "POSIX=0"
"_POSIX_SOURCE=0" "_POSIX_SOURCE=0"
@ -1604,6 +1605,10 @@
((de-ref ,expr) (1- (expr->pointer info expr))) ((de-ref ,expr) (1- (expr->pointer info expr)))
((add ,a ,b) (expr->pointer info a)) ((add ,a ,b) (expr->pointer info a))
((sub ,a ,b) (expr->pointer info a)) ((sub ,a ,b) (expr->pointer info a))
((pre-inc ,a) (expr->pointer info a))
((pre-dec ,a) (expr->pointer info a))
((post-inc ,a) (expr->pointer info a))
((post-dec ,a) (expr->pointer info a))
(_ (stderr "expr->pointer: unsupported: ~s\n" o) 0))) (_ (stderr "expr->pointer: unsupported: ~s\n" o) 0)))
(define (expr->size info o) (define (expr->size info o)
@ -1612,6 +1617,10 @@
((de-ref ,expr) (expr->size info expr)) ((de-ref ,expr) (expr->size info expr))
((add ,a ,b) (expr->size info a)) ((add ,a ,b) (expr->size info a))
((sub ,a ,b) (expr->size info a)) ((sub ,a ,b) (expr->size info a))
((pre-inc ,a) (expr->size info a))
((pre-dec ,a) (expr->size info a))
((post-inc ,a) (expr->size info a))
((post-dec ,a) (expr->size info a))
(_ (stderr "expr->size: unsupported: ~s\n" o) 4))) (_ (stderr "expr->size: unsupported: ~s\n" o) 4)))
(define (p-expr->type info o) (define (p-expr->type info o)