Просмотр исходного кода

Added support for debugger, de-linted somewhat

ceriel 34 лет назад
Родитель
Сommit
568c87f5ba

+ 1 - 0
lang/cem/cemcom.ansi/.distr

@@ -89,6 +89,7 @@ scan.c
 sizes.h
 skip.c
 specials.h
+stab.c
 stack.c
 stack.str
 statement.g

+ 4 - 0
lang/cem/cemcom.ansi/BigPars

@@ -136,3 +136,7 @@
 #undef REGCOUNT		1	/* count occurrences for register messages */
 
 
+!File: dbsymtab.h
+#define DBSYMTAB	1	/* ability to produce symbol table for debugger */
+
+

+ 4 - 0
lang/cem/cemcom.ansi/LintPars

@@ -131,3 +131,7 @@
 #undef REGCOUNT		1	/* count occurrences for register messages */
 
 
+!File: dbsymtab.h
+#undef DBSYMTAB	1	/* ability to produce symbol table for debugger */
+
+

+ 50 - 2
lang/cem/cemcom.ansi/Makefile

@@ -83,7 +83,7 @@ CSRC =	main.c idf.c declarator.c decspecs.c struct.c \
 	input.c domacro.c replace.c init.c options.c \
 	skip.c stack.c type.c ch3mon.c label.c eval.c \
 	switch.c conversion.c util.c proto.c \
-	pragma.c blocks.c dataflow.c Version.c \
+	pragma.c blocks.c dataflow.c Version.c stab.c\
 	l_lint.c l_states.c l_misc.c l_ev_ord.c l_outdef.c l_comment.c l_dummy.c
 COBJ =	main.o idf.o declarator.o decspecs.o struct.o \
 	expr.o ch3.o ch3bin.o cstoper.o fltcstoper.o arith.o \
@@ -92,7 +92,7 @@ COBJ =	main.o idf.o declarator.o decspecs.o struct.o \
 	input.o domacro.o replace.o init.o options.o \
 	skip.o stack.o type.o ch3mon.o label.o eval.o \
 	switch.o conversion.o util.o proto.o \
-	pragma.o blocks.o dataflow.o Version.o \
+	pragma.o blocks.o dataflow.o Version.o stab.o \
 	l_lint.o l_states.o l_misc.o l_ev_ord.o l_outdef.o l_comment.o l_dummy.o
 
 # Objects of other generated C files
@@ -281,6 +281,8 @@ main.o: LLlex.h
 main.o: Lpars.h
 main.o: align.h
 main.o: arith.h
+main.o: assert.h
+main.o: dbsymtab.h
 main.o: debug.h
 main.o: declar.h
 main.o: file_info.h
@@ -307,6 +309,7 @@ idf.o: align.h
 idf.o: arith.h
 idf.o: assert.h
 idf.o: botch_free.h
+idf.o: dbsymtab.h
 idf.o: debug.h
 idf.o: declar.h
 idf.o: decspecs.h
@@ -332,6 +335,7 @@ idf.o: type.h
 declarator.o: Lpars.h
 declarator.o: arith.h
 declarator.o: botch_free.h
+declarator.o: dbsymtab.h
 declarator.o: debug.h
 declarator.o: declar.h
 declarator.o: def.h
@@ -351,6 +355,7 @@ declarator.o: type.h
 decspecs.o: Lpars.h
 decspecs.o: arith.h
 decspecs.o: assert.h
+decspecs.o: dbsymtab.h
 decspecs.o: debug.h
 decspecs.o: decspecs.h
 decspecs.o: def.h
@@ -365,6 +370,7 @@ struct.o: align.h
 struct.o: arith.h
 struct.o: assert.h
 struct.o: botch_free.h
+struct.o: dbsymtab.h
 struct.o: debug.h
 struct.o: def.h
 struct.o: field.h
@@ -387,6 +393,7 @@ expr.o: Lpars.h
 expr.o: arith.h
 expr.o: assert.h
 expr.o: botch_free.h
+expr.o: dbsymtab.h
 expr.o: debug.h
 expr.o: declar.h
 expr.o: decspecs.h
@@ -408,6 +415,7 @@ expr.o: use_tmp.h
 ch3.o: Lpars.h
 ch3.o: arith.h
 ch3.o: assert.h
+ch3.o: dbsymtab.h
 ch3.o: debug.h
 ch3.o: def.h
 ch3.o: expr.h
@@ -424,6 +432,7 @@ ch3.o: type.h
 ch3bin.o: Lpars.h
 ch3bin.o: arith.h
 ch3bin.o: botch_free.h
+ch3bin.o: dbsymtab.h
 ch3bin.o: debug.h
 ch3bin.o: expr.h
 ch3bin.o: idf.h
@@ -440,6 +449,7 @@ ch3bin.o: type.h
 cstoper.o: Lpars.h
 cstoper.o: arith.h
 cstoper.o: assert.h
+cstoper.o: dbsymtab.h
 cstoper.o: debug.h
 cstoper.o: expr.h
 cstoper.o: idf.h
@@ -454,6 +464,7 @@ cstoper.o: type.h
 fltcstoper.o: Lpars.h
 fltcstoper.o: arith.h
 fltcstoper.o: assert.h
