From: fred <fred>
Date: Tue, 26 Mar 2002 21:50:34 +0000 (+0000)
Subject: lilypond-1.1.50
X-Git-Tag: release/1.5.59~2400
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=55497c7ecf1f5f868a047bd3a3d039451ba00189;p=lilypond.git

lilypond-1.1.50
---

diff --git a/lib/include/source.hh b/lib/include/source.hh
index 7f4a21e7d1..7de83441f3 100644
--- a/lib/include/source.hh
+++ b/lib/include/source.hh
@@ -8,11 +8,17 @@
 #include "cons.hh"
 #include "proto.hh"
 
+/**
+   a set of sourcefiles.
 
+   TODO: 
+ */
 class Sources 
 {
+  Sources (Sources const&) {}
 public:
   Sources ();
+  ~Sources();
 
   Source_file * get_file_l (String &filename );
   Source_file* sourcefile_l (char const* ch_C );
diff --git a/lib/source.cc b/lib/source.cc
index 66372945de..e7304d1afc 100644
--- a/lib/source.cc
+++ b/lib/source.cc
@@ -18,6 +18,7 @@
 
 Sources::Sources ()
 {
+  sourcefile_p_list_ = 0;
   path_C_= 0;
   binary_b_ = false;
 }
@@ -64,6 +65,10 @@ Sources::add (Source_file* sourcefile_p)
   sourcefile_p_list_ = new Killing_cons<Source_file> (sourcefile_p, sourcefile_p_list_);
 }
 
+Sources::~Sources ()
+{
+  delete sourcefile_p_list_;
+}
 /**
   search the list for file whose map contains pointer #ch_C#