mescc: Fix size ERROR message.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 20 May 2018 06:51:15 +0000 (08:51 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 20 May 2018 06:51:15 +0000 (08:51 +0200)
* module/language/c99/compiler.mes (expr->accu): Fix size ERROR message.

module/language/c99/compiler.mes

index fd1f2fc3f9dd9b8a359bffe75d36fdd433dd46a9..cbe444e96d5e1f7bfd4729f7eb5cd70252936f87 100644 (file)
                 (rank (->rank type))
                 (type-b (ast->type b info))
                 (rank-b (->rank type-b))
-                (size (->size type))
-                (size-b (->size type-b))
+                (size (if (zero? rank) (->size type) 4))
+                (size-b (if (zero? rank-b) (->size type-b) 4))
                 (info (expr->accu b info))
                 (info (if (equal? op "=") info
                           (let* ((struct? (structured-type? type))
            (when (and (equal? op "=")
                       (not (= size size-b))
                       (not (and (or (= size 1) (= size 2))
-                                (= size-b 4)))
+                                (or (= size-b 2) (= size-b 4))))
                       (not (and (= size 2)
                                 (= size-b 4)))
                       (not (and (= size 4)