+fltcstoper.o: dbsymtab.h
 fltcstoper.o: debug.h
 fltcstoper.o: expr.h
 fltcstoper.o: idf.h
@@ -468,6 +479,7 @@ fltcstoper.o: type.h
 arith.o: Lpars.h
 arith.o: arith.h
 arith.o: assert.h
+arith.o: dbsymtab.h
 arith.o: debug.h
 arith.o: expr.h
 arith.o: field.h
@@ -490,6 +502,7 @@ code.o: atw.h
 code.o: botch_free.h
 code.o: code.h
 code.o: dataflow.h
+code.o: dbsymtab.h
 code.o: debug.h
 code.o: declar.h
 code.o: decspecs.h
@@ -514,6 +527,7 @@ code.o: type.h
 code.o: use_tmp.h
 dumpidf.o: Lpars.h
 dumpidf.o: arith.h
+dumpidf.o: dbsymtab.h
 dumpidf.o: debug.h
 dumpidf.o: declar.h
 dumpidf.o: def.h
@@ -547,6 +561,7 @@ field.o: align.h
 field.o: arith.h
 field.o: assert.h
 field.o: code.h
+field.o: dbsymtab.h
 field.o: debug.h
 field.o: expr.h
 field.o: field.h
@@ -647,6 +662,7 @@ options.o: arith.h
 options.o: botch_free.h
 options.o: class.h
 options.o: dataflow.h
+options.o: dbsymtab.h
 options.o: idf.h
 options.o: idfsize.h
 options.o: lint.h
@@ -668,6 +684,7 @@ skip.o: spec_arith.h
 stack.o: Lpars.h
 stack.o: arith.h
 stack.o: botch_free.h
+stack.o: dbsymtab.h
 stack.o: debug.h
 stack.o: def.h
 stack.o: idf.h
@@ -684,6 +701,7 @@ type.o: Lpars.h
 type.o: align.h
 type.o: arith.h
 type.o: botch_free.h
+type.o: dbsymtab.h
 type.o: debug.h
 type.o: decspecs.h
 type.o: def.h
@@ -700,6 +718,7 @@ type.o: type.h
 ch3mon.o: Lpars.h
 ch3mon.o: arith.h
 ch3mon.o: botch_free.h
+ch3mon.o: dbsymtab.h
 ch3mon.o: debug.h
 ch3mon.o: def.h
 ch3mon.o: expr.h
@@ -715,6 +734,7 @@ ch3mon.o: trgt_sizes.h
 ch3mon.o: type.h
 label.o: Lpars.h
 label.o: arith.h
+label.o: dbsymtab.h
 label.o: def.h
 label.o: idf.h
 label.o: label.h
@@ -731,6 +751,7 @@ eval.o: assert.h
 eval.o: atw.h
 eval.o: code.h
 eval.o: dataflow.h
+eval.o: dbsymtab.h
 eval.o: debug.h
 eval.o: def.h
 eval.o: expr.h
@@ -753,6 +774,7 @@ switch.o: arith.h
 switch.o: assert.h
 switch.o: botch_free.h
 switch.o: code.h
+switch.o: dbsymtab.h
 switch.o: debug.h
 switch.o: density.h
 switch.o: expr.h
@@ -768,6 +790,7 @@ switch.o: trgt_sizes.h
 switch.o: type.h
 conversion.o: Lpars.h
 conversion.o: arith.h
+conversion.o: dbsymtab.h
 conversion.o: lint.h
 conversion.o: nobitfield.h
 conversion.o: nocross.h
@@ -792,6 +815,7 @@ proto.o: align.h
 proto.o: arith.h
 proto.o: assert.h
 proto.o: botch_free.h
+proto.o: dbsymtab.h
 proto.o: debug.h
 proto.o: declar.h
 proto.o: decspecs.h
@@ -827,11 +851,26 @@ blocks.o: spec_arith.h
 blocks.o: stack.h
 blocks.o: trgt_sizes.h
 dataflow.o: dataflow.h
+stab.o: LLlex.h
+stab.o: Lpars.h
+stab.o: dbsymtab.h
+stab.o: def.h
+stab.o: field.h
+stab.o: file_info.h
+stab.o: idf.h
+stab.o: level.h
+stab.o: lint.h
+stab.o: nobitfield.h
+stab.o: nopp.h
+stab.o: stack.h
+stab.o: struct.h
+stab.o: type.h
 l_lint.o: LLlex.h
 l_lint.o: Lpars.h
 l_lint.o: arith.h
 l_lint.o: assert.h
 l_lint.o: code.h
+l_lint.o: dbsymtab.h
 l_lint.o: debug.h
 l_lint.o: def.h
 l_lint.o: expr.h
@@ -854,6 +893,7 @@ l_states.o: Lpars.h
 l_states.o: arith.h
 l_states.o: assert.h
 l_states.o: code.h
+l_states.o: dbsymtab.h
 l_states.o: debug.h
 l_states.o: def.h
 l_states.o: expr.h
@@ -877,6 +917,7 @@ l_misc.o: LLlex.h
 l_misc.o: Lpars.h
 l_misc.o: arith.h
 l_misc.o: code.h
