Browse Source

Do not use '#endif/#else xxx'; it is not allowed for ANSI C

ceriel 32 years ago
parent
commit
a38be6605e
50 changed files with 261 additions and 261 deletions
  1. 7 7
      lang/cem/cemcom.ansi/LLlex.c
  2. 1 1
      lang/cem/cemcom.ansi/LLlex.h
  3. 1 1
      lang/cem/cemcom.ansi/Makefile
  4. 2 2
      lang/cem/cemcom.ansi/align.h
  5. 5 5
      lang/cem/cemcom.ansi/arith.c
  6. 2 2
      lang/cem/cemcom.ansi/arith.h
  7. 1 1
      lang/cem/cemcom.ansi/assert.h
  8. 9 9
      lang/cem/cemcom.ansi/blocks.c
  9. 14 14
      lang/cem/cemcom.ansi/ch3.c
  10. 3 3
      lang/cem/cemcom.ansi/ch3bin.c
  11. 1 1
      lang/cem/cemcom.ansi/ch3mon.c
  12. 21 21
      lang/cem/cemcom.ansi/code.c
  13. 1 1
      lang/cem/cemcom.ansi/conversion.c
  14. 1 1
      lang/cem/cemcom.ansi/dataflow.c
  15. 7 7
      lang/cem/cemcom.ansi/declar.g
  16. 1 1
      lang/cem/cemcom.ansi/def.str
  17. 2 2
      lang/cem/cemcom.ansi/domacro.c
  18. 6 6
      lang/cem/cemcom.ansi/dumpidf.c
  19. 10 10
      lang/cem/cemcom.ansi/error.c
  20. 4 4
      lang/cem/cemcom.ansi/eval.c
  21. 5 5
      lang/cem/cemcom.ansi/expr.c
  22. 2 2
      lang/cem/cemcom.ansi/field.c
  23. 3 3
      lang/cem/cemcom.ansi/idf.c
  24. 1 1
      lang/cem/cemcom.ansi/idf.str
  25. 1 1
      lang/cem/cemcom.ansi/init.c
  26. 3 3
      lang/cem/cemcom.ansi/input.c
  27. 9 9
      lang/cem/cemcom.ansi/ival.g
  28. 1 1
      lang/cem/cemcom.ansi/l_comment.c
  29. 2 2
      lang/cem/cemcom.ansi/l_ev_ord.c
  30. 3 3
      lang/cem/cemcom.ansi/l_lint.c
  31. 2 2
      lang/cem/cemcom.ansi/l_misc.c
  32. 4 4
      lang/cem/cemcom.ansi/l_outdef.c
  33. 5 5
      lang/cem/cemcom.ansi/l_states.c
  34. 1 1
      lang/cem/cemcom.ansi/macro.str
  35. 30 30
      lang/cem/cemcom.ansi/main.c
  36. 18 18
      lang/cem/cemcom.ansi/options.c
  37. 10 10
      lang/cem/cemcom.ansi/program.g
  38. 2 2
      lang/cem/cemcom.ansi/proto.c
  39. 1 1
      lang/cem/cemcom.ansi/replace.c
  40. 2 2
      lang/cem/cemcom.ansi/sizes.h
  41. 1 1
      lang/cem/cemcom.ansi/skip.c
  42. 1 1
      lang/cem/cemcom.ansi/stab.c
  43. 10 10
      lang/cem/cemcom.ansi/stack.c
  44. 28 28
      lang/cem/cemcom.ansi/statement.g
  45. 5 5
      lang/cem/cemcom.ansi/struct.c
  46. 1 1
      lang/cem/cemcom.ansi/switch.c
  47. 3 3
      lang/cem/cemcom.ansi/tokenname.c
  48. 3 3
      lang/cem/cemcom.ansi/type.c
  49. 1 1
      lang/cem/cemcom.ansi/type.str
  50. 4 4
      lang/cem/cemcom.ansi/util.c

+ 7 - 7
lang/cem/cemcom.ansi/LLlex.c

@@ -87,7 +87,7 @@ LLlex()
 	else {		/* read ahead and return the old one	*/
 #ifdef	LINT
 		lint_comment_ahead();
-#endif	LINT
+#endif	/* LINT */
 		dot = ahead;
 		/*	the following test is performed due to the dual
 			task of LLlex(): it is also called for parsing the
@@ -345,7 +345,7 @@ garbage:
 			ptok->tk_fund = INT;
 			return ptok->tk_symb = INTEGER;
 		}
-#endif NOPP
+#endif /* NOPP */
 		ptok->tk_symb = (
 			idef->id_reserved
 			    ? idef->id_reserved
@@ -462,7 +462,7 @@ skipcomment()
 #ifdef	LINT
 	lint_start_comment();
 	lint_comment_char(c);
-#endif	LINT
+#endif	/* LINT */
 	do {
 		while (c != '*') {
 			if (class(c) == STNL) {
@@ -471,14 +471,14 @@ skipcomment()
 				NoUnstack--;
 #ifdef	LINT
 				lint_end_comment();
-#endif	LINT
+#endif	/* LINT */
 				return;
 			}
 			oldc = c;
 			c = GetChar();
 #ifdef	LINT
 			lint_comment_char(c);
-#endif	LINT
+#endif	/* LINT */
 		} /* last Character seen was '*' */
 		c = GetChar();
 		if ( c != '/' && oldc == '/')
@@ -486,11 +486,11 @@ skipcomment()
 		oldc = '*';
 #ifdef	LINT
 		lint_comment_char(c);
-#endif	LINT
+#endif	/* LINT */
 	} while (c != '/');
 #ifdef	LINT
 	lint_end_comment();
-#endif	LINT
+#endif	/* LINT */
 	NoUnstack--;
 }
 #endif	/* NOPP */

+ 1 - 1
lang/cem/cemcom.ansi/LLlex.h

@@ -49,7 +49,7 @@ extern int ReplaceMacros;	/* "LLlex.c"	*/
 extern int AccDefined;		/* "LLlex.c"	*/
 extern int Unstacked;		/* "LLlex.c"	*/
 extern int UnknownIdIsZero;	/* "LLlex.c"	*/
-#endif NOPP
+#endif /* NOPP */
 extern int EoiForNewline;	/* "LLlex.c"	*/
 extern int AccFileSpecifier;	/* "LLlex.c"	*/
 extern int File_Inserted;	/* "LLlex.c"	*/

+ 1 - 1
lang/cem/cemcom.ansi/Makefile

@@ -2,4 +2,4 @@ distr:
 	echo '#ifndef	lint' > Version.c
 	echo 'char Version[] = "ACK ANSI C compiler Version XXX";' | \
 		sed "s/XXX/`RC -i`/" >> Version.c
-	echo '#endif	lint' >> Version.c
+	echo '#endif' >> Version.c

+ 2 - 2
lang/cem/cemcom.ansi/align.h

@@ -14,7 +14,7 @@ extern int
 	float_align, double_align, lngdbl_align,
 	pointer_align,
 	struct_align, union_align;
-#else NOCROSS
+#else /* NOCROSS */
 #define short_align	((int)AL_SHORT)
 #define word_align	((int)AL_WORD)
 #define int_align	((int)AL_INT)
@@ -25,6 +25,6 @@ extern int
 #define pointer_align	((int)AL_POINTER)
 #define struct_align	((int)AL_STRUCT)
 #define union_align	((int)AL_UNION)
-#endif NOCROSS
+#endif /* NOCROSS */
 
 extern arith align();

+ 5 - 5
lang/cem/cemcom.ansi/arith.c

@@ -258,7 +258,7 @@ any2arith(expp, oper)
 			want to keep enums and ints separate
 		*/
 		int2int(expp, int_type);
-#endif	LINT
+#endif	/* LINT */
 		break;
 	case FLOAT:
 /*	only when it is a parameter and the default promotion should
@@ -273,7 +273,7 @@ any2arith(expp, oper)
 	case FIELD:
 		field2arith(expp);
 		break;
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 	default:
 		expr_error(*expp, "operator %s on non-numerical operand (%s)",
 			symbol2str(oper), symbol2str(fund));
@@ -500,7 +500,7 @@ opnd2logical(expp, oper)
 	else 
 	if (fund == FIELD)
 		field2arith(expp);
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 	switch (fund = (*expp)->ex_type->tp_fund) {
 	case CHAR:
 	case SHORT:
@@ -575,7 +575,7 @@ any2opnd(expp, oper)
 	case FIELD:
 		field2arith(expp);
 		break;
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 	}
 }
 
@@ -620,7 +620,7 @@ field2arith(expp)
 		ch3bin(expp, RIGHT, intexpr(other_bits, INT));
 	}
 }
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
 /*	switch_sign_fp() negates the given floating constant expression,
  *	and frees the string representing the old value.

+ 2 - 2
lang/cem/cemcom.ansi/arith.h

@@ -19,13 +19,13 @@
 
 #include <em_arith.h>		/* obtain definition of "arith"	*/
 
-#else	SPECIAL_ARITHMETICS
+#else	/* SPECIAL_ARITHMETICS */
 
 /*	All preprocessor arithmetic should be done in longs.
 */
 #define	arith	long				/* dummy */
 
-#endif	SPECIAL_ARITHMETICS
+#endif	/* SPECIAL_ARITHMETICS */
 
 #define	arith_size	(sizeof(arith))
 #define	arith_sign	((arith) 1 << (arith_size * 8 - 1))

+ 1 - 1
lang/cem/cemcom.ansi/assert.h

@@ -21,4 +21,4 @@
 #else
 #define	ASSERT(exp)
 #define	NOTREACHED()
-#endif	DEBUG
+#endif	/* DEBUG */

+ 9 - 9
lang/cem/cemcom.ansi/blocks.c

@@ -21,7 +21,7 @@
 extern arith NewLocal();
 #define LocalPtrVar()	NewLocal(pointer_size, pointer_align, reg_pointer, REGISTER)
 #define LocalIntVar()	NewLocal(int_size, int_align, reg_any, REGISTER)
-#endif STB
+#endif /* STB */
 
 /*	Because EM does not support the loading and storing of
 	objects having other sizes than word fragment and multiple,
@@ -86,7 +86,7 @@ store_block(sz, al)
 		C_asp(ATW(sz));
 		FreeLocal(dst);
 		FreeLocal(src);
-#else STB
+#else /* STB */
 		/*	address of destination lies on the stack	*/
 
 		/*	push address of first byte of block on stack onto
@@ -98,7 +98,7 @@ store_block(sz, al)
 		C_loc(sz);		/* number of bytes to transfer	*/
 		C_cal("__stb");		/* call transfer routine	*/
 		C_asp(pointer_size + pointer_size + int_size + ATW(sz));
-#endif STB
+#endif /* STB */
 	}
 }
 
