From: gfx <gfuji@cpan.org>
Date: Fri, 21 Aug 2009 08:59:54 +0000 (+0900)
Subject: Cleanup *.xs, *.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4be6a82362af13190fe130c31c3db39e1ed78284;p=gitmo%2FMoose.git

Cleanup *.xs, *.c
---

diff --git a/xs/Moose.xs b/xs/Moose.xs
index 21e6dd5..b952a9e 100644
--- a/xs/Moose.xs
+++ b/xs/Moose.xs
@@ -23,12 +23,12 @@ moose_throw_error(SV* const metaobject, SV* const data, const char* const fmt, .
         PUSHs(metaobject);
         mPUSHs(message);
 
-        mPUSHp("depth", sizeof("depth")-1);
+        mPUSHs(newSVpvs("depth"));
         mPUSHi(-1);
 
         if(data){
             EXTEND(SP, 2);
-            mPUSHp("data", sizeof("data")-1);
+            mPUSHp(newSVpvs("data"));
             PUSHs(data);
         }
         PUTBACK;
diff --git a/xs/moose_accessor.c b/xs/moose_accessor.c
index 5a1b306..af29e72 100644
--- a/xs/moose_accessor.c
+++ b/xs/moose_accessor.c
@@ -5,8 +5,6 @@
 /* Moose Meta Instance object */
 enum moose_mi_ix_t{
     MOOSE_MI_ACCESSOR = MOP_MI_last,
-    MOOSE_MI_CLASS,
-    MOOSE_MI_INSTANCE,
     MOOSE_MI_ATTRIBUTE,
     MOOSE_MI_TC,
     MOOSE_MI_TC_CODE,
@@ -53,11 +51,7 @@ enum moose_mi_flags_t{
 
 CV*
 moose_instantiate_xs_accessor(pTHX_ SV* const accessor, XSPROTO(accessor_impl), const mop_instance_vtbl* const instance_vtbl){
-        /* $key = $accessor->associated_attribute->name */
-    SV* const metaclass = mop_call0_pvs(accessor,  "associated_metaclass");
-    SV* const instance  = mop_call0_pvs(metaclass, "get_meta_instance");
     SV* const attr      = mop_call0_pvs(accessor,  "associated_attribute");
-
     SV* const key       = mop_call0_pvs(attr, "name");
     STRLEN klen;
     const char* const kpv = SvPV_const(key, klen);
@@ -69,17 +63,12 @@ moose_instantiate_xs_accessor(pTHX_ SV* const accessor, XSPROTO(accessor_impl),
     U16 flags    = 0;
 
     assert(instance_vtbl);
-    assert(sv_isobject(metaclass));
-    assert(sv_isobject(instance));
-    assert(sv_isobject(attr));
 
     /* setup mi information */
 
     av_extend(mi, MOOSE_MI_last - 1);
 
     av_store(mi, MOOSE_MI_ACCESSOR,  sv_rvweaken(newSVsv(accessor)));
-    av_store(mi, MOOSE_MI_CLASS,     sv_rvweaken(newSVsv(metaclass)));
-    av_store(mi, MOOSE_MI_INSTANCE,  sv_rvweaken(newSVsv(instance)));
     av_store(mi, MOOSE_MI_ATTRIBUTE, sv_rvweaken(newSVsv(attr)));
 
     /* prepare attribute status */