[svn:parrot] r35706 - trunk/languages/pipp/src/pmc

[email protected]
Newsgroups perl.cvs.parrot
Message-ID <[email protected]>
Author: bernhard
Date: Sat Jan 17 11:09:05 2009
New Revision: 35706

Modified:
   trunk/languages/pipp/src/pmc/phpfloat.pmc

Log:
[Pipp] Do not use the UnionStruct in PhpFloat PMC

Modified: trunk/languages/pipp/src/pmc/phpfloat.pmc
==============================================================================
--- trunk/languages/pipp/src/pmc/phpfloat.pmc	(original)
+++ trunk/languages/pipp/src/pmc/phpfloat.pmc	Sat Jan 17 11:09:05 2009
@@ -26,6 +26,7 @@
     group    php_group
     hll      PHP
     maps     Float {
+    ATTR FLOATVAL fv;
 
 /*
 
@@ -87,7 +88,7 @@
 */
     METHOD acosh() {
         PMC * const d  = pmc_new(INTERP, VTABLE_type(INTERP, SELF));
-        PMC_num_val(d) = acosh(PMC_num_val(SELF));
+        SET_ATTR_fv(INTERP, d, acosh(SELF.get_number()));
         RETURN(PMC *d);
     }
 
@@ -100,7 +101,7 @@
 */
     METHOD asinh() {
         PMC * const d  = pmc_new(INTERP, VTABLE_type(INTERP, SELF));
-        PMC_num_val(d) = asinh(PMC_num_val(SELF));
+        SET_ATTR_fv(INTERP, d, asinh(SELF.get_number()));
         RETURN(PMC *d);
     }
 
@@ -113,7 +114,7 @@
 */
     METHOD atanh() {
         PMC * const d  = pmc_new(INTERP, VTABLE_type(INTERP, SELF));
-        PMC_num_val(d) = atanh(PMC_num_val(SELF));
+        SET_ATTR_fv(INTERP, d, atanh(SELF.get_number()));
         RETURN(PMC *d);
     }
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.