first, almost complete, version

1986-06-04 09:01:48 +00:00
parent 1fcd61aa36
commit c479ca0058
19 changed files with 458 additions and 309 deletions
--- a/lang/m2/comp/def.H
+++ b/lang/m2/comp/def.H
@@ -48,6 +48,7 @@ struct dfproc {
 	struct node *pr_body;	/* body of this procedure */
 #define prc_vis		df_value.df_proc.pr_vis
 #define prc_body	df_value.df_proc.pr_body
+#define NameOfProc(xdf)	((xdf)->prc_vis->sc_scope->sc_name)
 };

 struct import {