comparison lib-src/etags.c @ 4905:710950ca1b49

Tue Nov 2 19:46:52 1993 Francesco Potorti` (pot@cnuce.cnr.it) * etags.c (consider_token): removed unused variable firsttok. (prolog_getit): call pfnote with the right number of arguments.
author Francesco Potortì <pot@gnu.org>
date Tue, 02 Nov 1993 18:55:40 +0000
parents 7b1e944f583a
children 50db67ef8d64
comparison
equal deleted inserted replaced
4904:7b1e944f583a 4905:710950ca1b49
23 * FORTRAN added by Jim Kleckner. 23 * FORTRAN added by Jim Kleckner.
24 * Ed Pelegri-Llopart added C typedefs. 24 * Ed Pelegri-Llopart added C typedefs.
25 * Gnu Emacs TAGS format and modifications by RMS? 25 * Gnu Emacs TAGS format and modifications by RMS?
26 * Sam Kendall added C++. 26 * Sam Kendall added C++.
27 * 27 *
28 * Francesco Potorti` (pot@cnuce.cnr.it) is the current maintainer. 9.5 28 * Francesco Potorti` (pot@cnuce.cnr.it) is the current maintainer. 9.7
29 */ 29 */
30 30
31 #ifdef HAVE_CONFIG_H 31 #ifdef HAVE_CONFIG_H
32 #include <../src/config.h> 32 #include <../src/config.h>
33 #endif 33 #endif
1786 register TOKEN *tokp; /* IN: token pointer */ 1786 register TOKEN *tokp; /* IN: token pointer */
1787 int c_ext; /* IN: C extensions mask */ 1787 int c_ext; /* IN: C extensions mask */
1788 int cblev; /* IN: curly brace level */ 1788 int cblev; /* IN: curly brace level */
1789 logical *is_func; /* OUT */ 1789 logical *is_func; /* OUT */
1790 { 1790 {
1791 logical firsttok; /* TRUE if have seen first token in ()'s */
1792 Stab_entry *tokse = stab_find (get_C_stab (c_ext), tokp->p, tokp->len); 1791 Stab_entry *tokse = stab_find (get_C_stab (c_ext), tokp->p, tokp->len);
1793 enum sym_type toktype = stab_type (tokse); 1792 enum sym_type toktype = stab_type (tokse);
1794 1793
1795 /* 1794 /*
1796 * Advance the definedef state machine. 1795 * Advance the definedef state machine.
2774 } 2773 }
2775 tmpc = *s; 2774 tmpc = *s;
2776 *s = '\0'; 2775 *s = '\0';
2777 strcpy (nambuf, save_s); 2776 strcpy (nambuf, save_s);
2778 *s = tmpc; 2777 *s = tmpc;
2779 pfnote (nambuf, TRUE, save_s, strlen (nambuf), lineno, linecharno); 2778 pfnote (nambuf, TRUE, FALSE, save_s, strlen (nambuf), lineno, linecharno);
2780 } 2779 }
2781 2780
2782 /* It is assumed that prolog predicate starts from column 0. */ 2781 /* It is assumed that prolog predicate starts from column 0. */
2783 2782
2784 void 2783 void