From xemacs-m  Sat May  3 17:34:54 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 RAA11199
	for <xemacs-beta@xemacs.org>; Sat, 3 May 1997 17:34:53 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id PAA10237;
	Sat, 3 May 1997 15:33:12 -0700
To: Richard Mlynarik <mly@adoc.xerox.com>
Cc: xemacs-beta@xemacs.org
Subject: [PATCH] Re: 19.15 lread.c bug
References: <199705032121.OAA01629@hippomenes.ADOC>
X-Url: http://www.miranova.com/%7Esteve/
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: Richard Mlynarik's message of Sat, 3 May 1997 14:21:04 PDT
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 03 May 1997 15:33:10 -0700
Message-ID: <m2afmcjie1.fsf@altair.xemacs.org>
Lines: 32
X-Mailer: Gnus v5.4.50/XEmacs 20.2(beta5)

Richard Mlynarik <mly@adoc.xerox.com> writes:

> (read-from-string "1.") chokes.  It should evaluate to '(1 . 2)
> (The bug has nothing to do with -from-string; it's just a test-case.)

The bug is present in 20.2 and indeed has nothing to do with the
-from-string aspect of read-from-string.

Sat May  3 15:28:56 1997  Steven L Baur  <steve@altair.xemacs.org>

	* lread.c (parse_integer): Fix incorrect upper bounds on loop.

Index: src/lread.c
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/src/lread.c,v
retrieving revision 1.8
diff -u -r1.8 lread.c
--- lread.c	1997/05/03 00:26:42	1.8
+++ lread.c	1997/05/03 22:20:07
@@ -1847,7 +1847,7 @@
   if (p == lim)
     goto loser;
 
-  for (; p < lim; p++)
+  for (; (p < lim) && (*p != '\0'); p++)
     {
       int c = *p;
       unsigned EMACS_INT onum;

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

