mescc: Handle (Skip) global static.
[mes.git] / module / language / c99 / compiler.mes
index 23a8b95ffbf5095a0345744e2456ac24f8cdf3e0..90e93a269f369f6f4ced1dc96e178450c2f43866 100644 (file)
                      ((decl->info info)
                       `(decl (decl-spec-list (type-spec ,type)) (init-declr-list ,(car inits))))))))
 
+        ((decl (decl-spec-list (stor-spec (static)) (type-spec ,type)) ,init)
+         ((decl->info info) `(decl (decl-spec-list (type-spec ,type)) ,init)))
+
         ((decl (decl-spec-list (stor-spec (typedef)) ,type) ,name)
          (format (current-error-port) "SKIP: typedef=~s\n" o)
          info)