1 Return-Path: <cyd@stupidchicken.com>
\r
2 X-Original-To: notmuch@notmuchmail.org
\r
3 Delivered-To: notmuch@notmuchmail.org
\r
4 Received: from localhost (localhost [127.0.0.1])
\r
5 by olra.theworths.org (Postfix) with ESMTP id 38E6340BC61
\r
6 for <notmuch@notmuchmail.org>; Mon, 16 Aug 2010 10:41:27 -0700 (PDT)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
11 X-Spam-Status: No, score=-1.9 tagged_above=-999 required=5
\r
12 tests=[BAYES_00=-1.9] autolearn=unavailable
\r
13 Received: from olra.theworths.org ([127.0.0.1])
\r
14 by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)
\r
15 with ESMTP id KzLGM+cfbwQ0 for <notmuch@notmuchmail.org>;
\r
16 Mon, 16 Aug 2010 10:41:16 -0700 (PDT)
\r
17 Received: from pantheon-po45.its.yale.edu (pantheon-po45.its.yale.edu
\r
19 by olra.theworths.org (Postfix) with ESMTP id D197840BC64
\r
20 for <notmuch@notmuchmail.org>; Mon, 16 Aug 2010 10:41:16 -0700 (PDT)
\r
21 Received: from furry ([64.134.241.146]) (authenticated bits=0)
\r
22 by pantheon-po45.its.yale.edu (8.12.11.20060308/8.12.11) with ESMTP id
\r
24 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NOT);
\r
25 Mon, 16 Aug 2010 13:40:49 -0400
\r
26 Received: by furry (Postfix, from userid 1000)
\r
27 id 71ED6C013; Mon, 16 Aug 2010 13:40:13 -0400 (EDT)
\r
28 From: Chong Yidong <cyd@stupidchicken.com>
\r
29 To: Michal Sojka <sojkam1@fel.cvut.cz>
\r
30 Subject: Re: bug#6214: 23.1; json-read-string crashes emacs with long string
\r
31 References: <87pr0t5h1q.fsf@yoom.home.cworth.org>
\r
32 <87fx1pkrsh.fsf@stupidchicken.com> <87tymzv6ga.fsf@steelpick.2x.cz>
\r
33 <878w4afozw.fsf@stupidchicken.com> <87sk2hbq3s.fsf@steelpick.2x.cz>
\r
34 <8739ug3mrr.fsf@stupidchicken.com> <87r5i02uo7.fsf@steelpick.2x.cz>
\r
35 Date: Mon, 16 Aug 2010 13:40:13 -0400
\r
36 In-Reply-To: <87r5i02uo7.fsf@steelpick.2x.cz> (Michal Sojka's message of "Sun,
\r
37 15 Aug 2010 09:37:28 +0200")
\r
38 Message-ID: <874oeuv4le.fsf@stupidchicken.com>
\r
39 User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux)
\r
41 Content-Type: text/plain; charset=us-ascii
\r
42 X-YaleITSMailFilter: Version 1.2c (attachment(s) not renamed)
\r
43 Cc: 6214@debbugs.gnu.org, Notmuch mailing list <notmuch@notmuchmail.org>
\r
44 X-BeenThere: notmuch@notmuchmail.org
\r
45 X-Mailman-Version: 2.1.13
\r
47 List-Id: "Use and development of the notmuch mail system."
\r
48 <notmuch.notmuchmail.org>
\r
49 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
50 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
51 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
52 List-Post: <mailto:notmuch@notmuchmail.org>
\r
53 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
54 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
55 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
56 X-List-Received-Date: Mon, 16 Aug 2010 17:41:27 -0000
\r
58 Thanks, that is a useful backtrace. Could you apply this patch and see
\r
59 if it fixes the problem?
\r
62 === modified file 'src/eval.c'
\r
63 *** src/eval.c 2010-08-06 19:07:16 +0000
\r
64 --- src/eval.c 2010-08-16 17:37:22 +0000
\r
67 register int i, numargs;
\r
68 register Lisp_Object spread_arg;
\r
69 register Lisp_Object *funcall_args;
\r
71 struct gcpro gcpro1;
\r
76 register int i, numargs;
\r
77 register Lisp_Object spread_arg;
\r
78 register Lisp_Object *funcall_args;
\r
79 ! Lisp_Object fun, retval;
\r
80 struct gcpro gcpro1;
\r
88 /* Avoid making funcall cons up a yet another new vector of arguments
\r
89 by explicitly supplying nil's for optional values */
\r
90 ! funcall_args = (Lisp_Object *) alloca ((1 + XSUBR (fun)->max_args)
\r
91 ! * sizeof (Lisp_Object));
\r
92 for (i = numargs; i < XSUBR (fun)->max_args;)
\r
93 funcall_args[++i] = Qnil;
\r
94 GCPRO1 (*funcall_args);
\r
97 /* Avoid making funcall cons up a yet another new vector of arguments
\r
98 by explicitly supplying nil's for optional values */
\r
99 ! SAFE_ALLOCA (funcall_args, Lisp_Object *, ((1 + XSUBR (fun)->max_args)
\r
100 ! * sizeof (Lisp_Object)));
\r
101 for (i = numargs; i < XSUBR (fun)->max_args;)
\r
102 funcall_args[++i] = Qnil;
\r
103 GCPRO1 (*funcall_args);
\r
106 function itself as well as its arguments. */
\r
109 ! funcall_args = (Lisp_Object *) alloca ((1 + numargs)
\r
110 ! * sizeof (Lisp_Object));
\r
111 GCPRO1 (*funcall_args);
\r
112 gcpro1.nvars = 1 + numargs;
\r
115 function itself as well as its arguments. */
\r
118 ! SAFE_ALLOCA (funcall_args, Lisp_Object *, ((1 + numargs)
\r
119 ! * sizeof (Lisp_Object)));
\r
120 GCPRO1 (*funcall_args);
\r
121 gcpro1.nvars = 1 + numargs;
\r
127 /* By convention, the caller needs to gcpro Ffuncall's args. */
\r
128 ! RETURN_UNGCPRO (Ffuncall (gcpro1.nvars, funcall_args));
\r
132 /* Run hook variables in various ways. */
\r
136 /* By convention, the caller needs to gcpro Ffuncall's args. */
\r
137 ! retval = Ffuncall (gcpro1.nvars, funcall_args);
\r
145 /* Run hook variables in various ways. */
\r