+l_misc.o: dbsymtab.h
 l_misc.o: debug.h
 l_misc.o: def.h
 l_misc.o: expr.h
@@ -897,6 +938,7 @@ l_ev_ord.o: Lpars.h
 l_ev_ord.o: arith.h
 l_ev_ord.o: assert.h
 l_ev_ord.o: code.h
+l_ev_ord.o: dbsymtab.h
 l_ev_ord.o: debug.h
 l_ev_ord.o: def.h
 l_ev_ord.o: expr.h
@@ -918,6 +960,7 @@ l_outdef.o: Lpars.h
 l_outdef.o: arith.h
 l_outdef.o: assert.h
 l_outdef.o: code.h
+l_outdef.o: dbsymtab.h
 l_outdef.o: debug.h
 l_outdef.o: def.h
 l_outdef.o: expr.h
@@ -953,6 +996,7 @@ declar.o: LLlex.h
 declar.o: Lpars.h
 declar.o: arith.h
 declar.o: code.h
+declar.o: dbsymtab.h
 declar.o: debug.h
 declar.o: declar.h
 declar.o: decspecs.h
@@ -980,6 +1024,7 @@ statement.o: Lpars.h
 statement.o: arith.h
 statement.o: botch_free.h
 statement.o: code.h
+statement.o: dbsymtab.h
 statement.o: debug.h
 statement.o: def.h
 statement.o: expr.h
@@ -998,6 +1043,7 @@ expression.o: LLlex.h
 expression.o: Lpars.h
 expression.o: arith.h
 expression.o: code.h
+expression.o: dbsymtab.h
 expression.o: debug.h
 expression.o: expr.h
 expression.o: file_info.h
@@ -1015,6 +1061,7 @@ program.o: LLlex.h
 program.o: Lpars.h
 program.o: arith.h
 program.o: code.h
+program.o: dbsymtab.h
 program.o: debug.h
 program.o: declar.h
 program.o: decspecs.h
@@ -1034,6 +1081,7 @@ ival.o: LLlex.h
 ival.o: Lpars.h
 ival.o: arith.h
 ival.o: assert.h
+ival.o: dbsymtab.h
 ival.o: debug.h
 ival.o: def.h
 ival.o: estack.h

+ 4 - 0
lang/cem/cemcom.ansi/SmallPars

@@ -136,3 +136,7 @@
 #undef REGCOUNT		1	/* count occurrences for register messages */
 
 
+!File: dbsymtab.h
+#undef DBSYMTAB	1	/* ability to produce symbol table for debugger */
+
+

+ 2 - 0
lang/cem/cemcom.ansi/cemcom.1

@@ -28,6 +28,8 @@ the same as \fB\-D\fIname\fR=1.
 insert \fIdirname\fR in the list of include directories.
 .IP \fB\-M\fP\fIn\fP
 set maximum identifier length to \fIn\fP.
+.IP \fB\-g\fP
+produce a DBX-style symbol table.
 .IP \fB\-n\fR
 do not generate EM register messages.
 The user-declared variables are not stored into registers on the target

+ 101 - 19
lang/cem/cemcom.ansi/code.c

@@ -7,7 +7,8 @@
 
 #include	"lint.h"
 #include	"debug.h"
-#include	<em.h>
+#include	"dbsymtab.h"
+#include	<em_code.h>
 #include	"botch_free.h"
 #include	<alloc.h>
 #include	"dataflow.h"
@@ -34,6 +35,9 @@
 #ifdef	LINT
 #include	"l_lint.h"
 #endif	LINT
+#ifdef DBSYMTAB
+#include	<stb.h>
+#endif /* DBSYMTAB */
 
 label lab_count = 1;
 label datlab_count = 1;
@@ -53,6 +57,7 @@ static int	pro_id;
 
 extern char options[];
 extern char *symbol2str();
+extern char *source;
 
 #ifndef	LINT
 init_code(dst_file)
@@ -66,6 +71,23 @@ init_code(dst_file)
 		fatal("cannot write to %s\n", dst_file);
 	C_magic();
 	C_ms_emx(word_size, pointer_size);
+#ifdef DBSYMTAB
+	if (options['g']) {
+		C_ms_std(source, N_SO, 0);
+		stb_typedef(int_type, "int");
+		stb_typedef(schar_type, "char");
+		stb_typedef(long_type, "long");
+		stb_typedef(short_type, "short");
+		stb_typedef(uchar_type, "unsigned char");
+		stb_typedef(ushort_type, "unsigned short");
+		stb_typedef(ulong_type, "unsigned long");
+		stb_typedef(uint_type, "unsigned int");
+		stb_typedef(float_type, "float");
+		stb_typedef(double_type, "double");
+		stb_typedef(lngdbl_type, "long double");
+		stb_typedef(void_type, "void");
+	}
+#endif /* DBSYMTAB */
 #ifdef USE_TMP
 #ifdef PREPEND_SCOPES
 	C_insertpart(tmp_id = C_getid());
@@ -139,11 +161,10 @@ prepend_scopes()
 	C_beginpart(tmp_id);
 #endif USE_TMP
 	while (se != 0)	{
-		register struct idf *id = se->se_idf;
-		register struct def *df = id->id_def;
+		register struct def *df = se->se_idf->id_def;
 		
 		if (df && (df->df_initialized || df->df_used || df->df_alloc)) {
-			code_scope(id->id_text, df);
+			code_scope(se->se_idf->id_text, df);
 		}
 		se = se->next;
 	}
