From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Mon, 26 May 1997 11:43:37 +0000 (+0000)
Subject: Put back objsym/savesym (used by walkoptree_exec).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b1c97ae634d378b73cc486a04e087204a7e5a1cc;p=p5sagit%2Fp5-mst-13.2.git

Put back objsym/savesym (used by walkoptree_exec).

p4raw-id: //depot/perlext/Compiler@21
---

diff --git a/B.pm b/B.pm
index ebc98b0..e304062 100644
--- 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) = @_;