← Back to branch summary

~ubuntu-branches/ubuntu/maverick/uim/maverick

« back to all changes in this revision

Viewing changes to sigscheme/bench/bench-mem.scm

  • Committer: Bazaar Package Importer
  • Author(s): Masahito Omote
  • Date: 2008-06-25 19:56:33 UTC
  • mfrom: (3.1.18 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080625195633-8jljph4rfq00l8o7
Tags: 1:1.5.1-2
http://bugs.debian.org/482659
http://bugs.debian.org/483078
* uim-tcode: provide tutcode-custom.scm, tutcode-bushudic.scm
  and tutcode-rule.scm (Closes: #482659)
* Fix FTBFS: segv during compile (Closes: #483078).
  I personally think this bug is not specific for uim but is a optimization
  problem on gcc-4.3.1. (https://bugs.freedesktop.org/show_bug.cgi?id=16477)

Show diffs side-by-side

added added

removed removed

Lines of Context:
sigscheme/bench/bench-mem.scm
 
1
(define *lifetime*  100)
 
2
(define *blocksize* 100)
 
3
  
 
4
(define *vec* (make-vector *lifetime*))
 
5
 
 
6
(define (foo i j)
 
7
  (if (< i *lifetime*)
 
8
      (begin
 
9
        (vector-set! *vec* i (make-vector *blocksize*))
 
10
        (foo (+ i 1) j))
 
11
      (if (< 0 j)
 
12
          (foo 0 (- j 1))
 
13
          '())))
 
14
 
 
15
(write (foo 0 100))
 
16
(newline)