Mercurial > octave-nkf

comparison src/ov-fcn-handle.cc @ 7901:3e4c9b69069d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
call stack changes
author John W. Eaton <jwe@octave.org>
date Tue, 08 Jul 2008 12:00:32 -0400
parents 71f068b22fcc
children a2ab20ba78f7
comparison
equal deleted inserted replaced
7900:5b077861d168 7901:3e4c9b69069d
340 { 340 {
341 error ("load: failed to load anonymous function handle"); 341 error ("load: failed to load anonymous function handle");
342 break; 342 break;
343 } 343 }
344 344
345 symbol_table::varref (name, local_scope) = t2; 345 symbol_table::varref (name, local_scope, 0) = t2;
346 } 346 }
347 } 347 }
348 } 348 }
349 else 349 else
350 { 350 {
1120 %! hbi2 = hbi; 1120 %! hbi2 = hbi;
1121 %! modes = {"-text", "-binary"}; 1121 %! modes = {"-text", "-binary"};
1122 %! if (!isempty(findstr(octave_config_info ("DEFS"),"HAVE_HDF5"))) 1122 %! if (!isempty(findstr(octave_config_info ("DEFS"),"HAVE_HDF5")))
1123 %! modes(end+1) = "-hdf5"; 1123 %! modes(end+1) = "-hdf5";
1124 %! endif 1124 %! endif
1125 %! for i = modes 1125 %! for i = 1:numel (modes)
1126 %! mode = modes{1}; 1126 %! mode = modes{i};
1127 %! nm = tmpnam(); 1127 %! nm = tmpnam();
1128 %! unwind_protect 1128 %! unwind_protect
1129 %! save (mode, nm, "f2", "g2", "hm2", "hdld2", "hbi2"); 1129 %! save (mode, nm, "f2", "g2", "hm2", "hdld2", "hbi2");
1130 %! clear f2 g2 hm2 hdld2 hbi2 1130 %! clear f2 g2 hm2 hdld2 hbi2
1131 %! load (nm); 1131 %! load (nm);