re-enable some [trace]

untodo test, workaround proxy lookup failure.
partcl · Oct 30, 2009 · 87ed02f · 87ed02f
1 parent 27de49b
commit 87ed02f
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 7 deletions.
diff --git a/runtime/builtin/trace.pir b/runtime/builtin/trace.pir
@@ -5,9 +5,6 @@
 .sub '&trace'
   .param pmc argv :slurpy
 
-  # comment this line to reactivate basic (BUT VERY SLOW) tracing
-  .return()
-
   .local string subcommand
   subcommand = shift argv
   if subcommand != 'variable' goto unimplemented

diff --git a/src/class/tracearray.pir b/src/class/tracearray.pir
@@ -61,9 +61,8 @@ skip:
   $P1()
   working = 0
 delegate:
-  # Delegate to our parent..
-  # Finally, delegate to our parent's set_string
-  $P0 = getattribute self, ['TclArray'], 'proxy'
+  # Delegate to our first PMC ancestor.
+  $P0 = getattribute self, ['Hash'], 'proxy'
   .local pmc result
   result = $P0[key]
   .return (result)

diff --git a/t/cmd_trace.t b/t/cmd_trace.t
@@ -23,4 +23,4 @@ set a(1) 2
 trace variable a r tracer
 set a(1) 3
 is $a(1) 3 {set should still work}
-is $some_var x {trigger should have hit} {TODO "disabled for speed reasons"}
+is $some_var x {trigger should have hit}