Mercurial > octave

comparison src/symtab.cc @ 240:a99f28f5e351

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-30 20:24:36 by jwe]
author jwe
date Tue, 30 Nov 1993 20:24:36 +0000
parents f736a3ec137e
children d66cc97f77a9
comparison
equal deleted inserted replaced
239:4f8134fa54a9 240:a99f28f5e351
19 along with Octave; see the file COPYING. If not, write to the Free 19 along with Octave; see the file COPYING. If not, write to the Free
20 Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 20 Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
21 21
22 */ 22 */
23 23
24 #ifdef __GNUG__ 24 // Don't even think about moving the tree.h include to symtab.h...
25 #pragma implementation 25
26 #ifdef HAVE_CONFIG_H
27 #include "config.h"
26 #endif 28 #endif
27
28 // Don't even think about moving the tree.h include to symtab.h...
29 29
30 #include "symtab.h" 30 #include "symtab.h"
31 #include "error.h" 31 #include "error.h"
32 #include "variables.h" 32 #include "variables.h"
33 #include "utils.h" 33 #include "utils.h"
664 if (is_variable ()) 664 if (is_variable ())
665 tag = "variable"; 665 tag = "variable";
666 else if (is_function ()) 666 else if (is_function ())
667 tag = "function"; 667 tag = "function";
668 668
669 error ("can't redefined read-only %s `%s'", tag, nm); 669 ::error ("can't redefined read-only %s `%s'", tag, nm);
670 670
671 return 1; 671 return 1;
672 } 672 }
673 else 673 else
674 return 0; 674 return 0;