From xemacs-m  Wed Feb 12 15:35:27 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 PAA10218
	for <xemacs-beta@xemacs.org>; Wed, 12 Feb 1997 15:35:25 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id NAA32013;
	Wed, 12 Feb 1997 13:46:54 -0800
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Showstopper bug in 20.0.
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>
Mime-Version: 1.0 (generated by tm-edit 7.103)
Content-Type: text/plain; charset=US-ASCII
Date: 12 Feb 1997 13:46:50 -0800
Message-ID: <m2n2t9d7ed.fsf@altair.xemacs.org>
Lines: 131
X-Mailer: Gnus v5.4.12/XEmacs 20.1

[Apply the attached patch to mule-canna.c first]

Bomb requires --with-canna, observed on Linux 2 with Canna-3.5b2, and
XEmacs *not* compiled with the union type support.  Compiled with
union type support gives a completely different result, but still ties
XEmacs up.  Something is corrupting internal structures.  According to
Jareth Hein it's XEmacs-specific and not inherited from mule.

xemacs -q
(require 'canna)
(canna)
C-x C-f /tmp/foo
C-o
a  DEL

Lisp backtrace follows:

  prin1(zsh: 31901 segmentation fault (core dumped)  src/xemacs -q

C backtrace follows:
#0  print_vector_internal (start=0x81e4671 "[", end=0x81e466f "]", 
    obj=1075927993, printcharfun=407508984, escapeflag=1)
    at /usr/src/xemacs-20.0/src/print.c:692
#1  0x810a033 in print_internal (obj=1075927993, printcharfun=407508984, 
    escapeflag=1) at /usr/src/xemacs-20.0/src/print.c:961
#2  0x8108e70 in Fprin1 (object=1075927993, stream=405880236)
    at /usr/src/xemacs-20.0/src/print.c:509
#3  0x8094e84 in Fbacktrace (stream=405880236, detailed=405780260)
    at /usr/src/xemacs-20.0/src/eval.c:4980
#4  0x808aad5 in fatal_error_signal (sig=11)
    at /usr/src/xemacs-20.0/src/emacs.c:181
#5  0xbfffe8c0 in __ypbindlist ()
#6  0x810a033 in print_internal (obj=1075927993, printcharfun=406023056, 
    escapeflag=1) at /usr/src/xemacs-20.0/src/print.c:961
#7  0x8108e70 in Fprin1 (object=1075927993, stream=405780260)
    at /usr/src/xemacs-20.0/src/print.c:509
#8  0x809171d in primitive_funcall (fn=0x8108dfc <Fprin1>, nargs=2, 
    args=0xbfffede8) at /usr/src/xemacs-20.0/src/eval.c:3457
#9  0x80918cc in funcall_subr (subr=0x820ebd0, args=0xbfffede8)
    at /usr/src/xemacs-20.0/src/eval.c:3481
#10 0x8090eb9 in funcall_recording_as (recorded_as=405880092, nargs=3, 
    args=0xbfffede4) at /usr/src/xemacs-20.0/src/eval.c:3173
#11 0x8091027 in Ffuncall (nargs=3, args=0xbfffede4)
    at /usr/src/xemacs-20.0/src/eval.c:3217
#12 0x806424a in Fbyte_code (bytestr=941786468, vector=1210222044, maxdepth=5)
    at /usr/src/xemacs-20.0/src/bytecode.c:418
#13 0x8091dac in funcall_lambda (fun=404915772, nargs=2, arg_vector=0xbfffef50)
    at /usr/src/xemacs-20.0/src/eval.c:3591
#14 0x8090f3a in funcall_recording_as (recorded_as=404915772, nargs=3, 
    args=0xbfffef4c) at /usr/src/xemacs-20.0/src/eval.c:3189
#15 0x8091027 in Ffuncall (nargs=3, args=0xbfffef4c)
    at /usr/src/xemacs-20.0/src/eval.c:3217
