A newer version, safety commit

lang/m2/comp/misc.c

@@ -0,0 +1,63 @@
+/* M I S C E L L A N E O U S    R O U T I N E S */
+
+static char *RcsId = "$Header$";
+
+#include	<alloc.h>
+#include	<em_arith.h>
+#include	"f_info.h"
+#include	"misc.h"
+#include	"LLlex.h"
+#include	"idf.h"
+
+match_id(id1, id2)
+	struct idf *id1, *id2;
+{
+	/*	Check that identifiers id1 and id2 are equal. If they
+		are not, check that we did'nt generate them in the
+		first place, and if not, give an error message
+	*/
+	if (id1 != id2 && !is_anon_idf(id1) && !is_anon_idf(id2)) {
+		error("Identifier \"%s\" does not match identifier \"%s\"",
+		      id1->id_text,
+		      id2->id_text
+		);
+	}
+}
+
+struct id_list *h_id_list;	/* Header of free list of id_list structures */
+
+/*	FreeIdList: take a list of id_list structures and put them
+	on the free list of id_list structures
+*/
+FreeIdList(p)
+	struct id_list *p;
+{
+	register struct id_list *q;
+
+	while (q = p) {
+		p = p->next;
+		free_id_list(q);
+	}
+}
+
+struct idf *
+gen_anon_idf()
+{
+	/*	A new idf is created out of nowhere, to serve as an
+		anonymous name.
+	*/
+	static int name_cnt;
+	char buff[100];
+	char *sprintf();
+
+	sprintf(buff, "#%d in %s, line %u",
+			++name_cnt, FileName, LineNumber);
+	return str2idf(buff, 1);
+}
+
+int
+is_anon_idf(idf)
+	struct idf *idf;
+{
+	return idf->id_text[0] == '#';
+}