Posted to tcl by miguel at Tue Jul 22 16:10:31 GMT 2008view raw

  1. * HEAD *
  2. mig@cpq:/home/CVS/tcl_SF_clean/unix$ /usr/bin/time ./tclsh ../tests/NRE.test -match NRE-6.1
  3. NRE.test: Total 23 Passed 1 Skipped 22 Failed 0
  4. 32.09user 0.05system 0:32.22elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k
  5. 0inputs+0outputs (0major+3119minor)pagefaults 0swaps
  6.  
  7. * remove TclArgumentGet in Tcl_UplevelObjCmd
  8. mig@cpq:/home/CVS/tcl_SF_clean/unix$
  9. mig@cpq:/home/CVS/tcl_SF_clean/unix$ /usr/bin/time ./tclsh ../tests/NRE.test -match NRE-6.1
  10. NRE.test: Total 23 Passed 1 Skipped 22 Failed 0
  11. 0.21user 0.04system 0:00.26elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k
  12.  
  13. The second one has at line 964 in tclProc.c
  14.  
  15. #if 0
  16. TclArgumentGet (interp, objv[0], &invoker, &word);
  17. #else
  18. invoker = NULL; word = 0;
  19. #endif