From 5d86f6395ed423a276e5641dda991a8c615ff0d9 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Thu, 9 Jun 2005 18:26:01 +0000 Subject: [PATCH] *** empty log message *** --- lily/include/source-file.hh | 2 +- lily/source-file.cc | 9 +++++++-- scm/lily.scm | 1 + 3 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lily/include/source-file.hh b/lily/include/source-file.hh index 8d3aa4b4ba..71a9df5d32 100644 --- a/lily/include/source-file.hh +++ b/lily/include/source-file.hh @@ -61,7 +61,7 @@ public: */ char const *pos_str0_; - SCM get_port () const { return str_port_; } + SCM get_port () const; String name_; private: diff --git a/lily/source-file.cc b/lily/source-file.cc index b4d003b764..dee8a9e3c5 100644 --- a/lily/source-file.cc +++ b/lily/source-file.cc @@ -282,9 +282,8 @@ Source_file::get_counts (char const *pos_str0, line_chars += thislen; left -= thislen; } - - } + bool Source_file::contains (char const* pos_str0) const { @@ -373,3 +372,9 @@ Source_file::get_string (int n) String str = String ((Byte const *)forward_str0 (n), n); return str; } + +SCM +Source_file::get_port () const +{ + return str_port_; +} diff --git a/scm/lily.scm b/scm/lily.scm index abf238871a..87dcaa68e9 100644 --- a/scm/lily.scm +++ b/scm/lily.scm @@ -268,6 +268,7 @@ The syntax is the same as `define*-public'." (lambda (a b) (< (object-address (car a)) (object-address (car b)))))) + (out-file-name (string-append "gcstat-" (number->string gc-protect-stat-count) ".scm")) -- 2.39.5