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

mescc: Tinycc support: initializer arithmetic.

Browse source 
* module/language/c99/compiler.mes (p-expr->bool): New function
  (p-expr->number): Support bitwise-and, bitwise-not, cast, cond-expr.
This commit is contained in:
Jan Nieuwenhuizen 2017-08-27 12:57:50 +02:00
parent 4175579d08
commit 19ea4fa268
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1607,6 +1607,10 @@
(- (p-expr->number info a))) (- (p-expr->number info a)))
((add ,a ,b) ((add ,a ,b)
(+ (p-expr->number info a) (p-expr->number info b))) (+ (p-expr->number info a) (p-expr->number info b)))
((bitwise-and ,a ,b)
(logand (p-expr->number info a) (p-expr->number info b)))
((bitwise-not ,a)
(lognot (p-expr->number info a)))
((bitwise-or ,a ,b) ((bitwise-or ,a ,b)
(logior (p-expr->number info a) (p-expr->number info b))) (logior (p-expr->number info a) (p-expr->number info b)))
((div ,a ,b) ((div ,a ,b)
@ -1628,8 +1632,15 @@
(let ((value (assoc-ref (.constants info) name))) (let ((value (assoc-ref (.constants info) name)))
(or value (or value
(error (format #f "p-expr->number: undeclared identifier: ~s\n" o))))) (error (format #f "p-expr->number: undeclared identifier: ~s\n" o)))))
((cast ,type ,expr) (p-expr->number info expr))
((cond-expr ,test ,then ,else)
(if (p-expr->bool info test) (p-expr->number info then) (p-expr->number info else)))
(_ (error (format #f "p-expr->number: not supported: ~s\n" o))))) (_ (error (format #f "p-expr->number: not supported: ~s\n" o)))))
(define (p-expr->bool info o)
(pmatch o
((eq ,a ,b) (eq? (p-expr->number info a) (p-expr->number info b)))))
(define (struct-field info) (define (struct-field info)
(lambda (o) (lambda (o)
(pmatch o (pmatch o