@@ -272,6 +293,14 @@ begin_proc(ds, idf)		/* to be called when entering a procedure */
 		C_fil_dlb(file_name_label, (arith)0);
 		C_lin((arith)LineNumber);
 	}
+#ifdef DBSYMTAB
+	if (options['g']) {
+		stb_string(def, FUNCTION, name);
+		if (! strcmp(name, "main")) {
+			C_ms_stb_cst(name, N_MAIN, 0, (arith) 0);
+		}
+	}
+#endif
 }
 
 end_proc(fbytes)
@@ -403,8 +432,14 @@ code_declaration(idf, expr, lvl, sc)
 	int fund = def->df_type->tp_fund;
 	int def_sc = def->df_sc;
 	
-	if (def_sc == TYPEDEF)	/* no code for typedefs		*/
+	if (def_sc == TYPEDEF)	{	/* no code for typedefs		*/
+#ifdef DBSYMTAB
+		if (options['g']) {
+			stb_typedef(def->df_type, idf->id_text);
+		}
+#endif /* DBSYMTAB */
 		return;
+	}
 	if (lvl == L_GLOBAL)	{	/* global variable	*/
 		/* is this an allocating declaration? */
 		if (	(sc == 0 || sc == STATIC)
@@ -421,6 +456,11 @@ code_declaration(idf, expr, lvl, sc)
 			code_scope(idf->id_text, def);
 #endif PREPEND_SCOPES
 			def->df_alloc = ALLOC_DONE;
+#ifdef DBSYMTAB
+			if (options['g']) {
+				stb_string(def, sc, idf->id_text);
+			}
+#endif /* DBSYMTAB */
 			C_df_dnam(idf->id_text);
 		}
 	}
@@ -436,6 +476,11 @@ code_declaration(idf, expr, lvl, sc)
 			/*	they are handled on the spot and get an
 				integer label in EM.
 			*/
+#ifdef DBSYMTAB
+			if (options['g']) {
+				stb_string(def, sc, idf->id_text);
+			}
+#endif /* DBSYMTAB */
 			C_df_dlb((label)def->df_address);
 			if (expr) { /* there is an initialisation */
 			}
@@ -457,6 +502,11 @@ code_declaration(idf, expr, lvl, sc)
 			break;
 		case AUTO:
 		case REGISTER:
+#ifdef DBSYMTAB
+			if (options['g']) {
+				stb_string(def, sc, idf->id_text);
+			}
+#endif /* DBSYMTAB */
 			if (expr)
 				loc_init(expr, idf);
 			else if ((fund == ARRAY)
@@ -474,32 +524,33 @@ code_declaration(idf, expr, lvl, sc)
 
 loc_init(expr, id)
 	struct expr *expr;
-	register struct idf *id;
+	struct idf *id;
 {
 	/*	loc_init() generates code for the assignment of
 		expression expr to the local variable described by id.
 		It frees the expression afterwards.
 	*/
 	register struct expr *e = expr;
-	register struct type *tp = id->id_def->df_type;
+	register struct def *df = id->id_def;
+	register struct type *tp = df->df_type;
 	static arith tmpoffset = 0;
 	static arith unknownsize = 0;
 	
-	ASSERT(id->id_def->df_sc != STATIC);
+	ASSERT(df->df_sc != STATIC);
 	switch (tp->tp_fund)	{
 	case ARRAY:
-		if (id->id_def->df_type->tp_size == (arith) -1)
+		if (tp->tp_size == (arith) -1)
 			unknownsize = 1;
 	case STRUCT:
 	case UNION:
-		if (expr != (struct expr *) 0) {
+		if (e != (struct expr *) 0) {
 			break;		/* switch */
 		} else if (!tmpoffset) {/* first time for this variable */
-			tmpoffset = id->id_def->df_address;
-			id->id_def->df_address = data_label();
-			C_df_dlb((label)id->id_def->df_address);
+			tmpoffset = df->df_address;
+			df->df_address = data_label();
+			C_df_dlb((label)df->df_address);
 		} else {
-			C_lae_dlb((label)id->id_def->df_address, (arith)0);
+			C_lae_dlb((label)df->df_address, (arith)0);
 			load_block(tp->tp_size, 1);
 			if (unknownsize) {
 				/* tmpoffset += tp->tp_size; */
@@ -508,13 +559,19 @@ loc_init(expr, id)
 				tmpoffset = NewLocal(tp->tp_size
 						    , tp->tp_align
 						    , regtype(tp)
-						    , id->id_def->df_sc);
+						    , df->df_sc);
 			}
 			C_lal(tmpoffset);
 			store_block(tp->tp_size, 1);
-			id->id_def->df_address = tmpoffset;
+			df->df_address = tmpoffset;
 			tmpoffset = 0;
 		}
+#ifdef DBSYMTAB
+		if (options['g']) {
+			stb_string(df, AUTO, id->id_text);
+
+		}
+#endif /* DBSYMTAB */
 		return;
 	}
 	if (ISCOMMA(e))	{	/* embraced: int i = {12};	*/
@@ -536,7 +593,7 @@ loc_init(expr, id)
 			store_val(&vl, tp);
 		}
 #else	LINT
-		id->id_def->df_set = 1;
+		df->df_set = 1;
 #endif	LINT
 		free_expression(expr);
 	}
@@ -547,12 +604,18 @@ bss(idf)
 {
 	/*	bss() allocates bss space for the global idf.
 	*/
+	register struct def *df = idf->id_def;
 	
 #ifndef	PREPEND_SCOPES
-	code_scope(idf->id_text, idf->id_def);
+	code_scope(idf->id_text, df);
 #endif	PREPEND_SCOPES
+#ifdef DBSYMTAB
+	if (options['g']) {
+		stb_string(df, df->df_sc, idf->id_text);
+	}
+#endif /* DBSYMTAB */
 	C_df_dnam(idf->id_text);
-	C_bss_cst(ATW(idf->id_def->df_type->tp_size), (arith)0, 1);
+	C_bss_cst(ATW(df->df_type->tp_size), (arith)0, 1);
 }
 
 formal_cvt(hasproto,df)
@@ -596,6 +659,9 @@ code_expr(expr, val, code, tlbl, flbl)
 #ifndef	LINT
 	if (! options['L'])	/* profiling	*/
 		C_lin((arith)(expr->ex_line));
+#ifdef DBSYMTAB
+	if (options['g']) db_line(expr->ex_file, (int)expr->ex_line);
+#endif
 
 	EVAL(expr, val, code, tlbl, flbl);
 #else	LINT
@@ -690,3 +756,19 @@ prc_exit()
 		C_asp(pointer_size);
 	}
 }
