From xemacs-m  Sat Feb  8 18:17:04 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA12997
	for <xemacs-beta@xemacs.org>; Sat, 8 Feb 1997 18:17:03 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id QAA04008;
	Sat, 8 Feb 1997 16:28:03 -0800
To: xemacs-beta@xemacs.org
Subject: Re: wot i need
References: <199702082350.AA191485848@martigny.ai.mit.edu>
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Bill Dubuque's message of Sat, 8 Feb 1997 18:50:47 -0500
Mime-Version: 1.0 (generated by tm-edit 7.101)
Content-Type: text/plain; charset=US-ASCII
Date: 08 Feb 1997 16:28:01 -0800
Message-ID: <m27mkiu8ku.fsf@altair.xemacs.org>
Lines: 59
X-Mailer: Gnus v5.4.11/XEmacs 20.0

Bill Dubuque writes:

> : Date: Sat, 8 Feb 1997 18:39:25 -0500 (EST)
> : From: Kyle Jones <kyle_jones@wonderworks.com>
> : 
> : Steven L. Baur writes:
> : > 
> : > ... I timed XEmacs *faster* than Emacs running this code.

(See previous benchmarking articles posted to this list for reference).

> : Not me.  41 vs. 62 seconds.

You remembered to turn off all debugging, right?

> Hmm, if opposite results obtain on different platforms then that
> would seem to imply the problem is either platform or build 
> dependent.  Can anyone else reproduce Steven or Kyle's claim?
> If so, then the platforms and build options should be contrasted.

I ran the attached test on XEmacs 19.13/19.14/20.0MULE and Emacs 19.34
(I don't have an undebugging version of 19.15 currently available).
Version	Time(seconds)
20.0:	38.96
19.14	37.85 
19.13	39.13
19.34	33.06

I'm going to build a test version of 19.15 undebugged with the QUIT
test short circuited like Kyle did and see if that closes the gap.

;;; loop-test.el -- basic test of Emacs lisp evaluation speed
;; execute by starting emacs -q, loading this file and doing M-x eval-buffer

(setq bench-mark-loop-count 1000000)
(defun bench-mark-loop ()
  "How long does it take to run through a loop."
  (let ((count bench-mark-loop-count))
    (let ((i 0) (gcount 0))
      (while (< i count)
	(increment)
	(setq i (1+ i)))
      (message "gcount = %d" gcount))))

(defun increment ()
  "Increment a variable for bench-mark-loop."
  (setq gcount (1+ gcount)))

(require 'elp)
(elp-instrument-function 'bench-mark-loop)

(bench-mark-loop)
(elp-results)

;;; loop-test.el ends here

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

