oceani: var storage needs to be free last

[ocean] / csrc / oceani.mdc

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index 5e26237d7463b0f4e63939c553170959c1006ce0..c3ec2a035d2c127863e0b2081f7b60ed2fc2ad4b 100644 (file)
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -264,6 +264,7 @@ structures can be used.
                }
                ## free context vars
                ## free context types
+               ## free context storage
                exit(context.parse_error ? 1 : 0);
        }
 
@@ -618,9 +619,9 @@ A separate function encoding these cases will simplify some code later.
        static int type_compat(struct type *require, struct type *have, int rules)
        {
                if ((rules & Rboolok) && have == Tbool)
-                       return 1;
+                       return 1;       // NOTEST
                if ((rules & Rnolabel) && have == Tlabel)
-                       return 0;
+                       return 0;       // NOTEST
                if (!require || !have)
                        return 1;
 
@@ -772,7 +773,7 @@ A separate function encoding these cases will simplify some code later.
                t->size = size;
                t->align = size > sizeof(void*) ? sizeof(void*) : size;
                if (t->size & (t->align - 1))
-                       t->size = (t->size | (t->align - 1)) + 1;
+                       t->size = (t->size | (t->align - 1)) + 1;       // NOTEST
                return t;
        }
 
@@ -1318,7 +1319,7 @@ For this we have `scope_finalize()`.
                c->local = calloc(1, c->local_size);
        }
 
-###### free context vars
+###### free context storage
        free(context.global);
        free(context.local);