#16 0x806424a in Fbyte_code (bytestr=941786868, vector=1210222360, maxdepth=3)
    at /usr/src/xemacs-20.0/src/bytecode.c:418
#17 0x8091dac in funcall_lambda (fun=404916244, nargs=2, arg_vector=0xbffff248)
    at /usr/src/xemacs-20.0/src/eval.c:3591
#18 0x8090f3a in funcall_recording_as (recorded_as=406314564, nargs=3, 
    args=0xbffff244) at /usr/src/xemacs-20.0/src/eval.c:3189
#19 0x8091027 in Ffuncall (nargs=3, args=0xbffff244)
    at /usr/src/xemacs-20.0/src/eval.c:3217
#20 0x806424a in Fbyte_code (bytestr=941785608, vector=1210221264, maxdepth=5)
    at /usr/src/xemacs-20.0/src/bytecode.c:418
#21 0x8091dac in funcall_lambda (fun=404915072, nargs=1, arg_vector=0xbffff364)
    at /usr/src/xemacs-20.0/src/eval.c:3591
#22 0x8090f3a in funcall_recording_as (recorded_as=405854020, nargs=2, 
    args=0xbffff360) at /usr/src/xemacs-20.0/src/eval.c:3189
#23 0x8092620 in call1 (fn=405854020, arg0=675467772)
    at /usr/src/xemacs-20.0/src/eval.c:3217
#24 0x807010a in cmd_error (data=675467772, dummy=405780236)
    at /usr/src/xemacs-20.0/src/cmdloop.c:181
#25 0x808e269 in condition_case_1 (handlers=405780332, 
    bfun=0x8070cc8 <command_loop_1>, barg=405780236, 
    hfun=0x80700cc <cmd_error>, harg=405780236)
    at /usr/src/xemacs-20.0/src/eval.c:1630
#26 0x80711c8 in command_loop_2 (dummy=405780236)
    at /usr/src/xemacs-20.0/src/cmdloop.c:222
#27 0x808e0d1 in internal_catch (tag=405854076, 
    func=0x80711a8 <command_loop_2>, arg=405780236, threw=0x0)
    at /usr/src/xemacs-20.0/src/eval.c:1324
#28 0x8070592 in initial_command_loop (load_me=405780236)
    at /usr/src/xemacs-20.0/src/cmdloop.c:271
#29 0x808b982 in main_1 (argc=2, argv=0xbffff4f0, envp=0xbffff4fc)
    at /usr/src/xemacs-20.0/src/emacs.c:1467
#30 0x808c042 in main (argc=2, argv=0xbffff4f0, envp=0xbffff4fc)
    at /usr/src/xemacs-20.0/src/emacs.c:1818
#31 0x804f5fe in _start ()

This bug appears to affect *everything* related to MULE input. :-(
As soon as I get a fix for it, I'll probably release 20.1.

Index: mule-canna.c
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/src/mule-canna.c,v
retrieving revision 1.2
diff -u -r1.2 mule-canna.c
--- mule-canna.c	1997/01/11 20:14:45	1.2
+++ mule-canna.c	1997/02/12 00:39:35
@@ -411,7 +411,7 @@
     }
   else
     {
-      extern (*jrBeepFunc)();
+      extern Lisp_Object (*jrBeepFunc)();
       Lisp_Object Fding (), CANNA_mode_keys ();
 
       jrBeepFunc = Fding;
@@ -823,12 +823,17 @@
 */
        (bun, kouho))
 {
+  int nbun, nkouho;
+
   if (confirmContext () == 0)
     {
       return Qnil;
     }
-  RkGoTo (IRCP_context, bun);
-  RkXfer (IRCP_context, kouho);
+  nbun = XINT(bun);
+  RkGoTo (IRCP_context, nbun);
+
+  nkouho = XINT(kouho);
+  RkXfer (IRCP_context, nkouho);
   return Qt;
 }
 


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

