Changeset 22945 for v6

Timestamp:

11/09/08 23:04:39 (2 months ago)

Author:

pmurias

Message:

[mildew] small fixes to make t/p6opaque and t/pure_prototype_how work again
[smop] small changes to p6opaque which should be examined by ruoso++

Location:

v6

Files:

• mildew/mildew (modified) (2 diffs)
• smop/src/p6opaque.sm0p (modified) (3 diffs)
• smop/src/s1p_pureprototypehow.sm0p (modified) (1 diff)

v6/mildew/mildew

@@ -241 +241 @@
             my @positional = $positional ? $positional->emit_m0ld : ();
             my $ident = $methodop->{longname}->canonical;
-            if ($m->{sym} eq '^!') {
+            if ($m->{sym} eq '.^!') {
                 $ident = '^!' . $ident;
             }
@@ -253 +253 @@
     } elsif (my $postop = $m->{dottyop}{postop}) {
         if (my $postcircumfix = $postop->{postcircumfix}) {
-            my $positional = $methodop->{semilist}[0]{statement}[0];
+            my $positional = $postcircumfix->{semilist}{statement}[0];
             my @positional = $positional ? $positional->emit_m0ld : ();
             AST::Call->new(

v6/smop/src/p6opaque.sm0p

@@ -6 +6 @@
 #include <smop_s1p.h>
 #include <smop_oo.h>
+#include <smop_mold.h>
 #include <smop_lowlevel.h>
 
@@ -305 +306 @@
     } else if (SMOP_RI(invocant) != (SMOP__ResponderInterface*)SMOP__p6opaque__RI) {
       fprintf(stderr,"[smop p6opaque] dispatching with non p6opaque invocant\n");
+    } else if (invocant == SMOP__p6opaque__RI && identifier == SMOP__ID__FETCH) {
+       ___VALUE_FETCH___;
     } else if (invocant == SMOP__p6opaque__RI) {
       fprintf(stderr,"[smop p6opaque] dispatching with p6opaque RI (%s)\n",(char*)(identifier->data + sizeof(int)));
@@ -453 +456 @@
     } else if (actualidentifier == SMOP__ID__STORE) {
       ___VALUE_STORE___;
-    } else {
+    } else if (actualidentifier == SMOP__ID__DESTROYALL) {
+      
+    } else {
+      identifier = actualidentifier;
       ___UNKNOWN_METHOD___;
     }

v6/smop/src/s1p_pureprototypehow.sm0p

@@ -44 +44 @@
     SMOP_DISPATCH(interpreter,SMOP_RI(interpreter),SMOP__ID__goto,frame);
 
+  } else if (SMOP__ID__FETCH == identifier) {
+    ___VALUE_FETCH___;
   } else {
     ___UNKNOWN_METHOD___;