found some small leaks with Purify

lang/m2/comp/input.c

@@ -20,6 +20,7 @@ AtEoIF()
 	/*	Make the unstacking of input streams noticable to the
 	   	lexical analyzer
 	*/
+	if (WorkingDir[0] != '\0') free(WorkingDir);
 	return 1;
 }
 

lang/m2/comp/options.c

@@ -138,7 +138,7 @@ DoOption(text)
 			register int i;
 			register char *new = text;
 
-			if (++nDEF > mDEF) {
+			if (nDEF > mDEF) {
 				DEFPATH = (char **)
 				  Realloc((char *)DEFPATH,(unsigned)(mDEF+=10)*sizeof(char *));
 			}
@@ -149,6 +149,7 @@ DoOption(text)
 				DEFPATH[i] = new;
 				new = tmp;
 			}
+			++nDEF;
 		}
 		else	DEFPATH[ndirs] = 0;
 		break;

lang/m2/comp/program.g

@@ -193,6 +193,7 @@ node_warning(exportlist, W_OLDFASHIONED, "export list in definition module ignor
 			  DefinitionModule--;
 			  match_id(dot.TOK_IDF, df->df_idf);
 			  df->df_flags &= ~D_BUSY;
+			  free(FileName);
 			}
 	'.'
 ;