Author: coke
Date: Thu Jul 24 08:34:06 2008
New Revision: 29724
Modified:
trunk/languages/tcl/runtime/builtin/trace.pir
Log:
[tcl] fix stub of [trace] so it actually does nothing instead of fail.
Modified: trunk/languages/tcl/runtime/builtin/trace.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/trace.pir (original)
+++ trunk/languages/tcl/runtime/builtin/trace.pir Thu Jul 24 08:34:06 2008
@@ -1,18 +1,11 @@
-# RT#40703: Stub
-# help tcltest compile
-
-.HLL '_Tcl', 'tcl_group'
+.HLL 'Tcl', 'tcl_group'
.namespace []
-.sub 'trace'
- .param string retval
- .param pmc raw_args
- .param pmc argv
-
+.sub '&trace'
+ .param pmc argv :slurpy
.return('')
.end
-
# Local Variables:
# mode: pir
# fill-column: 100
