Changeset 22796 for v6

Timestamp:

10/28/08 13:25:27 (2 months ago)

Author:

ruoso

Message:

[smop-XS] when p5 releases a smop object, an interpreter loop is called...

Location:

v6/smop/SMOP

Files:

• SMOP.xs (modified) (2 diffs)
• lib/SMOP.pm (modified) (2 diffs)

v6/smop/SMOP/SMOP.xs

@@ -22 +22 @@
     SMOP__Object* object = (SMOP__Object*)SvIV(value);    
     SMOP_RELEASE(SMOP__GlobalInterpreter,object);
+    SMOP_DISPATCH(SMOP__GlobalInterpreter, SMOP_RI(SMOP__GlobalInterpreter),
+                  SMOP__ID__loop, SMOP__NATIVE__capture_create(SMOP__GlobalInterpreter,
+                                                               SMOP_REFERENCE(SMOP__GlobalInterpreter, SMOP__GlobalInterpreter),
+                                                               NULL, NULL));
 
 SV*
@@ -67 +71 @@
     SV* value = SvRV(self);
     SMOP__Object* object = (SMOP__Object*)SvIV(value);
-    if (SMOP_RI(object) == SMOP__NATIVE__int) {
+    if (SMOP_RI(object) == (SMOP__ResponderInterface*)SMOP__NATIVE__int) {
         RETVAL = SMOP__NATIVE__int_fetch(object);
     } else {

v6/smop/SMOP/lib/SMOP.pm

@@ -13 +13 @@
 1;
 __END__
-# Below is stub documentation for your module. You'd better edit it!
 
 =head1 NAME
@@ -29 +28 @@
   my $mold = SMOP::Mold->create([$int, $true, $fals],[1,2,3,1,2,3,1,2,3]);
   my $frame = SMOP::MoldFrame->create($mold);
-  my $result = SMOP::Interpreter->goto($frame);
+  my $result = SMOP::Interpreter->run($frame);
 
 =head1 DESCRIPTION