Changeset 22052

Timestamp:

08/28/08 09:45:51 (3 months ago)

Author:

pmurias

Message:

[smop]
for uses ->, not -->
fixed a bug in DESTROYALL in mold

Location:

v6/smop

Files:

• src-s1p/P6Meta.pm (modified) (6 diffs)
• src/smop_mold.c (modified) (2 diffs)

v6/smop/src-s1p/P6Meta.pm

@@ -1 @@
-class P6Meta meta ¢SMOP__S1P__PurePrototypeHow {
+class P6Meta meta SMOP__S1P__PurePrototypeHow {
 
 =begin
@@ -135 +135 @@
   method methods($how: $object --> List of Method) {
       my sub list_methods_recurse($obj) {
-          for ($obj.^!methods) --> $selfdef {
+          for ($obj.^!methods) -> $selfdef {
               take $selfdef;
           }
-          for ($obj.^!isa) --> $isa {
+          for ($obj.^!isa) -> $isa {
               list_methods_recurse($isa);
           }
-          for ($obj.^!role) --> $role {
+          for ($obj.^!role) -> $role {
               list_methods_recurse($role);
           }
@@ -148 +148 @@
       List of Method @methods = gather {
           list_methods_recurse($object);
-          for ($object.^!submethods) --> $submethod {
+          for ($object.^!submethods) -> $submethod {
              take $submethod;
           }
@@ -164 +164 @@
 =end
 
-  method attributes($how: $object, --> List of Attribute) {
+  method attributes($how: $object --> List of Attribute) {
       my sub list_attributes_recurse($obj) {
-          for ($obj.^!attributes) --> $attr {
+          for ($obj.^!attributes) -> $attr {
               take $attr;
           }
-          for ($obj.^!isa) --> $isa {
+          for ($obj.^!isa) -> $isa {
               list_attributes_recurse($isa);
           }
-          for ($obj.^!role) --> $role {
+          for ($obj.^!role) -> $role {
               list_attributes_recurse($role);
           }
@@ -194 +194 @@
   method isa($how: $object, $superclass --> bool) {
       return true if $object === $superclass;
-      for ($object.^!isa) --> $isa {
+      for ($object.^!isa) -> $isa {
           return true if $isa === $superclass;
           my $res = $isa.^isa($superclass);
@@ -212 +212 @@
   method does($how: $object, $superclass --> bool) {
       return true if $object === $superclass;
-      for ($object.^!does) --> $isa {
+      for ($object.^!does) -> $isa {
           return true if $isa === $superclass;
           my $res = $isa.^does($superclass);
           return true if $res;
       }
-      for ($object.^!does) --> $does {
+      for ($object.^!does) -> $does {
           return true if $does === $superclass;
           my $res = $does.^does($superclass);

v6/smop/src/smop_mold.c

@@ -292 +292 @@
     }
   } else if (SMOP__ID__DESTROYALL == identifier) {
-    SMOP_RELEASE(interpreter,frame->mold);
     int i;
     for (i=0;i<mold->registers;i++) {
@@ -298 +297 @@
     }
     free(frame->registers);
+    SMOP_RELEASE(interpreter,frame->mold);
   } else {
     ___UNKNOWN_METHOD___;