@@ -124,7 +124,7 @@ load_block(sz, al)
 		copy_loop(sz, src, dst);
 		FreeLocal(dst);
 		FreeLocal(src);
-#else STB
+#else /* STB */
 		arith esz = ATW(sz) - pointer_size;
 		C_asp(-esz);		/* allocate stack block */
 		C_lor((arith)1);	/* push & of stack block as dst	*/
@@ -134,7 +134,7 @@ load_block(sz, al)
 		C_loc(sz);			/* # bytes to copy	*/
 		C_cal("__stb");			/* library copy routine	*/
 		C_asp(int_size + pointer_size + pointer_size);
-#endif STB
+#endif /* STB */
 	}
 }
 
@@ -158,11 +158,11 @@ copy_block(sz, al)
 		copy_loop(sz, src, dst);
 		FreeLocal(dst);
 		FreeLocal(src);
-#else STB
+#else /* STB */
 		C_loc(sz);			/* # bytes to copy	*/
 		C_cal("__stb");			/* library copy routine	*/
 		C_asp(int_size + pointer_size + pointer_size);
-#endif STB
+#endif /* STB */
 	}
 }
 
@@ -194,7 +194,7 @@ copy_loop(sz, src, dst)
 	C_df_ilb(l_stop);
 	FreeLocal(tmp_sz);
 }
-#endif STB
+#endif /* STB */
 
-#endif	LINT
+#endif	/* LINT */
 

+ 14 - 14
lang/cem/cemcom.ansi/ch3.c

@@ -212,7 +212,7 @@ ch3cast(expp, oper, tp)
 		ch3cast(expp, oper, tp->tp_up);
 		return;
 	}
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 	switch (oper) {
 	default:	qual_lev = -1; break;
 	case CAST:	qual_lev = -999; break;		/* ??? hack */
@@ -259,9 +259,9 @@ ch3cast(expp, oper, tp)
 			else {
 				int2int(expp, tp);
 			}
-#else	LINT
+#else	/* LINT */
 			int2int(expp, tp);
-#endif	LINT
+#endif	/* LINT */
 		}
 		else
 		if (oldi && !i)	{
@@ -271,9 +271,9 @@ ch3cast(expp, oper, tp)
 			else {
 				int2float(expp, tp);
 			}
-#else	LINT
+#else	/* LINT */
 			int2float(expp, tp);
-#endif	LINT
+#endif	/* LINT */
 		}
 		else
 		if (!oldi && i) {
@@ -283,9 +283,9 @@ ch3cast(expp, oper, tp)
 			else {
 				float2int(expp, tp);
 			}
-#else	LINT
+#else	/* LINT */
 			float2int(expp, tp);
-#endif	LINT
+#endif	/* LINT */
 		}
 		else {
 			/* !oldi && !i */
@@ -295,9 +295,9 @@ ch3cast(expp, oper, tp)
 			else {
 				float2float(expp, tp);
 			}
-#else	LINT
+#else	/* LINT */
 			float2float(expp, tp);
-#endif	LINT
+#endif	/* LINT */
 		}
 	}
 	else
@@ -336,7 +336,7 @@ ch3cast(expp, oper, tp)
 #ifdef	LINT
 		if (oper != CAST)
 			lint_ptr_conv(oldtp->tp_up->tp_fund, tp->tp_up->tp_fund);
-#endif	LINT
+#endif	/* LINT */
 		exp->ex_type = tp;	/* free conversion */
 	}
 	else
@@ -671,9 +671,9 @@ ch3asgn(expp, oper, expr)
 #ifndef NOBITFIELD
 	exp = new_oper(fund == FIELD ? exp->ex_type->tp_up : exp->ex_type,
 		exp, oper, expr);
-#else NOBITFIELD
+#else /* NOBITFIELD */
 	exp = new_oper(exp->ex_type, exp, oper, expr);
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 	exp->OP_TYPE = tp;	/* for EVAL() */
 	exp->ex_flags |= EX_SIDEEFFECTS;
 	*expp = exp;
@@ -695,7 +695,7 @@ is_integral_type(tp)
 #ifndef NOBITFIELD
 	case FIELD:
 		return is_integral_type(tp->tp_up);
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 	default:
 		return 0;
 	}
@@ -718,7 +718,7 @@ is_arith_type(tp)
 #ifndef NOBITFIELD
 	case FIELD:
 		return is_arith_type(tp->tp_up);
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 	default:
 		return 0;
 	}

+ 3 - 3
lang/cem/cemcom.ansi/ch3bin.c

@@ -250,7 +250,7 @@ ch3bin(expp, oper, expr)
 		) {
 			hwarning("operands of : are constant and equal");
 		}
-#endif	LINT
+#endif	/* LINT */
 		*expp = new_oper((*expp)->ex_type, *expp, oper, expr);
 		break;
 
@@ -259,7 +259,7 @@ ch3bin(expp, oper, expr)
 		if (is_cp_cst(*expp)) {
 #ifdef	LINT
 			hwarning("condition in ?: expression is constant");
-#endif	LINT
+#endif	/* LINT */
 			*expp = (*expp)->VL_VALUE ?
 				expr->OP_LEFT : expr->OP_RIGHT;
 			(*expp)->ex_flags |= EX_ILVALUE;
@@ -273,7 +273,7 @@ ch3bin(expp, oper, expr)
 		if (is_cp_cst(*expp)) {
 #ifdef	LINT
 			hwarning("constant expression ignored");
-#endif	LINT
+#endif	/* LINT */
 			*expp = expr;
 		}
 		else {

+ 1 - 1
lang/cem/cemcom.ansi/ch3mon.c

@@ -75,7 +75,7 @@ ch3mon(oper, expp)
 		if ((*expp)->ex_type->tp_fund == FIELD)
 			expr_error(*expp, "& applied to field variable");
 		else
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 		if (!(*expp)->ex_lvalue)
 			expr_error(*expp, "& applied to non-lvalue");
 		else if ((*expp)->ex_flags & EX_ILVALUE)

+ 21 - 21
lang/cem/cemcom.ansi/code.c

@@ -13,7 +13,7 @@
 #else
 #include	"l_em.h"
 #include	"l_lint.h"
-#endif	LINT
+#endif	/* LINT */
 #include	"botch_free.h"
 #include	<alloc.h>
 #include	"dataflow.h"
@@ -39,7 +39,7 @@
 #include	"LLlex.h"
 #ifdef	LINT
 #include	"l_lint.h"
-#endif	LINT
+#endif	/* LINT */
 #ifdef DBSYMTAB
 #include	<stb.h>
 #endif /* DBSYMTAB */
@@ -60,7 +60,7 @@ int func_notypegiven;
 #ifdef USE_TMP
 static int	tmp_id;
 static int	pro_id;
-#endif USE_TMP
+#endif /* USE_TMP */
 
 extern char options[];
 extern char *symbol2str();
@@ -98,10 +98,10 @@ init_code(dst_file)
 #ifdef USE_TMP
 #ifdef PREPEND_SCOPES
 	C_insertpart(tmp_id = C_getid());
-#endif	PREPEND_SCOPES
-#endif	USE_TMP
+#endif	/* PREPEND_SCOPES */
+#endif	/* USE_TMP */
 }
-#endif	LINT
+#endif	/* LINT */
 
 struct string_cst *str_list = 0;
 
@@ -155,7 +155,7 @@ end_code()
 	C_ms_src((int)(LineNumber - 2), FileName);
 	C_close();
 }
-#endif	LINT
+#endif	/* LINT */
 
 #ifdef	PREPEND_SCOPES
 prepend_scopes()
@@ -168,7 +168,7 @@ prepend_scopes()
 
 #ifdef USE_TMP
 	C_beginpart(tmp_id);
-#endif USE_TMP
+#endif /* USE_TMP */
 	while (se != 0)	{
 		register struct def *df = se->se_idf->id_def;
 		
@@ -179,9 +179,9 @@ prepend_scopes()
 	}
 #ifdef USE_TMP
 	C_endpart(tmp_id);
-#endif USE_TMP
+#endif /* USE_TMP */
 }
-#endif	PREPEND_SCOPES
+#endif	/* PREPEND_SCOPES */
 
 code_scope(text, def)
 	char *text;
@@ -250,11 +250,11 @@ begin_proc(ds, idf)		/* to be called when entering a procedure */
 	}
 #ifndef PREPEND_SCOPES
 	code_scope(name, def);
-#endif	PREPEND_SCOPES
+#endif	/* PREPEND_SCOPES */
 #ifdef	DATAFLOW
 	if (options['d'])
 		DfaStartFunction(name);
-#endif	DATAFLOW
+#endif	/* DATAFLOW */
 
 
 	/* set global function info */
@@ -339,7 +339,7 @@ end_proc(fbytes)
 #ifdef	DATAFLOW
 	if (options['d'])
 		DfaEndFunction();
-#endif	DATAFLOW
+#endif	/* DATAFLOW */
 	C_df_ilb(return2_label);
 	if (return_expr_occurred && func_res_label == 0) {
 			C_asp(-func_size);
@@ -468,7 +468,7 @@ code_declaration(idf, expr, lvl, sc)
 		if (expr) {	/* code only if initialized */
 #ifndef PREPEND_SCOPES
 			code_scope(idf->id_text, def);
-#endif PREPEND_SCOPES
+#endif /* PREPEND_SCOPES */
 			def->df_alloc = ALLOC_DONE;
 			C_df_dnam(idf->id_text);
 		}
@@ -600,9 +600,9 @@ loc_init(expr, id)
 			vl.vl_value = (arith)0;
 			store_val(&vl, tp);
 		}
-#else	LINT
+#else	/* LINT */
 		id->id_def->df_set = 1;
-#endif	LINT
+#endif	/* LINT */
 		free_expression(expr);
 	}
 }
@@ -616,7 +616,7 @@ bss(idf)
 	
 #ifndef	PREPEND_SCOPES
 	code_scope(idf->id_text, df);
-#endif	PREPEND_SCOPES
+#endif	/* PREPEND_SCOPES */
 #ifdef DBSYMTAB
 	if (options['g']) {
 		stb_string(df, df->df_sc, idf->id_text);
@@ -660,14 +660,14 @@ formal_cvt(hasproto,df)
 		LoadLocal(df->df_address, double_size);
 #ifndef	LINT
 		conversion(double_type, float_type);
-#endif	LINT
+#endif	/* LINT */
 		StoreLocal(df->df_address, tp->tp_size);
 	}
 }
 
 #ifdef	LINT
 /*ARGSUSED*/
-#endif	LINT
+#endif	/* LINT */
 code_expr(expr, val, code, tlbl, flbl)
 	struct expr *expr;
 	label tlbl, flbl;
@@ -683,9 +683,9 @@ code_expr(expr, val, code, tlbl, flbl)
 	if (options['g']) db_line(expr->ex_file, (unsigned int)expr->ex_line);
 #endif
 	EVAL(expr, val, code, tlbl, flbl);
-#else	LINT
+#else	/* LINT */
 	lint_expr(expr, code ? USED : IGNORED);
-#endif	LINT
+#endif	/* LINT */
 }
 
 /*	The FOR/WHILE/DO/SWITCH stacking mechanism:

+ 1 - 1
lang/cem/cemcom.ansi/conversion.c

@@ -148,5 +148,5 @@ convtype(tp)
 	return 0;
 }
 
-#endif	LINT
+#endif	/* LINT */
 

+ 1 - 1
lang/cem/cemcom.ansi/dataflow.c

@@ -34,4 +34,4 @@ DfaCallFunction(s)
 	print("DFA: %s: %s\n", CurrentFunction, s);
 	++NumberOfCalls;
 }
-#endif	DATAFLOW
+#endif	/* DATAFLOW */

+ 7 - 7
lang/cem/cemcom.ansi/declar.g

@@ -30,7 +30,7 @@
 #include	"level.h"
 #ifdef	LINT
 #include	"l_lint.h"
-#endif	LINT
+#endif	/* LINT */
 
 extern char	options[];
 }
@@ -198,7 +198,7 @@ init_declarator(register struct decspecs *ds;)
 		declare_idf(ds, &Dc, level);
 #ifdef	LINT
 		lint_declare_idf(Dc.dc_idf, ds->ds_sc);
-#endif	LINT
+#endif	/* LINT */
 	}
 	[
 		initializer(Dc.dc_idf, ds->ds_sc)
@@ -209,7 +209,7 @@ init_declarator(register struct decspecs *ds;)
 	{
 #ifdef	LINT
 		add_auto(Dc.dc_idf);
-#endif	LINT
+#endif	/* LINT */
 		remove_declarator(&Dc);
 	}
 ;
@@ -240,7 +240,7 @@ initializer(struct idf *idf; int sc;)
 		if (AHEAD != '{' && AHEAD != STRING ) autoagg = 0;
 #ifdef	LINT
 		lint_statement();
-#endif	LINT
+#endif	/* LINT */
 		if (globalflag) {
 			struct expr ex;
 			code_declaration(idf, &ex, level, sc);
@@ -259,10 +259,10 @@ initializer(struct idf *idf; int sc;)
 			}
 #ifdef	DEBUG
 			print_expr("initializer-expression", expr);
-#endif	DEBUG
+#endif	/* DEBUG */
 #ifdef	LINT
 			change_state(idf, SET);
-#endif	LINT
+#endif	/* LINT */
 #ifdef	DBSYMTAB
 			if (options['g'] && level >= L_LOCAL && expr) {
 				db_line(expr->ex_file, (unsigned) expr->ex_line);
@@ -541,7 +541,7 @@ bit_expression(struct field **fd;)
 		free_expression(expr);
 #ifdef NOBITFIELD
 		error("bitfields are not implemented");
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 	}
 ;
 

+ 1 - 1
lang/cem/cemcom.ansi/def.str

@@ -27,7 +27,7 @@ struct def	{		/* for ordinary tags */
 	char df_set;
 	int df_firstbrace;	/* brace number of its first occurrence */
 	int df_minlevel;	/* the lowest level needed for this def */
-#endif	LINT
+#endif	/* LINT */
 	arith df_address;
 };
 

+ 2 - 2
lang/cem/cemcom.ansi/domacro.c

@@ -747,7 +747,7 @@ macroeq(s, t)
 		return (*s == '\0') && (*t == '\0');
 	}
 }
-#else NOPP
+#else /* NOPP */
 
 struct idf *
 GetIdentifier(skiponerr)
@@ -791,7 +791,7 @@ domacro()
 	EoiForNewline = 0;
 	SkipToNewLine();
 }
-#endif NOPP
+#endif /* NOPP */
 
 
 do_line(l)

+ 6 - 6
lang/cem/cemcom.ansi/dumpidf.c

@@ -116,7 +116,7 @@ dumpidf(idf, opt)
 		}
 		print(" macro");
 	}
-#endif NOPP
+#endif /* NOPP */
 	if ((opt&2) && idf->id_reserved)	{
 		if (!started++)	{
 			newline();
@@ -214,7 +214,7 @@ dumpsdefs(sdef, sdk)
 		print("L%d: ", sdef->sd_level);
 #ifndef NOBITFIELD
 		if (sdk == selector)
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 			print("selector %s at offset %lu in %s;",
 				type2str(sdef->sd_type),
 				sdef->sd_offset, type2str(sdef->sd_stype)
@@ -223,7 +223,7 @@ dumpsdefs(sdef, sdk)
 		else	print("field %s at offset %lu;",
 				type2str(sdef->sd_type), sdef->sd_offset
 			);
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 		sdef = (sdk == selector ? sdef->next : sdef->sd_sdef);
 	}
 	dumplevel--;
@@ -310,7 +310,7 @@ dumptype(tp)
 					fd->fd_shift, fd->fd_width);
 			}
 			else
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 			ops = 0;
 			break;
 		}
@@ -364,7 +364,7 @@ type2str(tp)
 					fd->fd_shift, fd->fd_width);
 			}
 			else
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 			ops = 0;
 			break;
 		}
@@ -500,4 +500,4 @@ p1_indent(lvl)
 	while (lvl--)
 		print("  ");
 }
-#endif	DEBUG
+#endif	/* DEBUG */

+ 10 - 10
lang/cem/cemcom.ansi/error.c

@@ -12,7 +12,7 @@
 #include	<em.h>
 #else
 #include	"l_em.h"
-#endif	LINT
+#endif	/* LINT */
 
 #include	"debug.h"
 #include	"lint.h"
@@ -45,7 +45,7 @@ int err_occurred = 0;
 extern char options[];
 #ifdef	LINT
 extern char loptions[];
-#endif	LINT
+#endif	/* LINT */
 
 /*	There are three general error-message functions:
 		lexerror()	lexical and pre-processor error messages
@@ -151,7 +151,7 @@ debug(va_alist)
 	}
 	va_end(ap);
 }
-#endif DEBUG
+#endif /* DEBUG */
 
 /*VARARGS*/
 warning(va_alist)
@@ -232,7 +232,7 @@ awarning(va_alist)			/* fmt, args */
 	va_end(ap);
 }
 
-#endif	LINT
+#endif	/* LINT */
 
 /*VARARGS*/
 lexerror(va_alist)			/* fmt, args */
@@ -275,9 +275,9 @@ crash(va_alist)				/* fmt, args */
 	C_close();
 #ifdef	DEBUG
 	sys_stop(S_ABORT);
-#else	DEBUG
+#else	/* DEBUG */
 	sys_stop(S_EXIT);
-#endif	DEBUG
+#endif	/* DEBUG */
 	/* NOTREACHED */
 }
 
@@ -352,9 +352,9 @@ _error(class, fn, ln, ap)
 	case WARNING:
 #ifndef	LINT
 		remark = "(warning)";
-#else	LINT
+#else	/* LINT */
 		remark = 0;
-#endif	LINT
+#endif	/* LINT */
 		break;
 
 	case ERROR:
@@ -372,7 +372,7 @@ _error(class, fn, ln, ap)
 	case DO_DEBUG:
 		remark = "(debug)";
 		break;
-#endif DEBUG
+#endif /* DEBUG */
 	default:
 		/*NOTREACHED*/;
 	}
@@ -388,7 +388,7 @@ _error(class, fn, ln, ap)
 		/* we skip this message */
 		return;
 	}
-#endif	LINT
+#endif	/* LINT */
 	
 	if (fn)
 		fprint(ERROUT, "\"%s\", line %u: ", fn, ln);

+ 4 - 4
lang/cem/cemcom.ansi/eval.c

@@ -347,7 +347,7 @@ EVAL(expr, val, code, true_label, false_label)
 				eval_field(expr, gencode);
 				break;
 			}
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 			if (is_struct_or_union(tp->tp_fund) && ! gencode) {
 				EVAL(right, LVAL, TRUE, NO_LABEL, NO_LABEL);
 				EVAL(left, LVAL, TRUE, NO_LABEL, NO_LABEL);
@@ -400,7 +400,7 @@ EVAL(expr, val, code, true_label, false_label)
 				eval_field(expr, gencode);
 				break;
 			}
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 			if (left->ex_class == Value) {
 				compl = 0; /* Value */
 			}
@@ -513,7 +513,7 @@ EVAL(expr, val, code, true_label, false_label)
 						DfaCallFunction(
 							left->VL_IDF->id_text);
 				}
-#endif	DATAFLOW
+#endif	/* DATAFLOW */
 			}
 			else {
 				EVAL(left, LVAL, TRUE, NO_LABEL, NO_LABEL);
@@ -1024,5 +1024,5 @@ operands(expr, gencode)
 	EVAL(expr->OP_LEFT, RVAL, gencode, NO_LABEL, NO_LABEL);
 	EVAL(expr->OP_RIGHT, RVAL, gencode, NO_LABEL, NO_LABEL);
 }
-#endif	LINT
+#endif	/* LINT */
 

+ 5 - 5
lang/cem/cemcom.ansi/expr.c

@@ -163,7 +163,7 @@ idf2expr(expr)
 			def->df_used = 1;
 		}
 	}
-#endif	LINT
+#endif	/* LINT */
 	expr->ex_type = def->df_type;
 	if (expr->ex_type == error_type) {
 		expr->ex_flags |= EX_ERROR;
@@ -189,7 +189,7 @@ idf2expr(expr)
 		expr->VL_LBL = def->df_address;
 		expr->VL_VALUE = (arith)0;
 	}
-#endif	LINT
+#endif	/* LINT */
 	else {
 		expr->VL_CLASS = Name;
 		expr->VL_IDF = idf;
@@ -367,7 +367,7 @@ new_oper(tp, e1, oper, e2)
 	op->op_right = e2;
 #ifdef	LINT
 	lint_new_oper(expr);
-#endif	LINT
+#endif	/* LINT */
 	return expr;
 }
 
@@ -398,7 +398,7 @@ chk_cst_expr(expp)
 	
 #ifdef	DEBUG
 	print_expr("constant_expression", expr);
-#endif	DEBUG
+#endif	/* DEBUG */
 	switch(expr->ex_type->tp_fund) {
 	case CHAR:
 	case SHORT:
@@ -447,7 +447,7 @@ is_ld_cst(expr)
 #ifdef	LINT
 	if (expr->ex_class == String)
 		return 1;
-#endif	LINT
+#endif	/* LINT */
 	return expr->ex_lvalue == 0 && expr->ex_class == Value;
 }
 

+ 2 - 2
lang/cem/cemcom.ansi/field.c

@@ -168,7 +168,7 @@ store_field(fd, uns, code, leftop, tmpvar)
 		FreeLocal(tmpvar);
 	}
 }
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
-#endif	LINT
+#endif	/* LINT */
 

+ 3 - 3
lang/cem/cemcom.ansi/idf.c

@@ -159,7 +159,7 @@ declare_idf(ds, dc, lvl)
 
 #ifdef	LINT
 	check_hiding(idf, lvl, sc);	/* of some idf by this idf */
-#endif	LINT
+#endif	/* LINT */
 	if (def && lvl == L_LOCAL && def->df_level == L_FORMAL2) {
 		error("%s redeclared", idf->id_text);
 	}
@@ -212,7 +212,7 @@ declare_idf(ds, dc, lvl)
 #ifdef	LINT
 		newdef->df_set = 0;
 		newdef->df_firstbrace = 0;
-#endif	LINT
+#endif	/* LINT */
 		/* link it into the name list in the proper place */
 		idf->id_def = newdef;
 		update_ahead(idf);
@@ -520,7 +520,7 @@ declare_formals(idf, fp)
 #ifdef	DEBUG
 	if (options['t'])
 		dumpidftab("start declare_formals", 0);
-#endif	DEBUG
+#endif	/* DEBUG */
 	while (se)	{
 		register struct def *def = se->se_idf->id_def;
 		

+ 1 - 1
lang/cem/cemcom.ansi/idf.str

@@ -11,7 +11,7 @@ struct id_u {
 #ifndef NOPP
 	struct macro *idd_macro;
 	int idd_resmac;		/* if nonzero: keyword of macroproc. 	*/
-#endif NOPP
+#endif /* NOPP */
 	int idd_reserved;	/* non-zero for reserved words		*/
 	char *idd_file;		/* file containing the occurrence	*/
 	unsigned int idd_line;	/* line number of the occurrence	*/

+ 1 - 1
lang/cem/cemcom.ansi/init.c

@@ -93,4 +93,4 @@ init_pp()
 	/* defined(??) */
 	macro_def(str2idf("defined", 0), "", 1, 1, NOUNDEF | FUNC);
 }
-#endif NOPP
+#endif /* NOPP */

+ 3 - 3
lang/cem/cemcom.ansi/input.c

@@ -49,7 +49,7 @@ getwdir(fn)
 
 int	InputLevel;
 extern int		nestlevel;
-#endif NOPP
+#endif /* NOPP */
 
 int	NoUnstack;
 
@@ -58,7 +58,7 @@ AtEoIT()
 #ifndef NOPP
 	InputLevel--;
 	unstackrepl();
-#endif NOPP
+#endif /* NOPP */
 	return 0;
 }
 
@@ -68,7 +68,7 @@ AtEoIF()
 #ifndef NOPP
 	if (nestlevel != nestlow) lexwarning("missing #endif");
 	else
-#endif NOPP
+#endif /* NOPP */
 	if (NoUnstack) lexerror("unexpected EOF");
 #ifndef NOPP
 	nestlevel = nestlow;

+ 9 - 9
lang/cem/cemcom.ansi/ival.g

@@ -12,7 +12,7 @@
 #else
 #include	"l_em.h"
 #include	"l_lint.h"
-#endif	LINT
+#endif	/* LINT */
 #include	"debug.h"
 #include	<alloc.h>
 #include	<assert.h>
@@ -60,7 +60,7 @@ initial_value(register struct type **tpp; register struct expr **expp;) :
 		{
 #ifdef	LINT
 			lint_expr(*expp, USED);
-#endif	LINT
+#endif	/* LINT */
 			if ((*expp)->ex_type->tp_fund == ARRAY)
 				array2pointer(*expp);
 			if (tpp) {
@@ -449,7 +449,7 @@ pad(tpx)
 		put_bf(tp, (arith)0);
 		return;
 	}
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
 	if (tp->tp_align >= word_align) while (sz >= word_size) {
 		C_con_cst((arith) 0);
@@ -489,7 +489,7 @@ check_ival(expp, tp)
 		expr = *expp;
 #ifdef DEBUG
 		print_expr("init-expr after cast", expr);
-#endif DEBUG
+#endif /* DEBUG */
 		if (!is_ld_cst(expr))
 			illegal_init_cst(expr);
 		else
@@ -522,7 +522,7 @@ check_ival(expp, tp)
 		expr = *expp;
 #ifdef DEBUG
 		print_expr("init-expr after cast", expr);
-#endif DEBUG
+#endif /* DEBUG */
 		if (expr->ex_class == Float) {
 			char buf[FLT_STRLEN];
 
@@ -546,7 +546,7 @@ and also to prevent runtime coercions for compile-time constants.
 			else 
 				illegal_init_cst(expr);
 		}
-#endif NOTDEF
+#endif /* NOTDEF */
 		else
 			illegal_init_cst(expr);
 		break;
@@ -557,13 +557,13 @@ and also to prevent runtime coercions for compile-time constants.
 		expr = *expp;
 #ifdef DEBUG
 		print_expr("init-expr after cast", expr);
-#endif DEBUG
+#endif /* DEBUG */
 		if (is_cp_cst(expr))
 			put_bf(tp, expr->VL_VALUE);
 		else
 			illegal_init_cst(expr);
 		break;
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
 	case ERRONEOUS:
 		if (! gen_error) gen_error = pack_level;
@@ -677,7 +677,7 @@ put_bf(tp, val)
 		offset = (arith)-1;
 	}
 }
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
 int
 zero_bytes(sd)

+ 1 - 1
lang/cem/cemcom.ansi/l_comment.c

@@ -208,4 +208,4 @@ make_format(argn, oldf)
 	*newf++ = '\0';
 }
 
-#endif	LINT
+#endif	/* LINT */

+ 2 - 2
lang/cem/cemcom.ansi/l_ev_ord.c

@@ -14,7 +14,7 @@
 #include	"assert.h"
 #ifdef ANSI
 #include	<flt_arith.h>
-#endif ANSI
+#endif /* ANSI */
 #include	"arith.h"	/* definition arith */
 #include	"label.h"	/* definition label */
 #include	"expr.h"
@@ -106,4 +106,4 @@ check_ev_order(esp1, esp2, expr)
 	}
 }
 
-#endif	LINT
+#endif	/* LINT */

+ 3 - 3
lang/cem/cemcom.ansi/l_lint.c

@@ -15,7 +15,7 @@
 #include	"assert.h"
 #ifdef ANSI
 #include	<flt_arith.h>
-#endif ANSI
+#endif /* ANSI */
 #include	"arith.h"	/* definition arith */
 #include	"label.h"	/* definition label */
 #include	"expr.h"
@@ -450,6 +450,6 @@ print_esp(msg, esp)
 	}
 	print(">\n");
 }
-#endif	DEBUG
+#endif	/* DEBUG */
 
-#endif	LINT
+#endif	/* LINT */

+ 2 - 2
lang/cem/cemcom.ansi/l_misc.c

@@ -13,7 +13,7 @@
 #include	"interface.h"
 #ifdef ANSI
 #include	<flt_arith.h>
-#endif ANSI
+#endif /* ANSI */
 #include	"arith.h"	/* definition arith */
 #include	"label.h"	/* definition label */
 #include	"expr.h"
@@ -424,4 +424,4 @@ lint_relop(left, right, oper)
 	}
 }
 
-#endif	LINT
+#endif	/* LINT */

+ 4 - 4
lang/cem/cemcom.ansi/l_outdef.c

@@ -13,7 +13,7 @@
 #include	"interface.h"
 #ifdef ANSI
 #include	<flt_arith.h>
-#endif ANSI
+#endif /* ANSI */
 #include	"arith.h"
 #include	"assert.h"
 #include	"type.h"
@@ -538,7 +538,7 @@ implicit_func_decl(idf, file, line)
 	output_def(&od);
 	/* The other fields are not used for this class. */
 }
-#endif	IMPLICIT
+#endif	/* IMPLICIT */
 
 fill_outcall(ex, used)
 	struct expr *ex;
@@ -552,7 +552,7 @@ fill_outcall(ex, used)
 		/* IFDC, first time */
 		implicit_func_decl(idf, ex->ex_file, ex->ex_line);
 	}
-#endif	IMPLICIT
+#endif	/* IMPLICIT */
 
 	OutCall.od_type = def->df_type->tp_up;
 	OutCall.od_statnr = (def->df_sc == STATIC ? stat_number : 0);
@@ -617,4 +617,4 @@ add_expr_arg(e)
 	OutCall.od_nrargs++;
 }
 
-#endif	LINT
+#endif	/* LINT */

+ 5 - 5
lang/cem/cemcom.ansi/l_states.c

@@ -15,7 +15,7 @@
 #include	"debug.h"
 #ifdef ANSI
 #include	<flt_arith.h>
-#endif ANSI
+#endif /* ANSI */
 #include	"arith.h"
 #include	"label.h"
 #include	"expr.h"
@@ -37,7 +37,7 @@
 #define	dbg_lint_stack(m)	/*print_lint_stack(m)	/* or not */
 #else
 #define	dbg_lint_stack(m)
-#endif	DEBUG
+#endif	/* DEBUG */
 
 extern char *symbol2str();
 extern char *func_name;
@@ -208,7 +208,7 @@ lint_1_global(idf, def)
 	case GLOBAL:
 #ifdef	IMPLICIT
 	case IMPLICIT:
-#endif	IMPLICIT
+#endif	/* IMPLICIT */
 		if (fund == ERRONEOUS)
 			break;
 
@@ -1310,6 +1310,6 @@ print_lint_stack(msg)
 	print("  |--------------\n\n");
 }
 
-#endif	DEBUG
+#endif	/* DEBUG */
 
-#endif	LINT
+#endif	/* LINT */

+ 1 - 1
lang/cem/cemcom.ansi/macro.str

@@ -49,4 +49,4 @@ struct macro	{
 #define	K_PRAGMA	11
 #define	K_UNDEF		12
 #define K_FILE          100     /* for dependency generator */
-#endif NOPP
+#endif /* NOPP */

+ 30 - 30
lang/cem/cemcom.ansi/main.c

@@ -45,7 +45,7 @@ extern char *dep_file;
 static File *dep_fd = STDOUT;
 
 extern char *getwdir();
-#endif NOPP
+#endif /* NOPP */
 
 struct sp_id special_ids[] =	{
 	{"__setjmp", SP_SETJMP},	/* non-local goto's are registered */
@@ -75,11 +75,11 @@ int
 	pointer_align = AL_POINTER,
 	struct_align = AL_STRUCT,
 	union_align = AL_UNION;
-#endif NOCROSS
+#endif /* NOCROSS */
 
 #ifndef NOPP
 arith ifval;	/* ifval will contain the result of the #if expression	*/
-#endif NOPP
+#endif /* NOPP */
 
 char *prog_name;
 
@@ -98,7 +98,7 @@ main(argc, argv)
 	inc_max = 10;
 
 	init_pp();	/* initialise the preprocessor macros	*/
-#endif NOPP
+#endif /* NOPP */
 
 	/*	Note: source file "-" indicates that the source is supplied
 		as standard input.  This is only allowed if INP_READ_IN_ONE is
@@ -106,9 +106,9 @@ main(argc, argv)
 	*/
 #ifdef INP_READ_IN_ONE
 	while (argc > 1 && *argv[1] == '-')
-#else INP_READ_IN_ONE
+#else /* INP_READ_IN_ONE */
 	while (argc > 1 && *argv[1] == '-' && argv[1][1] != '\0')
-#endif INP_READ_IN_ONE
+#endif /* INP_READ_IN_ONE */
 	{
 		char *par = &argv[1][1];
 
@@ -117,13 +117,13 @@ main(argc, argv)
 	}
 #ifdef	LINT
 	lint_init();
-#endif	LINT
+#endif	/* LINT */
 	compile(argc - 1, &argv[1]);
 
 #ifdef	DEBUG
 	if (options['h']) hash_stat();
 	if (options['m']) Info();
-#endif	DEBUG
+#endif	/* DEBUG */
 
 #ifndef NOPP
 	if (do_dependencies) {
@@ -199,13 +199,13 @@ char *s, *source;
     else    fprint(dep_fd, "%s\n", s);
 }
 
-#endif NOPP
+#endif /* NOPP */
 
 char *source = 0;
 
 #ifdef GEN_NM_LIST
 char *nmlist = 0;
-#endif GEN_NM_LIST
+#endif /* GEN_NM_LIST */
 
 compile(argc, argv)
 	char *argv[];
@@ -213,12 +213,12 @@ compile(argc, argv)
 	char *result;
 #ifndef	LINT
 	register char *destination = 0;
-#endif	LINT
+#endif	/* LINT */
 
 #ifdef DEBUG
 #ifndef NOPP
 	int pp_only = options['E'] || options['P'] || options['C'];
-#endif NOPP
+#endif /* NOPP */
 #endif
 
 	switch (argc) {
@@ -227,10 +227,10 @@ compile(argc, argv)
 #ifdef DEBUG
 #ifndef NOPP
 		if (!pp_only)
-#endif NOPP
+#endif /* NOPP */
 #endif
 			fatal("%s: destination file not specified", prog_name);
-#endif	LINT
+#endif	/* LINT */
 		break;
 
 #ifndef	LINT
@@ -242,19 +242,19 @@ compile(argc, argv)
 		nmlist = argv[2];
 		destination = argv[1];
 		break;
-#endif GEN_NM_LIST
-#endif	LINT
+#endif /* GEN_NM_LIST */
+#endif	/* LINT */
 
 	default:
 #ifndef	LINT
 #ifdef GEN_NM_LIST
 		fatal("use: %s source destination [namelist]", prog_name);
-#else GEN_NM_LIST
+#else /* GEN_NM_LIST */
 		fatal("use: %s source destination", prog_name);
-#endif GEN_NM_LIST
-#else	LINT
+#endif /* GEN_NM_LIST */
+#else	/* LINT */
 		fatal("use: %s source", prog_name);
-#endif	LINT
+#endif	/* LINT */
 		break;
 	}
 
@@ -277,33 +277,33 @@ compile(argc, argv)
 		  && strcmp(destination, "-") != 0
 			? destination
 			: 0);
-#endif	LINT
+#endif	/* LINT */
 
 #ifndef NOPP
 	WorkingDir = getwdir(source);
 	PushLex();			/* initialize lex machine */
-#else NOPP
+#else /* NOPP */
 	GetToken(&ahead);
-#endif NOPP
+#endif /* NOPP */
 
 #ifdef DEBUG
 #ifndef NOPP
 	if (pp_only) /* run the preprocessor as if it is stand-alone	*/
 		preprocess();
 	else
-#endif NOPP
-#endif DEBUG
+#endif /* NOPP */
+#endif /* DEBUG */
 	{
 		/* compile the source text			*/
 		C_program();
 
 #ifdef PREPEND_SCOPES
 		prepend_scopes();
-#endif PREPEND_SCOPES
+#endif /* PREPEND_SCOPES */
 
 #ifndef	LINT
 		end_code();
-#endif	LINT
+#endif	/* LINT */
 
 #ifdef	DEBUG
 		if (options['u'])	{
@@ -311,7 +311,7 @@ compile(argc, argv)
 		}
 		if (options['f'] || options['t'])
 			dumpidftab("end of main", options['f'] ? 7 : 0);
-#endif	DEBUG
+#endif	/* DEBUG */
 	}
 #ifndef	NOPP
 	PopLex();
@@ -465,7 +465,7 @@ preprocess()
 		}
 	}
 }
-#endif NOPP
+#endif /* NOPP */
 
 Info()
 {
@@ -497,7 +497,7 @@ Info()
 
 
 }
-#endif DEBUG
+#endif /* DEBUG */
 
 No_Mem()				/* called by alloc package */
 {

+ 18 - 18
lang/cem/cemcom.ansi/options.c

@@ -29,12 +29,12 @@ extern int inc_total;
 int do_dependencies = 0;
 char *dep_file = 0;
 
-#endif NOPP
+#endif /* NOPP */
 
 char options[128];			/* one for every char	*/
 #ifdef	LINT
 char loptions[128];			/* one for every char	*/
-#endif	LINT
+#endif	/* LINT */
 
 extern int idfsize;
 extern int density;
@@ -55,9 +55,9 @@ next_option:			/* to allow combined one-char options */
 	default:
 #ifndef	LINT
 		fatal("illegal option: %c", opt);
-#else	LINT
+#else	/* LINT */
 		warning("illegal option: %c", opt);
-#endif	LINT
+#endif	/* LINT */
 		break;
 
 	case '-':
@@ -76,8 +76,8 @@ next_option:			/* to allow combined one-char options */
         case 'm':
              	options[opt] = 1;
             	break;
-#endif NOPP
-#endif LINT
+#endif /* NOPP */
+#endif /* LINT */
 #ifdef DBSYMTAB
 	case 'g':	/* symbol table for debugger */
 		options['g'] = 1;
@@ -88,7 +88,7 @@ next_option:			/* to allow combined one-char options */
 #ifndef	LINT
 #ifdef	DATAFLOW
 	case 'd':
-#endif	DATAFLOW
+#endif	/* DATAFLOW */
 	case 'p':			/* procentry/procexit */
 	case 'L' :			/* no fil/lin */
 	case 'n':			/* use no registers */
@@ -101,7 +101,7 @@ next_option:			/* to allow combined one-char options */
 		options['w'] = 1;	/* implies -a */
 		options['s'] = 1;
 		goto next_option;
-#endif	LINT
+#endif	/* LINT */
 
 #ifdef	LINT
 	case 'h':	/* heuristic tests */
@@ -113,7 +113,7 @@ next_option:			/* to allow combined one-char options */
 	case 'L':	/* lintlibrary */
 		loptions[opt] = 1;
 		goto next_option;
-#endif	LINT
+#endif	/* LINT */
 
 #ifndef NOPP
 	case 'D' :	{	/* -Dname :	predefine name		*/
@@ -170,7 +170,7 @@ next_option:			/* to allow combined one-char options */
 		}
 		else inctable[inc_pos] = 0;
 		break;
-#endif NOPP
+#endif /* NOPP */
 
 	case 'M':	/* maximum identifier length */
 		idfsize = txt2int(&text);
@@ -186,7 +186,7 @@ next_option:			/* to allow combined one-char options */
 		stat_number = txt2int(&text);
 		break;
 	}
-#endif	LINT
+#endif	/* LINT */
 
 	case 'T' : {
 #ifdef USE_TMP
@@ -195,9 +195,9 @@ next_option:			/* to allow combined one-char options */
 			C_tmpdir = text;
 		else
 			C_tmpdir = ".";
-#else USE_TMP
+#else /* USE_TMP */
 		warning("-T option ignored");
-#endif USE_TMP
+#endif /* USE_TMP */
 		break;
 	}
 		
@@ -205,7 +205,7 @@ next_option:			/* to allow combined one-char options */
 	case 'U' :		/* -Uname :	undefine predefined	*/
 		if (*text) do_undef(str2idf(text, 0));
 		break;
-#endif NOPP
+#endif /* NOPP */
 
 #ifndef	LINT
 #ifndef NOCROSS
@@ -273,9 +273,9 @@ next_option:			/* to allow combined one-char options */
 			case 'r':	/* adjust bitfields right	*/
 #ifndef NOBITFIELD
 				options['r'] = 1;
-#else NOBITFIELD
+#else /* NOBITFIELD */
 				warning("bitfields are not implemented");
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 				break;
 			case 'S':	/* initial struct alignment	*/
 				if (sz != (arith)0)
@@ -294,8 +294,8 @@ next_option:			/* to allow combined one-char options */
 	case 'S':
 		density = txt2int(&text);
 		break;
-#endif NOCROSS
-#endif	LINT
+#endif /* NOCROSS */
+#endif	/* LINT */
 	}
 }
 

+ 10 - 10
lang/cem/cemcom.ansi/program.g

@@ -61,11 +61,11 @@
 #include	"def.h"
 #ifdef	LINT
 #include	"l_lint.h"
-#endif	LINT
+#endif	/* LINT */
 
 #ifndef NOPP
 extern arith ifval;
-#endif NOPP
+#endif /* NOPP */
 
 extern error();
 }
@@ -84,7 +84,7 @@ control_if_expression
 					"sizeof not allowed in preprocessor");
 			ifval = expr->VL_VALUE;
 			free_expression(expr);
-#endif NOPP
+#endif /* NOPP */
 		}
 ;
 