+
+#ifdef DBSYMTAB
+db_line(file, line)
+	char	*file;
+	int	line;
+{
+	static int	oldline;
+	static char	*oldfile;
+
+	if (file != oldfile || line != oldline) {
+		C_ms_std((char *) 0, N_SLINE, line);
+		oldline = line;
+		oldfile = file;
+	}
+}
+#endif

+ 15 - 0
lang/cem/cemcom.ansi/declar.g

@@ -7,6 +7,7 @@
 
 {
 #include	"lint.h"
+#include	"dbsymtab.h"
 #include	<alloc.h>
 #include	"nobitfield.h"
 #include	"debug.h"
@@ -31,6 +32,8 @@
 #include	"l_lint.h"
 #include	"l_state.h"
 #endif	LINT
+
+extern char	options[];
 }
 
 /* 3.5 */
@@ -363,6 +366,13 @@ enum_specifier(register struct type **tpp;)
 		[
 			{declare_struct(ENUM, idf, tpp);}
 			enumerator_pack(*tpp, &l)
+			{
+#ifdef DBSYMTAB
+				if (options['g']) {
+					stb_tag(idf->id_enum, idf->id_text);
+				}
+#endif /*DBSYMTAB */
+			}
 		|
 			{apply_struct(ENUM, idf, tpp);}
 			/* empty */
@@ -430,6 +440,11 @@ struct_or_union_specifier(register struct type **tpp;)
 			struct_declaration_pack(*tpp)
 			{
 				(idf->id_struct->tg_busy)--;
+#ifdef DBSYMTAB
+				if (options['g']) {
+					stb_tag(idf->id_struct, idf->id_text);
+				}
+#endif /*DBSYMTAB */
 			}
 		|
 			{

+ 6 - 1
lang/cem/cemcom.ansi/idf.c

@@ -695,13 +695,18 @@ declare_formals(idf, fp)
 		 */
 		formal_cvt(hasproto, def);
 
-		se = se->next;
 		def->df_level = L_FORMAL2;	/* CJ */
 		RegisterAccount(def->df_address, def->df_type->tp_size,
 				regtype(def->df_type),
 				def->df_sc);
 		if (nparams++ >= STDC_NPARAMS)
 			strict("number of formal parameters exceeds ANSI limit");
+#ifdef DBSYMTAB
+		if (options['g']) {
+			stb_string(def, FORMAL, se->se_idf->id_text);
+		}
+#endif /* DBSYMTAB */
+		se = se->next;
 	}
 	*fp = f_offset;
 }

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

