From: fred <fred>
Date: Wed, 27 Mar 2002 02:03:15 +0000 (+0000)
Subject: lilypond-1.5.14
X-Git-Tag: release/1.5.59~450
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d6cfd30b7e5aa1e85d0d0935c759b3eb95cf64e7;p=lilypond.git

lilypond-1.5.14
---

diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index 65ca5ebb2d..f49e505447 100644
--- a/lily/include/lily-guile.hh
+++ b/lily/include/lily-guile.hh
@@ -73,7 +73,27 @@ SCM ly_last (SCM list);
 SCM ly_str02scm (char const*c);
 SCM ly_write2scm (SCM s);
 SCM ly_deep_copy (SCM);
-SCM ly_symbol2scm (char const *);
+
+#ifdef CACHE_SYMBOLS
+/*
+  Using this trick we cache the value of gh_symbol2scm ("fooo") where
+  "fooo" is a constant string. This is done at the cost of one static
+  variable per ly_symbol2scm() use, and one boolean evaluation for
+  every call.
+
+  The overall speedup of lily is about 5% on a run of wtk1-fugue2
+
+*/
+#define ly_symbol2scm(x) ({ static SCM cached;  \
+ (__builtin_constant_p (x)) \
+  ? ((cached) ? cached : scm_permanent_object (cached = gh_symbol2scm((char*)x))) \
+  : gh_symbol2scm(x); })
+#else
+inline SCM ly_symbol2scm(char const* x) { return gh_symbol2scm((char*)x); }
+#endif 
+
+
+
 String ly_scm2string (SCM s);
 String ly_symbol2string (SCM);
 SCM ly_offset2scm (Offset);