# New Ticket Created by Leopold Toetsch
# Please include the string: [perl #16300]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16300 >
Hi,
recent changes in hash.c seems to hang[1] hash_clone.
This patch works, but I don't know, if it is the correct way to solve
the problem.
[1]
$perl6 -Rt -vwk t/compiler/a_2.p6
......
PC=726; OP=183 (clone_p_p); ...
leo
-- attachment 1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/34388/28119/3fe400/hash.c.diff
--- hash.c Mon Aug 19 07:32:43 2002
+++ /home/lt/src/parrot-007/hash.c Mon Aug 19 11:52:21 2002
@@ -443,14 +443,14 @@
valtmp.type = enum_key_string;
valtmp.val.string_val
= string_copy(interp, b->value.val.string_val);
- b = lookupBucket(hash, i);
+// b = lookupBucket(hash, i);
break;
case enum_key_pmc:
valtmp.type = enum_key_pmc;
valtmp.val.pmc_val = b->value.val.pmc_val->vtable->clone(
interp, b->value.val.pmc_val);
- b = lookupBucket(hash, i);
+// b = lookupBucket(hash, i);
break;
default:
