oceani: don't allocate init value for non-initialized fields.

[ocean] / csrc / oceani.mdc

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index 416084e26512c613ec287d70feaa85a8ad65e0e6..fedf05f8259c3b7a4e7ec2b77e17ac0d139867ab 100644 (file)
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -1978,7 +1978,8 @@ function will be needed.
                        $0 = calloc(1, sizeof(struct fieldlist));
                        $0->f.name = $1.txt;
                        $0->f.type = $<3;
-                       $0->f.init = val_alloc($0->f.type, NULL);
+                       if ($0->f.type->prepare_type)
+                               $0->f.type->prepare_type($0->f.type);
                }$
 
 ###### forward decls