X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Foceani.mdc;h=5e26237d7463b0f4e63939c553170959c1006ce0;hp=59b8540122e2f75cd6ee471c3482a8bb8810380d;hb=c2a0a93d47f0a1d63c1a794d8f5cf99e04a85588;hpb=c7bbb99395c9e10a0b09995528e04da4dfadba05

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index 59b8540..5e26237 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -167,10 +167,10 @@ structures can be used.
 	};
 	const char *options = "tpnbs";
 
-	static void pr_err(char *msg)
+	static void pr_err(char *msg)			// NOTEST
 	{
 		fprintf(stderr, "%s\n", msg);		// NOTEST
-	}
+	}						// NOTEST
 
 	int main(int argc, char *argv[])
 	{
@@ -530,8 +530,8 @@ Named type are stored in a simple linked list.  Objects of each type are
 	{
 		if (tl && tl->cmp_order)
 			return tl->cmp_order(tl, tr, left, right);
-		if (tl && tl->cmp_eq)
-			return tl->cmp_eq(tl, tr, left, right);
+		if (tl && tl->cmp_eq)			// NOTEST
+			return tl->cmp_eq(tl, tr, left, right);	// NOTEST
 		return -1;				// NOTEST
 	}
 
@@ -1268,7 +1268,7 @@ is started, so there is no need to allocate until the size is known.
 		struct variable scratch;
 
 		if (t->prepare_type)
-			t->prepare_type(c, t, 1);
+			t->prepare_type(c, t, 1);	// NOTEST
 
 		if (c->global_size & (t->align - 1))
 			c->global_size = (c->global_size + t->align) & ~(t->align-1);
@@ -1375,7 +1375,7 @@ from the `exec_types` enum.
 	static int __fput_loc(struct exec *loc, FILE *f)
 	{
 		if (!loc)
-			return 0;		// NOTEST
+			return 0;
 		if (loc->line >= 0) {
 			fprintf(f, "%d:%d: ", loc->line, loc->column);
 			return 1;
@@ -1694,9 +1694,9 @@ with a const size by whether they are prepared at parse time or not.
 		void *ptr = val->ptr;
 
 		if (!val)
-			return;
+			return;				// NOTEST
 		if (!type->array.static_size) {
-			val->array = calloc(type->array.size, 
+			val->array = calloc(type->array.size,
 					    type->array.member->size);
 			ptr = val->array;
 		}