@@ -150,7 +150,7 @@ external_definition
 			declare_idf(&Ds, &Dc, level);
 #ifdef	LINT
 			lint_ext_def(Dc.dc_idf, Ds.ds_sc);
-#endif	LINT
+#endif	/* LINT */
 		}
 		[
 			function(&Ds, &Dc)
@@ -185,7 +185,7 @@ non_function(register struct decspecs *ds; register struct declarator *dc;)
 	{
 #ifdef	LINT
 		lint_non_function_decl(ds, dc);
-#endif	LINT
+#endif	/* LINT */
 	}
 	[
 		','
@@ -204,7 +204,7 @@ function(struct decspecs *ds; struct declarator *dc;)
 	{
 #ifdef	LINT
 		lint_start_function();
-#endif	LINT
+#endif	/* LINT */
 		idf_initialized(idf);
 		stack_level();		/* L_FORMAL1 declarations */
 		declare_params(dc);
@@ -218,21 +218,21 @@ function(struct decspecs *ds; struct declarator *dc;)
 		declare_formals(idf, &fbytes);
 #ifdef	LINT
 		lint_formals();
-#endif	LINT
+#endif	/* LINT */
 	}
 	compound_statement
 	{
 		end_proc(fbytes);
 #ifdef	LINT
 		lint_implicit_return();
-#endif	LINT
+#endif	/* LINT */
 		unstack_level();	/* L_FORMAL2 declarations */
 #ifdef	LINT
 		lint_end_formals();
-#endif	LINT
+#endif	/* LINT */
 		unstack_level();	/* L_FORMAL1 declarations */
 #ifdef	LINT
 		lint_end_function();
-#endif	LINT
+#endif	/* LINT */
 	}
 ;

+ 2 - 2
lang/cem/cemcom.ansi/proto.c

@@ -204,7 +204,7 @@ declare_protos(dc)
 #ifdef	DEBUG
 	if (options['t'])
 		dumpidftab("start declare_protos", 0);
-#endif	DEBUG
+#endif	/* DEBUG */
 	du = dc->dc_decl_unary;
 	while (du) {
 		if (du->du_fund == FUNCTION) {
@@ -261,7 +261,7 @@ declare_protos(dc)
 #ifdef	DEBUG
 	if (options['t'])
 		dumpidftab("end declare_protos", 0);
-#endif	DEBUG
+#endif	/* DEBUG */
 }
 
 

+ 1 - 1
lang/cem/cemcom.ansi/replace.c

@@ -790,4 +790,4 @@ stash(repl, ch, stashraw)
 		*args->a_rawptr++ = ch;
 	}
 }
-#endif NOPP
+#endif /* NOPP */

+ 2 - 2
lang/cem/cemcom.ansi/sizes.h

@@ -15,7 +15,7 @@ extern arith
 	pointer_size;
 
 extern arith max_int, max_unsigned;	/* cstoper.c	*/
-#else NOCROSS
+#else /* NOCROSS */
 #define short_size	((arith)SZ_SHORT)
 #define word_size	((arith)SZ_WORD)
 #define dword_size	((arith)2*SZ_WORD)
@@ -33,5 +33,5 @@ extern arith max_int, max_unsigned;	/* cstoper.c	*/
 #define max_int		((arith)2147483647)
 #define max_unsigned	((arith)4294967295)
 #endif
-#endif NOCROSS
+#endif /* NOCROSS */
 

+ 1 - 1
lang/cem/cemcom.ansi/skip.c

@@ -57,7 +57,7 @@ skipspaces(ch, skipnl)
 			return ch;
 	}
 }
-#endif NOPP
+#endif /* NOPP */
 
 SkipToNewLine()
 {

+ 1 - 1
lang/cem/cemcom.ansi/stab.c

@@ -304,4 +304,4 @@ stb_string(df, kind, str)
 	}
 }
 
-#endif DBSYMTAB
+#endif /* DBSYMTAB */

+ 10 - 10
lang/cem/cemcom.ansi/stack.c

@@ -11,7 +11,7 @@
 #include	<em.h>
 #else
 #include	"l_em.h"
-#endif	LINT
+#endif	/* LINT */
 #include	"debug.h"
 #include	"botch_free.h"
 #include	<alloc.h>
@@ -56,7 +56,7 @@ stack_level()	{
 	local_level = stl;
 #ifdef	LINT
 	lint_start_local();
-#endif	LINT
+#endif	/* LINT */
 }
 
 stack_idf(idf, stl)
@@ -110,11 +110,11 @@ unstack_level()
 #ifdef	DEBUG
 	if (options['t'])
 		dumpidftab("before unstackidfs", 0);
-#endif	DEBUG
+#endif	/* DEBUG */
 
 #ifdef	LINT
 	lint_end_local(local_level);
-#endif	LINT
+#endif	/* LINT */
 
 	/*	The implementation below is more careful than strictly
 		necessary. Optimists may optimize it afterwards.
@@ -172,7 +172,7 @@ unstack_level()
 #ifdef	DEBUG
 	if (options['t'])
 		dumpidftab("after unstackidfs", 0);
-#endif	DEBUG
+#endif	/* DEBUG */
 }
 
 unstack_world()
@@ -188,11 +188,11 @@ unstack_world()
 
 #ifdef	LINT
 	lint_end_global(local_level);
-#endif	LINT
+#endif	/* LINT */
 
 #ifdef GEN_NM_LIST
 	open_name_list();
-#endif GEN_NM_LIST
+#endif /* GEN_NM_LIST */
 
 	while (se)	{
 		register struct idf *idf = se->se_idf;
@@ -218,7 +218,7 @@ unstack_world()
 				def->df_initialized ? "init" : "no init",
 				def->df_used ? "used" : "not used");
 		}
-#endif DEBUG
+#endif /* DEBUG */
 		if (def->df_sc == STATIC
 		    && def->df_type->tp_fund == FUNCTION
 		    && !def->df_initialized) {
@@ -236,7 +236,7 @@ unstack_world()
 #ifdef GEN_NM_LIST
 			if (def->df_sc != STATIC)
 				namelist(idf->id_text);	/* may be common */
-#endif GEN_NM_LIST
+#endif /* GEN_NM_LIST */
 			def->df_alloc = ALLOC_DONE;	/* see Note below */
 		}
 		se = se->next;
@@ -278,4 +278,4 @@ namelist(nm)
 		sys_write(nfp, "\n", 1);
 	}
 }
-#endif GEN_NM_LIST
+#endif /* GEN_NM_LIST */

+ 28 - 28
lang/cem/cemcom.ansi/statement.g

@@ -12,7 +12,7 @@
 #else
 #include	"l_em.h"
 #include	"l_lint.h"
-#endif	LINT
+#endif	/* LINT */
 
 #include	"debug.h"
 #include	"botch_free.h"
@@ -46,7 +46,7 @@ statement
 	{
 #ifdef	LINT
 		lint_statement();
-#endif	LINT
+#endif	/* LINT */
 	}
 :
 %if (AHEAD != ':')
@@ -75,7 +75,7 @@ statement
 		code_break();
 #ifdef	LINT
 		lint_break_stmt();
-#endif	LINT
+#endif	/* LINT */
 	}
 	';'
 |
@@ -84,7 +84,7 @@ statement
 		code_continue();
 #ifdef	LINT
 		lint_continue_stmt();
-#endif	LINT
+#endif	/* LINT */
 	}
 	';'
 |
@@ -105,7 +105,7 @@ expression_statement
 		{
 #ifdef	DEBUG
 			print_expr("expression_statement", expr);
-#endif	DEBUG
+#endif	/* DEBUG */
 			code_expr(expr, RVAL, FALSE, NO_LABEL, NO_LABEL);
 			free_expression(expr);
 		}
@@ -126,7 +126,7 @@ label
 		*/
 #ifdef	LINT
 		lint_label();
-#endif	LINT
+#endif	/* LINT */
 		define_label(idf);
 		C_df_ilb((label)idf->id_label->df_address);
 	}
@@ -156,14 +156,14 @@ if_statement
 				/* else fall through */
 #ifdef	LINT
 				start_if_part(1);
-#endif	LINT
+#endif	/* LINT */
 			}
 			else	{
 				code_expr(expr, RVAL, TRUE, l_true, l_false);
 				C_df_ilb(l_true);
 #ifdef	LINT
 				start_if_part(0);
-#endif	LINT
+#endif	/* LINT */
 			}
 			free_expression(expr);
 		}
@@ -174,7 +174,7 @@ if_statement
 			{
 #ifdef	LINT
 				start_else_part();
-#endif	LINT
+#endif	/* LINT */
 				C_bra(l_end);
 				C_df_ilb(l_false);
 			}
@@ -182,14 +182,14 @@ if_statement
 			{	C_df_ilb(l_end);
 #ifdef	LINT
 				end_if_else_stmt();
-#endif	LINT
+#endif	/* LINT */
 			}
 	|
 		empty
 			{	C_df_ilb(l_false);
 #ifdef	LINT
 				end_if_stmt();
-#endif	LINT
+#endif	/* LINT */
 			}
 	]
 ;
