Put back objsym/savesym (used by walkoptree_exec).
Malcolm Beattie [Mon, 26 May 1997 11:43:37 +0000 (11:43 +0000)]
p4raw-id: //depot/perlext/Compiler@21

B.pm

diff --git a/B.pm b/B.pm
index ebc98b0..e304062 100644 (file)
--- a/B.pm
+++ b/B.pm
@@ -109,17 +109,17 @@ sub timing_info {
            $hr, $min, $sec, $user, $sys);
 }
 
-#my %symtable;
-#sub savesym {
-#    my ($obj, $value) = @_;
-##    warn(sprintf("savesym: sym_%x => %s\n", $$obj, $value)); # debug
-#    $symtable{sprintf("sym_%x", $$obj)} = $value;
-#}
+my %symtable;
+sub savesym {
+    my ($obj, $value) = @_;
+#    warn(sprintf("savesym: sym_%x => %s\n", $$obj, $value)); # debug
+    $symtable{sprintf("sym_%x", $$obj)} = $value;
+}
 
-#sub objsym {
-#    my $obj = shift;
-#    return $symtable{sprintf("sym_%x", $$obj)};
-#}
+sub objsym {
+    my $obj = shift;
+    return $symtable{sprintf("sym_%x", $$obj)};
+}
 
 sub walkoptree_exec {
     my ($op, $method, $level) = @_;