From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Thien-Thi Nguyen <ttn@giblet.glug.org>
Newsgroups: gmane.lisp.guile.user
Subject: Re: MEMOIZE_LOCALS (fwd)
Date: Thu, 27 Jun 2002 20:34:46 -0700
Sender: guile-user-admin@gnu.org
Message-ID: <E17NmX0-00011X-00@giblet>
References: <Pine.GSO.4.05.10206280104350.6506-100000@sallust.ida.ing.tu-bs.de>
Reply-To: ttn@glug.org
NNTP-Posting-Host: localhost.gmane.org
X-Trace: main.gmane.org 1025235565 8622 127.0.0.1 (28 Jun 2002 03:39:25 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Fri, 28 Jun 2002 03:39:25 +0000 (UTC)
Cc: guile-user@gnu.org
Return-path: <guile-user-admin@gnu.org>
Original-Received: from fencepost.gnu.org ([199.232.76.164])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 17NmbV-0002Ex-00
	for <guile-user@m.gmane.org>; Fri, 28 Jun 2002 05:39:25 +0200
Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 17NmbD-00085H-00; Thu, 27 Jun 2002 23:39:07 -0400
Original-Received: from ca-crlsbd-cuda3-c6a-b-211.crlsca.adelphia.net ([68.71.15.211] helo=giblet)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 17Nmb2-00084h-00
	for <guile-user@gnu.org>; Thu, 27 Jun 2002 23:38:56 -0400
Original-Received: from ttn by giblet with local (Exim 3.35 #1 (Debian))
	id 17NmX0-00011X-00; Thu, 27 Jun 2002 20:34:46 -0700
Original-To: dirk@sallust.ida.ing.tu-bs.de
Errors-To: guile-user-admin@gnu.org
X-BeenThere: guile-user@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:guile-user-request@gnu.org?subject=help>
List-Post: <mailto:guile-user@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=subscribe>
List-Id: General Guile related discussions <guile-user.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/guile-user/>
Xref: main.gmane.org gmane.lisp.guile.user:662
X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.user:662

below are some simple scripts you might find useful: 10x and 100x.  i
use them currently to see what kind of speedup qthreads omission incurs.
they live in (new directory) test-suite/perf/ at the moment, eventually
they should be put guile-scripts (cvs module) and copied into place by
autogen.sh.  example invocations:

  cd $builddir
  100x ./pre-inst-guile -c '(quit)'
  100x ./pre-inst-guile -c '(use-modules (ice-9 threads)) (quit)'
  [repeat in guile-1.4.1 $builddir]

for pre-inst-guile, the speedup is negative since there is now another
element in the search path.  OTOH, installed shows expected results...

thi


____________________________________________
#!/bin/bash

go ()
{
    iter=$1
    shift
    for (( i=$iter ; $i > 0 ; i = $i - 1 )) ; do "$@" ; done
}

time go 10 "$@"

____________________________________________
#!/bin/bash

go ()
{
    iter=$1
    shift
    for (( i=$iter ; $i > 0 ; i = $i - 1 )) ; do "$@" ; done
}

time go 100 "$@"

_______________________________________________
Guile-user mailing list
Guile-user@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-user