mescc: Tinycc support: struct foo {int bar; int baz} = {0}.
[mes.git] / module / language / c99 / compiler.mes
index 348081ea1e27b0e099f3b5e526bff9e22e9d06c6..07c77c96207aaed2c51f0170aa3af530ebd4ad2a 100644 (file)
                  (let loop ((fields fields) (initzers initzers) (info info))
                    (if (null? fields) info
                        (let ((offset (field-offset info type (field:name (car fields))))
-                             (initzer (car initzers)))
-                         (loop (cdr fields) (cdr initzers)
+                             (initzer (if (null? initzers) '(p-expr (fixed "0")) (car initzers))))
+                         (loop (cdr fields) (if (null? initzers) '() (cdr initzers))
                                (clone info #:text
                                       (append
                                        (.text info)