Improved symbol table for grind

lang/pc/comp/stab.c

@@ -229,6 +229,24 @@ stb_type(tp, assign_num)
 	}
 }
 
+stb_addtp(s, tp)
+	char    *s;
+	struct type  *tp;
+{
+	create_db_str();
+	adds_db_str(s);
+	addc_db_str(':');
+	addc_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
+		       : (IsPacked(tp) ? (int) tp->tp_psize : (int)tp->tp_size),
+		     (arith) 0);
+}
+
 stb_string(df, kind)
 	register struct def *df;
 	long kind;

lang/pc/comp/type.c

@@ -550,6 +550,11 @@ chk_forw_types()
 				  	   "identifier \"%s\" is not a type",
 					   df->df_idf->id_text);
 			fw_type->f_type->next = tp;
+#ifdef DBSYMTAB
+			if (options['g']) {
+				stb_addtp("(forward_type)", fw_type->f_type);
+			}
+#endif
 			fw_type = fw_type->f_next;
 		    }