@@ -176,7 +176,7 @@ char *source;
 add_dependency(s)
 char *s;
 {
-    register struct idf *p = str2idf(s, 0);
+    register struct idf *p = str2idf(s);
     
     if (! p->id_resmac) {
 	p->id_resmac = K_FILE;
@@ -260,7 +260,7 @@ compile(argc, argv)
 		FileName = source = argv[0];
 	else {
 		source = 0;
-		FileName = Salloc("standard input", 16);
+		FileName = Salloc("standard input", (unsigned) 16);
 	}
 
 	if (!InsertFile(source, (char **) 0, &result)) /* read the source file	*/

+ 1 - 0
lang/cem/cemcom.ansi/options

@@ -5,6 +5,7 @@ C	while running preprocessor, copy comment
 d	perform a small dataflow analysis
 D	see identifier following as a macro
 E	run preprocessor only
+g	produce symbol table for debugger
 i	suppress /usr/include include files in dependency list
 I	expand include table with directory name following
 m	generate file.o: file1.h format dependency lines

+ 10 - 2
lang/cem/cemcom.ansi/options.c

@@ -19,6 +19,7 @@
 #include	"align.h"
 #include	"use_tmp.h"
 #include	"dataflow.h"
+#include	"dbsymtab.h"
 
 #ifndef NOPP
 extern char **inctable;
@@ -76,6 +77,12 @@ next_option:			/* to allow combined one-char options */
             	break;
 #endif NOPP
 #endif LINT
+#ifdef DBSYMTAB
+	case 'g':	/* symbol table for debugger */
+		options['g'] = 1;
+		options['n'] = 1;
+		break;
+#endif /* DBSYMTAB */
 
 #ifndef	LINT
 #ifdef	DATAFLOW
@@ -150,7 +157,7 @@ deleted, is now a debug-flag
 			break;
 		}
 
-		macro_def(str2idf(name), mactext, -1, maclen, NOFLAG);
+		macro_def(str2idf(name), mactext, -1, (int)maclen, NOFLAG);
 #else NOPP
 		warning("-D option ignored");
 #endif NOPP
@@ -176,7 +183,8 @@ deleted, is now a debug-flag
 			
 			if (++inc_total > inc_max) {
 				inctable = (char **)
-				   Realloc(inctable,(inc_max+=10)*sizeof(char *));
+				   Realloc((char *)inctable,
+					   (unsigned)((inc_max+=10)*sizeof(char *)));
 			}
 				
 			for (i = inc_pos++; i < inc_total ; i++) {

+ 2 - 0
lang/cem/cemcom.ansi/pragma.c

@@ -22,7 +22,9 @@ extern struct idf *GetIdentifier();
 
 do_pragma()
 {
+#if	NR_PRAGMAS
 	register struct pkey *pkp = &pragmas[0];
+#endif
 	register struct idf *id = GetIdentifier(1);
 
 	if (id != (struct idf *)0) {

+ 3 - 4
lang/cem/cemcom.ansi/replace.c

@@ -262,7 +262,6 @@ struct repl *repl;
 {
 	register struct repl *nrepl = ReplaceList;
 	register struct args *ap = nrepl->r_args;
-	struct args *args = repl->r_args;
 	register char *p;
 
 	/* stash identifier name */
@@ -743,7 +742,7 @@ add2repl(repl, ch)
 
 	ASSERT(index < repl->r_size);
 	if (index + 2 >= repl->r_size) {
-		repl->r_text = Realloc(repl->r_text, repl->r_size <<= 1);
+		repl->r_text = Realloc(repl->r_text, (unsigned) (repl->r_size <<= 1));
 		repl->r_ptr = repl->r_text + index;
 	}
 	*repl->r_ptr++ = ch;
@@ -768,7 +767,7 @@ stash(repl, ch, stashraw)
 		ASSERT(index < args->a_expsize);
 		if (index + 1 >= args->a_expsize) {
 			args->a_expbuf = Realloc(args->a_expbuf,
-						    args->a_expsize <<= 1);
+						    (unsigned) (args->a_expsize <<= 1));
 			args->a_expptr = args->a_expbuf + index;
 		}
 		*args->a_expptr++ = ch;
@@ -779,7 +778,7 @@ stash(repl, ch, stashraw)
 		ASSERT(index < args->a_rawsize);
 		if (index + 1 >= args->a_rawsize) {
 			args->a_rawbuf = Realloc(args->a_rawbuf,
-						    args->a_rawsize <<= 1);
+						    (unsigned)(args->a_rawsize <<= 1));
 			args->a_rawptr = args->a_rawbuf + index;
 		}
 		*args->a_rawptr++ = ch;

+ 299 - 0
lang/cem/cemcom.ansi/stab.c

@@ -0,0 +1,299 @@
+/*
+ * (c) copyright 1990 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ * See the copyright notice in the ACK home directory, in the file "Copyright".
+ *
+ * Author: Ceriel J.H. Jacobs
+ */
+
+/* D E B U G G E R   S Y M B O L   T A B L E */
+
+/* $Header$ */
+
+#include	"dbsymtab.h"
+
+#ifdef	DBSYMTAB
+
+#include	<alloc.h>
+#include	<em_arith.h>
+#include	<em_label.h>
+#include	<em_code.h>
+#include	<flt_arith.h>
+#include	<stb.h>
+
+#include	"LLlex.h"
+#include	"stack.h"
+#include	"def.h"
+#include	"type.h"
+#include	"struct.h"
+#include	"field.h"
+#include	"idf.h"
+#include	"Lpars.h"
+#include	"level.h"
+
+extern long	full_mask[];
+extern char	*sprint();
+
+#define INCR_SIZE	64
+
+static struct db_str {
+	unsigned	sz;
+	char		*base;
+	char		*currpos;
+} db_str;
+
+static
+create_db_str()
+{
+	if (! db_str.base) {
+		db_str.base = Malloc(INCR_SIZE);
+		db_str.sz = INCR_SIZE;
+	}
+	db_str.currpos = db_str.base;
+}
+
+static
+addc_db_str(c)
+	int	c;
+{
+	int df = db_str.currpos - db_str.base;
+	if (df >= db_str.sz-1) {
+		db_str.sz += INCR_SIZE;
+		db_str.base = Realloc(db_str.base, db_str.sz);
+		db_str.currpos = db_str.base + df;
+	}
+	*db_str.currpos++ = c;
+	*db_str.currpos = '\0';
+}
+
+static
+adds_db_str(s)
+	char	*s;
+{
+	while (*s) addc_db_str(*s++);
+}
+
+static
+stb_type(tp, assign_num)
+	register struct type	*tp;
+{
+	char		buf[128];
+	static int	stb_count;
+	long		l;
+
+	if (tp->tp_dbindex > 0) {
+		adds_db_str(sprint(buf, "%d", tp->tp_dbindex));
+		return;
+	}
+	if (tp->tp_dbindex == 0 && assign_num) {
+		tp->tp_dbindex = ++stb_count;
+	}
+	if (tp->tp_dbindex > 0) {
+		adds_db_str(sprint(buf, "%d=", tp->tp_dbindex));
+	}
+	if (tp == void_type) {
+		adds_db_str(sprint(buf, "%d", tp->tp_dbindex));
+		return;
+	}
+	switch(tp->tp_fund) {
+	/* simple types ... */
+	case INT:
+	case LONG:
+	case CHAR:
+	case SHORT:
+		 l = full_mask[(int)tp->tp_size];
+		if (tp->tp_unsigned) {
+			adds_db_str(sprint(buf,
+				"r%d;0;%ld",
+				tp->tp_dbindex,
+				l));
+		}
+		else {
+			l &= ~ (1L << ((int)tp->tp_size * 8 - 1));
+			adds_db_str(sprint(buf,
+				"r%d;%ld;%ld",
+				tp->tp_dbindex,
+				-l-1,
+				l));
+		}
+		break;
+	case FLOAT:
+	case DOUBLE:
+	case LNGDBL:
+		adds_db_str(sprint(buf,
+		       "r%d;%ld;0",
+		       tp->tp_dbindex,
+		       (long)tp->tp_size));
+		break;
+
+	/* constructed types ... */
+	case POINTER:
+		addc_db_str('*');
+		stb_type(tp->tp_up, 0);
+		break;
+	case ARRAY:
+		if (tp->tp_size > 0) {
+			adds_db_str("ar");
+			stb_type(int_type, 0);
+			adds_db_str(sprint(buf, ";0;%ld;", tp->tp_size / tp->tp_up->tp_size));
+			stb_type(tp->tp_up, 0);
+		}
+		break;
+	case ENUM:
+		if (tp->tp_size < 0) {
+			adds_db_str(sprint(buf,
+					   "xe%s:",
+					   tp->tp_idf->id_text));
+			break;
+		}
+		addc_db_str('e');
+		{
+			register struct stack_entry *se = local_level->sl_entry;
+
+			while (se) {
+				register struct def	*edef = se->se_idf->id_def;
+				while (edef) {
+					if (edef->df_type == tp &&
+					    edef->df_sc == ENUM) {
+						adds_db_str(sprint(buf,
+							"%s:%ld,",
+							se->se_idf->id_text,
+							edef->df_address));
+					}
+					edef = edef->next;
+				}
+				se = se->next;
+			}
+		}
+		addc_db_str(';');
+		break;
+	case STRUCT:
+	case UNION:
+		if (tp->tp_size < 0) {
+			adds_db_str(sprint(buf,
+					   "x%c%s:",
+					   tp->tp_fund == STRUCT ? 's' : 'u',
+					   tp->tp_idf->id_text));
+			break;
+		}
+		adds_db_str(sprint(buf,
+				   "%c%ld",
+				   tp->tp_fund == STRUCT ? 's' : 'u',
+				   tp->tp_size));
+		{
+			register struct sdef	*sdef = tp->tp_sdef;
+
+			while (sdef) {
+				adds_db_str(sdef->sd_idf->id_text);
+				addc_db_str(':');
+				if (sdef->sd_type->tp_fund == FIELD) {
+					stb_type(sdef->sd_type->tp_up, 0);
+					adds_db_str(sprint(buf,
+						",%ld,%ld;",
+						sdef->sd_offset*8+sdef->sd_type->tp_field->fd_shift,
+						sdef->sd_type->tp_field->fd_width));
+				}
+				else {
+					stb_type(sdef->sd_type, 0);
+					adds_db_str(sprint(buf,
+						",%ld,%ld;",
+						sdef->sd_offset*8,
+						sdef->sd_type->tp_size*8));
+				}
+				sdef = sdef->sd_sdef;
+			}
+		}
+		addc_db_str(';');
+		break;
+	case FUNCTION:
+		addc_db_str('f');
+		stb_type(tp->tp_up, 0);
+	}
+}
+
+stb_tag(tg, str)
+	register struct tag	*tg;
+	char			*str;
+{
+	create_db_str();
+	adds_db_str(str);
+	adds_db_str(":T");
+	stb_type(tg->tg_type, 1);
+	addc_db_str(';');
+	C_ms_stb_cst(db_str.base,
+		     N_LSYM,
+		     tg->tg_type == void_type || tg->tg_type->tp_size >= 32767
+		       ? 0
+		       : (int)tg->tg_type->tp_size,
+		     (arith) 0);
+}
+
+stb_typedef(tp, str)
+	register struct type	*tp;
+	char			*str;
+{
+	create_db_str();
+	adds_db_str(str);
+	adds_db_str(":t");
+	stb_type(tp, 1);
+	addc_db_str(';');
+	C_ms_stb_cst(db_str.base,
+		     N_LSYM,
+		     tp == void_type || tp->tp_size >= 32767
+		       ? 0
+		       : (int)tp->tp_size,
+		     (arith) 0);
+}
+
+stb_string(df, kind, str)
+	register struct def	*df;
+	char			*str;
+{
+	register struct type	*tp = df->df_type;
+
+	create_db_str();
+	adds_db_str(str);
+	addc_db_str(':');
+	switch(kind) {
+	case FUNCTION:
+		addc_db_str(df->df_sc == STATIC ? 'f' : 'F');
+		stb_type(tp->tp_up, 0);
+		addc_db_str(';');
+		C_ms_stb_pnam(db_str.base, N_FUN, 1 /* proclevel */, str);
+		break;
+	default:
+		if (df->df_sc == FORMAL ||
+		    (df->df_sc == REGISTER && df->df_address >= 0)) {
+						/* value parameter */
+			addc_db_str('p');
+			stb_type(tp, 0);
+			addc_db_str(';');
+			C_ms_stb_cst(db_str.base, N_PSYM, 0, df->df_address);
+		}
+		else if (df->df_sc != AUTO && df->df_sc != REGISTER) {
+						/* global */
+			if (df->df_sc == STATIC) {
+				if (df->df_level == L_LOCAL) {
+					addc_db_str('V');
+				}
+				else {
+					addc_db_str('S');
+				}
+			}
+			else {
+				addc_db_str('G');
+			}
+			stb_type(tp, 0);
+			addc_db_str(';');
+			C_ms_stb_dnam(db_str.base, N_LCSYM, 0, str, (arith) 0);
+		}
+		else {	/* local variable */
+			stb_type(tp, 1);	/* assign type num to avoid
+						   difficult to parse string */
+			addc_db_str(';');
+			C_ms_stb_cst(db_str.base, N_LSYM, 0, df->df_address);
+		}
+		break;
+	}
+}
+
+#endif DBSYMTAB

+ 33 - 2
lang/cem/cemcom.ansi/statement.g

@@ -6,11 +6,12 @@
 /*	STATEMENT SYNTAX PARSER	*/
 
 {
-#include	<em.h>
+#include	<em_code.h>
 
 #include	"lint.h"
 #include	"debug.h"
 #include	"botch_free.h"
+#include	"dbsymtab.h"
 
 #include	<flt_arith.h>
 #include	"arith.h"
@@ -26,8 +27,12 @@
 #include	"l_lint.h"
 #include	"l_state.h"
 #endif	LINT
+#ifdef DBSYMTAB
+#include	<stb.h>
+#endif /* DBSYMTAB */
 
 extern int level;
+extern char options[];
 }
 
 /* Each statement construction is stacked in order to trace a
@@ -463,7 +468,14 @@ jump
 ;
 
 /* 3.6.2 */
-compound_statement:
+compound_statement
+	{
+#ifdef DBSYMTAB
+	static int	brc_level = 1;
+	int		ndecl = 0;
+#endif /* DBSYMTAB */
+	}
+:
 	'{'
 		{
 			stack_level();
@@ -472,12 +484,31 @@ compound_statement:
 		 (DOT == IDENTIFIER && AHEAD == IDENTIFIER))
 			/* >>> conflict on TYPE_IDENTIFIER, IDENTIFIER */
 		declaration
+		{
+#ifdef DBSYMTAB
+			ndecl++;
+#endif /* DBSYMTAB */
+		}
 	]*
+		{
+#ifdef DBSYMTAB
+			++brc_level;
+			if (options['g'] && ndecl) {
+				C_ms_std((char *) 0, N_LBRAC, brc_level);
+			}
+#endif /* DBSYMTAB */
+		}
 	[%persistent
 		statement
 	]*
 	'}'
 		{
 			unstack_level();
+#ifdef DBSYMTAB
+			if (options['g'] && ndecl) {
+				C_ms_std((char *) 0, N_RBRAC, brc_level);
+			}
+			brc_level--;
+#endif /* DBSYMTAB */
 		}
 ;

+ 4 - 0
lang/cem/cemcom.ansi/type.str

@@ -6,6 +6,7 @@
 /* TYPE DESCRIPTOR */
 
 #include	"nobitfield.h"
+#include	"dbsymtab.h"
 
 struct type	{
 	struct type *next;	/* used for ARRAY and for qualifiers */
@@ -16,6 +17,9 @@ struct type	{
 	arith tp_size;		/* -1 if declared but not defined */
 	struct type *tp_pointer;	/* to POINTER */
 	struct type *tp_array;		/* to ARRAY */
+#ifdef DBSYMTAB
+	int tp_dbindex;
+#endif
 #if 0
 /* This field is not needed now; see comment in function_of() routine. */
 	struct type *tp_function;	/* to FUNCTION */