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

mescc: Fix size ERROR message.

Browse source 
* module/language/c99/compiler.mes (expr->accu): Fix size ERROR message.
This commit is contained in:
Jan Nieuwenhuizen 2018-05-20 08:51:15 +02:00
parent 1dedd0ebca
commit bbfe7de3da
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1293,8 +1293,8 @@
(rank (->rank type)) (rank (->rank type))
(type-b (ast->type b info)) (type-b (ast->type b info))
(rank-b (->rank type-b)) (rank-b (->rank type-b))
(size (->size type)) (size (if (zero? rank) (->size type) 4))
(size-b (->size type-b)) (size-b (if (zero? rank-b) (->size type-b) 4))
(info (expr->accu b info)) (info (expr->accu b info))
(info (if (equal? op "=") info (info (if (equal? op "=") info
(let* ((struct? (structured-type? type)) (let* ((struct? (structured-type? type))
@ -1326,7 +1326,7 @@
(when (and (equal? op "=") (when (and (equal? op "=")
(not (= size size-b)) (not (= size size-b))
(not (and (or (= size 1) (= size 2)) (not (and (or (= size 1) (= size 2))
(= size-b 4))) (or (= size-b 2) (= size-b 4))))
(not (and (= size 2) (not (and (= size 2)
(= size-b 4))) (= size-b 4)))
(not (and (= size 4) (not (and (= size 4)