Mercurial > octave-libtiff

comparison src/variables.cc @ 1161:0326a802cd5c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-02-27 16:14:48 by jwe]
author jwe
date Mon, 27 Feb 1995 16:15:02 +0000
parents 80973a849607
children c210c5a25a48
comparison
equal deleted inserted replaced
1160:74397545c242 1161:0326a802cd5c
1384 panic ("can't find symbol record for builtin function `%s'", alias); 1384 panic ("can't find symbol record for builtin function `%s'", alias);
1385 } 1385 }
1386 1386
1387 // Defining variables. 1387 // Defining variables.
1388 1388
1389 #if 0
1389 void 1390 void
1390 bind_nargin_and_nargout (symbol_table *sym_tab, int nargin, int nargout) 1391 bind_nargin_and_nargout (symbol_table *sym_tab, int nargin, int nargout)
1391 { 1392 {
1392 tree_constant *tmp; 1393 tree_constant *tmp;
1393 symbol_record *sr; 1394 symbol_record *sr;
1400 sr = sym_tab->lookup ("nargout", 1, 0); 1401 sr = sym_tab->lookup ("nargout", 1, 0);
1401 sr->unprotect (); 1402 sr->unprotect ();
1402 tmp = new tree_constant (nargout); 1403 tmp = new tree_constant (nargout);
1403 sr->define (tmp); 1404 sr->define (tmp);
1404 } 1405 }
1406 #endif
1405 1407
1406 // Give a global variable a definition. This will insert the symbol 1408 // Give a global variable a definition. This will insert the symbol
1407 // in the global table if necessary. 1409 // in the global table if necessary.
1408 1410
1409 // How is this different than install_builtin_variable? Are both 1411 // How is this different than install_builtin_variable? Are both