From xemacs-m  Mon Apr 14 05:09:40 1997
Received: from mgate.uni-hannover.de (mgate.uni-hannover.de [130.75.2.3])
	by xemacs.org (8.8.5/8.8.5) with SMTP id FAA09253
	for <xemacs-beta@xemacs.org>; Mon, 14 Apr 1997 05:09:39 -0500 (CDT)
Received: from helios (actually helios.tnt.uni-hannover.de) by mgate 
          with SMTP (PP); Mon, 14 Apr 1997 11:56:44 +0200
Received: from daedalus.tnt.uni-hannover.de by helios (SMI-8.6/SMI-SVR4) 
          id LAA08941; Mon, 14 Apr 1997 11:55:10 +0200
Received: by daedalus.tnt.uni-hannover.de (SMI-8.6/SMI-SVR4) id LAA19804;
          Mon, 14 Apr 1997 11:55:06 +0200
Date: Mon, 14 Apr 1997 11:55:06 +0200
Message-Id: <199704140955.LAA19804@daedalus.tnt.uni-hannover.de>
From: Heiko Muenkel <muenkel@tnt.uni-hannover.de>
To: F.Potorti@cnuce.cnr.it
CC: xemacs-beta@xemacs.org
Subject: Bug in etags
X-Mailer: VM 6.22 under 19.15 XEmacs Lucid (beta104)
X-Face: n}R'l6CHRf>pi&bj7[x0CW3:kmXm@1)7m+l*9[fp;-Ow4Xe~=5E;skf?2> 
        y]f{HzB|Q(\V9+y$PP~.4G[2n4W7{6Ilm[AMY9B:0kj.K_$-d%p4YIF*bX;=ADp6{ 
        HS@NEv9c.VII+9PgXHASx}K(jy^t=q%qzZ72q1e4E;O!$A$`&wgtLk"1%p.nC_G!] 
        4d1!+J4Q#YD_iXeEy`1x)d\r$1Qn\'23n|[8Y_xzuXJJ7W(EGqnzB]`]aq??;+z=) 
        DW~\'Vq&F'g%QU[Mv2:}nS>SdZFTEC2GsgB=Q,:~H<R5S[:ZN%B:s0;|v1x"Jb
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII

I've found a bug in etags. It occurs, if I'm running the following
command:

etags --language=lisp --regex='/[ \t]*(defmessage-handler[ \t]+[^ \t]+[ \t]*\([^ \t]+\)/\1/' --regex='/[ \t]*(slot[ \t]+\([^ \t)]+\)/put-\1/' --regex='/[ \t]*(slot[ \t]+\([^ \t)]+\)/get-\1/' -a -o TAGS tag-error.clp

I've included the file tag-error.clp at the end of this mail. The
error doesn't occur, if the defclass statement in this file has 5
instead of 6 slots.

The version number of etags is 11.78.

Here's the backtrace:

tcsh:muenkel.conny@daedalus> gdb /prog/xemacs/src/Beta/bin/etags core
GDB is free software and you are welcome to distribute copies of it
 under certain conditions; type "show copying" to see the conditions.
There is absolutely no warranty for GDB; type "show warranty" for details.
GDB 4.16 (sparc-sun-solaris2.5), 
Copyright 1996 Free Software Foundation, Inc...
Core was generated by `/prog/xemacs/src/Beta/bin/etags --language=lisp --regex=/[ \t]*(defmessage-hand'.
Program terminated with signal 11, Segmentation fault.
Reading symbols from /usr/lib/libsocket.so.1...done.
Reading symbols from /usr/lib/libnsl.so.1...done.
Reading symbols from /usr/lib/libkvm.so.1...done.
Reading symbols from /usr/lib/libelf.so.1...done.
Reading symbols from /usr/lib/libdl.so.1...done.
Reading symbols from /usr/lib/libc.so.1...done.
Reading symbols from /usr/lib/libintl.so.1...done.
Reading symbols from /usr/lib/libmp.so.1...done.
Reading symbols from /usr/lib/libw.so.1...done.
#0  0xef64a7cc in realfree ()
(gdb) bt
#0  0xef64a7cc in realfree ()
#1  0xef64afcc in _free_unlocked ()
#2  0xef64af00 in free ()
#3  0x133cc in free_tree (node=0x36830)
    at /prog/xemacs/src/xemacs-19.15-b104/lib-src/etags.c:1312
#4  0x12fa8 in process_file (file=0x35018 "")
    at /prog/xemacs/src/xemacs-19.15-b104/lib-src/etags.c:1121
#5  0x12c60 in main (argc=4, argv=0xefffe906)
    at /prog/xemacs/src/xemacs-19.15-b104/lib-src/etags.c:937


--- begin of tag-error.clp ---
(defclass OPERATOR-PARAMETER (is-a USER)
  ;"Used in the rules to provide information about parameters of operators."
  (slot parameter-name 
	; Name of the parameter
	(default ?NONE)
	(create-accessor read-write)
	)

  (slot operator-name 
	; Name of the operator of the parameter
	(default ?NONE)
	(create-accessor read-write)
	)

  (slot processing-step
	; the processing steps: preprocessing, contour enhance. ..
	(default ?NONE)
	(create-accessor read-write)
	)

  (slot adaptation-status
	(default not-adapted)
	(allowed-symbols not-adapted adapted change-it changed)
	(create-accessor read-write)
	)

  (slot value
	     ; Used for reporting the real changes.
	     ; Therefore it should get the new value if initialized
	     (default nil)
	     (create-accessor read-write)
	     )

  (slot lisp-access-number 
	; Used for accessing the parameter in a lisp list
	(default ?NONE)
	(range 0 ?VARIABLE)
	(create-accessor read-write)
	(pattern-match non-reactive)
	)

  )
--- end of tag-error ---


Does someone know, if F.Potorti@cnuce.cnr.it is still the maintainer
of etags? It seems, that the account is dead (finger returns ?Sorry,
could not find "F.POTORTI"). 

-- 

Heiko Muenkel
muenkel@tnt.uni-hannover.de
<A href="http://www.tnt.uni-hannover.de/wiss/muenkel.html">M&uuml;nkel</A>
PGP-KeyID: 0x05CC063D

