cvs commit: parrot/dynclasses pyproxyclass.pmc pyproxytype.pmc

[Sam Ruby]

cvsuser     04/12/14 03:40:07

  Modified:    dynclasses pyproxyclass.pmc pyproxytype.pmc
  Log:
  Second attempt to fix bug #33036
  
  Revision  Changes    Path
  1.3       +4 -4      parrot/dynclasses/pyproxyclass.pmc
  
  Index: pyproxyclass.pmc
  ===================================================================
  RCS file: /cvs/public/parrot/dynclasses/pyproxyclass.pmc,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- pyproxyclass.pmc  14 Dec 2004 03:12:06 -0000      1.2
  +++ pyproxyclass.pmc  14 Dec 2004 11:40:07 -0000      1.3
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: pyproxyclass.pmc,v 1.2 2004/12/14 03:12:06 rubys Exp $
  +$Id: pyproxyclass.pmc,v 1.3 2004/12/14 11:40:07 rubys Exp $
   
   =head1 NAME
   
  @@ -24,7 +24,7 @@
   #include "parrot/parrot.h"
   
   static INTVAL dynclass_PyProxyClass;
  -STRING *PROXY_STRING;
  +static STRING *PROXY;
   
   pmclass PyProxyClass extends PyObject dynpmc group python_group {
   
  @@ -43,7 +43,7 @@
           if (pass) {
               dynclass_PyProxyClass = Parrot_PMC_typenum(INTERP, 
"PyProxyClass");
   
  -            PROXY_STRING = const_string(INTERP, "__proxy__");
  +            PROXY = const_string(INTERP, "__proxy__");
           }
       }
   
  @@ -101,7 +101,7 @@
               internal_exception(1, "Invoke() called on a PyProxyClass 
object");
   
           INTERP->ctx.current_object = REG_PMC(2) = 
  -            VTABLE_getprop(INTERP, proxy, PROXY_STRING);
  +            VTABLE_getprop(INTERP, proxy, PROXY);
   
           return VTABLE_invoke(INTERP, (PMC*)PMC_struct_val(SELF), next);
       }
  
  
  
  1.3       +8 -8      parrot/dynclasses/pyproxytype.pmc
  
  Index: pyproxytype.pmc
  ===================================================================
  RCS file: /cvs/public/parrot/dynclasses/pyproxytype.pmc,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- pyproxytype.pmc   14 Dec 2004 03:12:06 -0000      1.2
  +++ pyproxytype.pmc   14 Dec 2004 11:40:07 -0000      1.3
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: pyproxytype.pmc,v 1.2 2004/12/14 03:12:06 rubys Exp $
  +$Id: pyproxytype.pmc,v 1.3 2004/12/14 11:40:07 rubys Exp $
   
   =head1 NAME
   
  @@ -63,11 +63,11 @@
   
   #include "parrot/parrot.h"
   
  -INTVAL dynclass_PyClass;
  -STRING *BASES;
  -STRING *CLASS;
  -STRING *INIT;
  -STRING *PROXY_STRING;
  +static INTVAL dynclass_PyClass;
  +static STRING *BASES;
  +static STRING *CLASS;
  +static STRING *INIT;
  +static STRING *PROXY;
   
   pmclass PyProxyType extends PyType dynpmc group python_group {
   
  @@ -88,7 +88,7 @@
               BASES = const_string(INTERP, "__bases__");
               CLASS = const_string(INTERP, "__class__");
               INIT  = const_string(INTERP, "__init__");
  -            PROXY_STRING = const_string(INTERP, "__proxy__");
  +            PROXY = const_string(INTERP, "__proxy__");
           }
       }
   
  @@ -128,7 +128,7 @@
               object = REG_PMC(5);
           }
   
  -        VTABLE_setprop(INTERP, proxy, PROXY_STRING, object);
  +        VTABLE_setprop(INTERP, proxy, PROXY, object);
   
           REG_PMC(5) = proxy;
           return next;