@@ -223,7 +223,7 @@ while_statement
 			}
 #ifdef	LINT
 			start_while_stmt(expr);
-#endif	LINT
+#endif	/* LINT */
 		}
 	')'
 	statement
@@ -235,7 +235,7 @@ while_statement
 #ifdef	LINT
 			end_loop_body();
 			end_loop_stmt();
-#endif	LINT
+#endif	/* LINT */
 		}
 ;
 
@@ -252,7 +252,7 @@ do_statement
 			stack_stmt(l_break, l_continue);
 #ifdef	LINT
 			start_do_stmt();
-#endif	LINT
+#endif	/* LINT */
 		}
 	statement
 	WHILE
@@ -260,7 +260,7 @@ do_statement
 		{
 #ifdef	LINT
 			end_loop_body();
-#endif	LINT
+#endif	/* LINT */
 			C_df_ilb(l_continue);
 		}
 	expression(&expr)
@@ -272,13 +272,13 @@ do_statement
 				}
 #ifdef	LINT
 				end_do_stmt(1, expr->VL_VALUE != (arith)0);
-#endif	LINT
+#endif	/* LINT */
 			}
 			else	{
 				code_expr(expr, RVAL, TRUE, l_body, l_break);
 #ifdef	LINT
 				end_do_stmt(0, 0);
-#endif	LINT
+#endif	/* LINT */
 			}
 			C_df_ilb(l_break);
 		}
@@ -332,13 +332,13 @@ for_statement
 		{
 #ifdef	LINT
 			start_for_stmt(e_test);
-#endif	LINT
+#endif	/* LINT */
 		}
 	statement
 		{
 #ifdef	LINT
 			end_loop_body();
-#endif	LINT
+#endif	/* LINT */
 			C_df_ilb(l_continue);
 			if (e_incr)
 				code_expr(e_incr, RVAL, FALSE,
@@ -351,7 +351,7 @@ for_statement
 			free_expression(e_incr);
 #ifdef	LINT
 			end_loop_stmt();
-#endif	LINT
+#endif	/* LINT */
 		}
 ;
 
@@ -368,14 +368,14 @@ switch_statement
 			code_startswitch(&expr);
 #ifdef	LINT
 			start_switch_part(is_cp_cst(expr));
-#endif	LINT
+#endif	/* LINT */
 		}
 	')'
 	statement
 		{
 #ifdef	LINT
 			end_switch_stmt();
-#endif	LINT
+#endif	/* LINT */
 			code_endswitch();
 			free_expression(expr);
 		}
@@ -392,7 +392,7 @@ case_statement
 		{
 #ifdef	LINT
 			lint_case_stmt(0);
-#endif	LINT
+#endif	/* LINT */
 			code_case(expr);
 			free_expression(expr);
 		}
@@ -407,7 +407,7 @@ default_statement
 		{
 #ifdef	LINT
 			lint_case_stmt(1);
-#endif	LINT
+#endif	/* LINT */
 			code_default();
 		}
 	':'
@@ -425,13 +425,13 @@ return_statement
 		{
 #ifdef	LINT
 			lint_ret_conv(expr);
-#endif	LINT
+#endif	/* LINT */
 
 			do_return_expr(expr);
 			free_expression(expr);
 #ifdef	LINT
 			lint_return_stmt(VALRETURNED);
-#endif	LINT
+#endif	/* LINT */
 		}
 	|
 		empty
@@ -439,7 +439,7 @@ return_statement
 			do_return();
 #ifdef	LINT
 			lint_return_stmt(NOVALRETURNED);
-#endif	LINT
+#endif	/* LINT */
 		}
 	]
 	';'
@@ -458,7 +458,7 @@ jump
 			C_bra((label)idf->id_label->df_address);
 #ifdef	LINT
 			lint_jump_stmt(idf);
-#endif	LINT
+#endif	/* LINT */
 		}
 ;
 

+ 5 - 5
lang/cem/cemcom.ansi/struct.c

@@ -70,7 +70,7 @@ add_sel(stp, tp, idf, sdefpp, szp, fd)	/* this is horrible */
 	arith offset;
 #ifndef NOBITFIELD
 	extern arith add_field();
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
 	struct tag *tg = stp->tp_idf->id_tag;	/* or union */
 	struct sdef *sdef = idf->id_sdef;
@@ -90,10 +90,10 @@ add_sel(stp, tp, idf, sdefpp, szp, fd)	/* this is horrible */
 			*/
 			offset = add_field(szp, fd, &tp, idf, stp);
 		}
-#else NOBITFIELD
+#else /* NOBITFIELD */
 		offset = align(*szp, tp->tp_align);
 		field_busy = 0;
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 	}
 	else	{	/* (stp->tp_fund == UNION)		*/
 		if (fd) offset = add_field(szp, fd, &tp, idf, stp);
@@ -119,7 +119,7 @@ add_sel(stp, tp, idf, sdefpp, szp, fd)	/* this is horrible */
 #ifndef NOBITFIELD
 	if (tp->tp_fund == FIELD)
 		tp->tp_field->fd_sdef = newsdef;
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
 	stack_idf(idf, stack_level_of(lvl));
 
@@ -432,7 +432,7 @@ add_field(szp, fd, fdtpp, idf, stp)
 
 	return field_offset;
 }
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
 /* some utilities */
 int

+ 1 - 1
lang/cem/cemcom.ansi/switch.c

@@ -10,7 +10,7 @@
 #include	<em.h>
 #else
 #include	"l_em.h"
-#endif	LINT
+#endif	/* LINT */
 #include	"debug.h"
 #include	"botch_free.h"
 #include	<alloc.h>

+ 3 - 3
lang/cem/cemcom.ansi/tokenname.c

@@ -33,7 +33,7 @@ struct tokenname tkspec[] =	{	/* the names of the special tokens */
 	{FLOATING, "floating"},
 	{0, ""}
 };
-#endif	____
+#endif	/* ____ */
 
 #ifdef	____
 struct tokenname tkcomp[] =	{	/* names of the composite tokens */
@@ -61,7 +61,7 @@ struct tokenname tkcomp[] =	{	/* names of the composite tokens */
 	{ELLIPSIS, "..."},
 	{0, ""}
 };
-#endif	____
+#endif	/* ____ */
 
 struct tokenname tkidf[] =	{	/* names of the identifier tokens */
 	{AUTO, "auto"},
@@ -129,7 +129,7 @@ struct tokenname tkfunny[] =	{	/* internal keywords */
 	{FLOAT2FLOAT, "float2float"},
 	{0, ""}
 };
-#endif	____
+#endif	/* ____ */
 
 reserve(resv)
 	register struct tokenname resv[];

+ 3 - 3
lang/cem/cemcom.ansi/type.c

@@ -22,7 +22,7 @@
 extern struct type *function_of(), *array_of();
 #ifndef NOBITFIELD
 extern struct type *field_of();
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
 /*	To be created dynamically in main() from defaults or from command
 	line parameters.
@@ -84,7 +84,7 @@ construct_type(fund, tp, qual, count, pl)
 	case FIELD:
 		dtp = field_of(tp, qual);
 		break;
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
 	case FUNCTION:
 		if (tp->tp_fund == FUNCTION)	{
@@ -228,7 +228,7 @@ field_of(tp, qual)
 	dtp->tp_typequal = qual;
 	return dtp;
 }
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
 arith
 size_of_type(tp, nm)

+ 1 - 1
lang/cem/cemcom.ansi/type.str

@@ -64,7 +64,7 @@ extern struct type
 
 #ifndef NOBITFIELD
 extern struct type *field_of();
-#endif NOBITFIELD
+#endif /* NOBITFIELD */
 
 extern struct type
 	*schar_type, *uchar_type,

+ 4 - 4
lang/cem/cemcom.ansi/util.c

@@ -16,7 +16,7 @@
 #include	<em.h>
 #else
 #include	"l_em.h"
-#endif	LINT
+#endif	/* LINT */
 #include	<em_arith.h>
 #include	<em_reg.h>
 #include	<alloc.h>
@@ -35,7 +35,7 @@
 static struct localvar	*FreeTmps;
 #ifdef USE_TMP
 static int	loc_id;
-#endif USE_TMP
+#endif /* USE_TMP */
 
 #ifdef PEEPHOLE
 #undef REGCOUNT
@@ -48,7 +48,7 @@ LocalInit()
 {
 #ifdef USE_TMP
 	C_insertpart(loc_id = C_getid());
-#endif USE_TMP
+#endif /* USE_TMP */
 }
 
 arith
@@ -244,4 +244,4 @@ AddrLocal(off)
 	if (p) p->t_regtype = -1;
 	C_lal(off);
 }
-#endif	LINT
+#endif	/* LINT */