[uim-commit] r441 - trunk/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-01-31 12:57:27 -0800 (Mon, 31 Jan 2005)
New Revision: 441

Modified:
   trunk/scm/custom.scm
   trunk/scm/init.scm
Log:
* This commit tunes Scheme interpreter performance for uim-custom

* scm/init.scm
  - (prealloc-heaps-for-heavy-job): New procedure

* scm/custom.scm
  - Invoke prealloc-heaps-for-heavy-job


Modified: trunk/scm/custom.scm
===================================================================
--- trunk/scm/custom.scm	2005-01-31 20:46:51 UTC (rev 440)
+++ trunk/scm/custom.scm	2005-01-31 20:57:27 UTC (rev 441)
@@ -698,4 +698,5 @@
 		     (_ "Hidden settings")
 		     (_ "Hidden settings of this group. This group is invisible from uim_custom clients. Exists for internal variable management."))
 
+(prealloc-heaps-for-heavy-job)
 (custom-reload-customs)

Modified: trunk/scm/init.scm
===================================================================
--- trunk/scm/init.scm	2005-01-31 20:46:51 UTC (rev 440)
+++ trunk/scm/init.scm	2005-01-31 20:57:27 UTC (rev 441)
@@ -36,6 +36,16 @@
 
 (define enable-action? #t)
 
+;; Performance tuning for heavy job such as custom.scm. The value 64
+;; allocates approximately 12MB of heaps. Reduce it for less-memory
+;; environment (by redefining the proc in ~/.uim or default.scm).
+;;   -- YamaKen 2005-02-01
+(define prealloc-heaps-for-heavy-job
+  (lambda ()
+    (for-each (lambda (i)
+		(allocate-heap))
+	      (iota 64))))
+
 (define load-user-conf
   (lambda ()
     (let ((orig-verbose (verbose))