various small layout corrections

lang/cem/cemcom/declarator.c

@@ -99,6 +99,11 @@ array_subscript(expr)
 		expr->VL_VALUE = (arith)1;
 	}
 	else
+	if (size == 0) {
+		warning("empty array declaration");
+		expr->VL_VALUE = (arith)-1;
+	}
+	else
 	if (size & ~max_unsigned) {	/* absolute ridiculous */
 		expr_error(expr, "overflow in array size");
 		expr->VL_VALUE = (arith)1;

lang/cem/cemcom/error.c

@@ -28,7 +28,7 @@
 #define	CRASH		5
 #define	FATAL		6
 
-int err_occurred;
+int err_occurred = 0;
 
 extern char *symbol2str();
 extern char options[];

lang/cem/cemcom/main.c

@@ -89,10 +89,11 @@ main(argc, argv)
 		not defined!
 	*/
 #ifdef READ_IN_ONE
-	while (argc > 1 && *argv[1] == '-') {
+	while (argc > 1 && *argv[1] == '-')
 #else READ_IN_ONE
-	while (argc > 1 && *argv[1] == '-' && argv[1][1] != '\0')	{
+	while (argc > 1 && *argv[1] == '-' && argv[1][1] != '\0')
 #endif READ_IN_ONE
+	{
 		char *par = &argv[1][1];
 
 		if (*par == '-')

lang/cem/cemcom/stack.c

@@ -194,7 +194,7 @@ unstack_world()
 		have already been encoded while the uninitialised ones
 		are not and have to be encoded at this moment.
 	*/
-	struct stack_entry *se = local_level->sl_entry;
+	register struct stack_entry *se = local_level->sl_entry;
 
 	open_name_list();
 
@@ -223,11 +223,12 @@ unstack_world()
 				def->df_used ? "used" : "not used");
 		}
 #endif DEBUG
-		/* find final storage class */
+		/*
-		if (def->df_sc == GLOBAL || def->df_sc == IMPLICIT)	{
+		/_* find final storage class *_/
-			/* even now we still don't know */
+		if (def->df_sc == GLOBAL || def->df_sc == IMPLICIT)
+			/_* even now we still don't know *_/
 			def->df_sc = EXTERN;
-		}
+		*/
 		
 		if (	def->df_sc == STATIC
 			&& def->df_type->tp_fund == FUNCTION
@@ -242,28 +243,27 @@ unstack_world()
 			def->df_sc = EXTERN;
 		}
 		
-		if (	def->df_alloc == ALLOC_SEEN &&
+		if (
+			def->df_alloc == ALLOC_SEEN &&
 			!def->df_initialized
 		)	{
 			/* space must be allocated */
 			bss(idf);
 			namelist(idf->id_text);		/* may be common */
-			def->df_alloc = ALLOC_DONE;
+			def->df_alloc = ALLOC_DONE;	/* *)	*/
-			/*	df_alloc must be set to ALLOC_DONE because
-				the idf entry may occur several times in
-				the list.
-				The reason is that the same name may be used
-				for different purposes on the same level, e.g
-					struct s {int s;} s;
-				is a legal definition and contains 3 defining
-				occurrences of s.  Each definition has been
-				entered into the idfstack.  Although only
-				one of them concerns a variable, we meet the
-				s 3 times when scanning the idfstack.
-			*/
 		}
 		se = se->next;
 	}
+	/*   *)	df_alloc must be set to ALLOC_DONE because the idf entry
+		may occur several times in the list.
+		The reason for this is that the same name may be used
+		for different purposes on the same level, e.g
+			struct s {int s;} s;
+		is a legal definition and contains 3 defining occurrences of s.
+		Each definition has been entered into the idfstack.
+		Although only one of them concerns a variable, we meet the
+		s 3 times when scanning the idfstack.
+	*/
 }
 
 /*	A list of potential common names is kept, to be fed to