found some small leaks with Purify

diff --git a/lang/m2/comp/input.c b/lang/m2/comp/input.c
index 92183b3..6d7197d 100644 (file)
--- a/lang/m2/comp/input.c
+++ b/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;
 }
 

diff --git a/lang/m2/comp/options.c b/lang/m2/comp/options.c
index 370aa65..9f63bea 100644 (file)
--- a/lang/m2/comp/options.c
+++ b/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;

diff --git a/lang/m2/comp/program.g b/lang/m2/comp/program.g
index 96faf91..42dc9a8 100644 (file)
--- a/lang/m2/comp/program.g
+++ b/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);
                        }
        '.'
 ;