[multiple changes]

[gcc.git] / gcc / ada / prj-tree.adb

diff --git a/gcc/ada/prj-tree.adb b/gcc/ada/prj-tree.adb
index 4823a988d6c4909c45f1a1c561f7c09e8db76ad0..7d77e2ab6fddc8b667b043d4e21fcf291596922e 100644 (file)
--- a/gcc/ada/prj-tree.adb
+++ b/gcc/ada/prj-tree.adb
@@ -1000,6 +1000,7 @@ package body Prj.Tree is
       if Proj /= null then
          Project_Node_Table.Free (Proj.Project_Nodes);
          Projects_Htable.Reset (Proj.Projects_HT);
+         Free (Proj.Project_Path);
          Unchecked_Free (Proj);
       end if;
    end Free;