X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Foceani.mdc;fp=csrc%2Foceani.mdc;h=ca59924a22b9365e94a47c7d014c21528684aff8;hp=2f3c9731e9ed703ad095a954855bd85cd43c20e7;hb=096d061b99078b3a89181d6841f0c01a1eec0017;hpb=0fff05884fe4b40c86252e89fb16f307309299cd

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index 2f3c973..ca59924 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -2398,16 +2398,16 @@ with a const size by whether they are prepared at parse time or not.
 		struct value *vsize;
 		mpz_t q;
 		if (type->array.static_size)
-			return 1;	// UNTESTED
+			return 1;	// NOTEST - guard against reentry
 		if (type->array.unspec && parse_time)
-			return 1;	// UNTESTED
+			return 1;	// NOTEST - unspec is still incomplete
 		if (parse_time && type->array.vsize && !type->array.vsize->global)
-			return 1;	// UNTESTED
+			return 1;	// NOTEST - should be impossible
 
 		if (type->array.vsize) {
 			vsize = var_value(c, type->array.vsize);
 			if (!vsize)
-				return 1;	// UNTESTED
+				return 1;	// NOTEST - should be impossible
 			mpz_init(q);
 			mpz_tdiv_q(q, mpq_numref(vsize->num), mpq_denref(vsize->num));
 			type->array.size = mpz_get_si(q);
@@ -2416,7 +2416,7 @@ with a const size by whether they are prepared at parse time or not.
 		if (!parse_time)
 			return 1;
 		if (type->array.member->size <= 0)
-			return 0;	// UNTESTED
+			return 0;	// NOTEST - error caught before here
 
 		type->array.static_size = 1;
 		type->size = type->array.size * type->array.member->size;
@@ -3387,7 +3387,7 @@ anything in the heap or on the stack.  A reference can be assigned
 	case AddressOf:
 		/* left must be lval, we create reference to it */
 		if (!type || type->free != reference_free)
-			t = propagate_types(b->left, c, perr, type, 0);	// UNTESTED
+			t = propagate_types(b->left, c, perr, type, 0);	// NOTEST impossible
 		else
 			t = propagate_types(b->left, c, perr,
 					    type->reference.referent, 0);