[svn:ponie] rev 311 - in trunk: perl src/pmc

Author: nicholas
Date: Fri Jul  8 04:52:11 2005
New Revision: 311

Modified:
   trunk/perl/sv.c
   trunk/src/pmc/perl5cargo_cult.pmc
Log:
Get the NV, er numval, er FLOATVAL via the PMC vtable call.


Modified: trunk/perl/sv.c
==============================================================================
--- trunk/perl/sv.c	(original)
+++ trunk/perl/sv.c	Fri Jul  8 04:52:11 2005
@@ -2310,7 +2310,7 @@ macros.
 NV
 Perl_sv_2nv(pTHX_ SV *sv)
 {
-    return Perl_sv_2nv_backend(aTHX_ sv);
+    return Parrot_PMC_get_numval(PL_Parrot,MUMBLE(sv));
 }
 
 /* asIV(): extract an integer from the string value of an SV.

Modified: trunk/src/pmc/perl5cargo_cult.pmc
==============================================================================
--- trunk/src/pmc/perl5cargo_cult.pmc	(original)
+++ trunk/src/pmc/perl5cargo_cult.pmc	Fri Jul  8 04:52:11 2005
@@ -104,6 +104,10 @@ pmclass Perl5cargo_cult dynpmc {
 	abort();
     }
 
+    FLOATVAL get_number() {
+        return Perl_sv_2nv_backend(aTHX_ MUMBLE(SELF));
+    }
+
     void* get_pointer() {
         return PMC_struct_val(SELF);
     }