perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r24605 - branches/pdd17pmc/src/pmc

Subject: [svn:parrot] r24605 - branches/pdd17pmc/src/pmc
From:
Date: Sun, 6 Jan 2008 07:05:41 -0800 PST
Newsgroups: perl.cvs.parrot

Author: allison
Date: Sun Jan  6 07:05:41 2008
New Revision: 24605

Modified:
   branches/pdd17pmc/src/pmc/addrregistry.pmc
   branches/pdd17pmc/src/pmc/array.pmc
   branches/pdd17pmc/src/pmc/bigint.pmc
   branches/pdd17pmc/src/pmc/complex.pmc
   branches/pdd17pmc/src/pmc/continuation.pmc
   branches/pdd17pmc/src/pmc/enumerate.pmc
   branches/pdd17pmc/src/pmc/fixedbooleanarray.pmc
   branches/pdd17pmc/src/pmc/fixedfloatarray.pmc
   branches/pdd17pmc/src/pmc/fixedintegerarray.pmc
   branches/pdd17pmc/src/pmc/fixedpmcarray.pmc
   branches/pdd17pmc/src/pmc/fixedstringarray.pmc
   branches/pdd17pmc/src/pmc/float.pmc
   branches/pdd17pmc/src/pmc/hash.pmc
   branches/pdd17pmc/src/pmc/iterator.pmc
   branches/pdd17pmc/src/pmc/nci.pmc
   branches/pdd17pmc/src/pmc/parrotio.pmc
   branches/pdd17pmc/src/pmc/parrotlibrary.pmc
   branches/pdd17pmc/src/pmc/pointer.pmc
   branches/pdd17pmc/src/pmc/sarray.pmc
   branches/pdd17pmc/src/pmc/string.pmc
   branches/pdd17pmc/src/pmc/sub.pmc
   branches/pdd17pmc/src/pmc/undef.pmc

Log:
[pdd17pmc] VTABLEizing get_bool routines for all core PMCs.


Modified: branches/pdd17pmc/src/pmc/addrregistry.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/addrregistry.pmc  (original)
+++ branches/pdd17pmc/src/pmc/addrregistry.pmc  Sun Jan  6 07:05:41 2008
@@ -104,7 +104,7 @@
         return parrot_hash_size(INTERP, (Hash *)PMC_struct_val(SELF));
     }
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         return parrot_hash_size(INTERP, (Hash *)PMC_struct_val(SELF)) != 0;
     }
 /*

Modified: branches/pdd17pmc/src/pmc/array.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/array.pmc (original)
+++ branches/pdd17pmc/src/pmc/array.pmc Sun Jan  6 07:05:41 2008
@@ -259,7 +259,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         const INTVAL size = DYNSELF.elements();
         return (INTVAL)(size != 0);
     }

Modified: branches/pdd17pmc/src/pmc/bigint.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/bigint.pmc        (original)
+++ branches/pdd17pmc/src/pmc/bigint.pmc        Sun Jan  6 07:05:41 2008
@@ -662,7 +662,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         return bigint_get_bool(INTERP, SELF);
     }
 

Modified: branches/pdd17pmc/src/pmc/complex.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/complex.pmc       (original)
+++ branches/pdd17pmc/src/pmc/complex.pmc       Sun Jan  6 07:05:41 2008
@@ -437,7 +437,7 @@
         return Parrot_sprintf_c(INTERP, "%vg%+vgi", RE(SELF), IM(SELF));
     }
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         return !(FLOAT_IS_ZERO(RE(SELF)) && FLOAT_IS_ZERO(IM(SELF)));
     }
 

Modified: branches/pdd17pmc/src/pmc/continuation.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/continuation.pmc  (original)
+++ branches/pdd17pmc/src/pmc/continuation.pmc  Sun Jan  6 07:05:41 2008
@@ -209,7 +209,7 @@
         return PMC_cont(SELF)->address != NULL;
     }
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         return PMC_cont(SELF)->address != NULL;
     }
 

Modified: branches/pdd17pmc/src/pmc/enumerate.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/enumerate.pmc     (original)
+++ branches/pdd17pmc/src/pmc/enumerate.pmc     Sun Jan  6 07:05:41 2008
@@ -39,7 +39,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         PMC   *key  = (PMC *)PMC_struct_val(SELF);
         PMC   *iter = (PMC *)PMC_pmc_val(SELF);
         INTVAL ok   = PMC_int_val(key) >= 0 && VTABLE_get_bool(INTERP, iter);

Modified: branches/pdd17pmc/src/pmc/fixedbooleanarray.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/fixedbooleanarray.pmc     (original)
+++ branches/pdd17pmc/src/pmc/fixedbooleanarray.pmc     Sun Jan  6 07:05:41 2008
@@ -126,7 +126,7 @@
 =cut
 
 */
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         return SELF.elements() ? 1 : 0;
     }
 

Modified: branches/pdd17pmc/src/pmc/fixedfloatarray.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/fixedfloatarray.pmc       (original)
+++ branches/pdd17pmc/src/pmc/fixedfloatarray.pmc       Sun Jan  6 07:05:41 2008
@@ -116,7 +116,7 @@
 =cut
 
 */
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         INTVAL size = SELF.elements();
         return (INTVAL)(size != 0);
     }

Modified: branches/pdd17pmc/src/pmc/fixedintegerarray.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/fixedintegerarray.pmc     (original)
+++ branches/pdd17pmc/src/pmc/fixedintegerarray.pmc     Sun Jan  6 07:05:41 2008
@@ -211,7 +211,7 @@
 =cut
 
 */
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         INTVAL size = SELF.elements();
         return (INTVAL)(size != 0);
     }

Modified: branches/pdd17pmc/src/pmc/fixedpmcarray.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/fixedpmcarray.pmc (original)
+++ branches/pdd17pmc/src/pmc/fixedpmcarray.pmc Sun Jan  6 07:05:41 2008
@@ -200,7 +200,7 @@
 =cut
 
 */
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         INTVAL size = DYNSELF.elements();
         return (INTVAL)(size != 0);
     }

Modified: branches/pdd17pmc/src/pmc/fixedstringarray.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/fixedstringarray.pmc      (original)
+++ branches/pdd17pmc/src/pmc/fixedstringarray.pmc      Sun Jan  6 07:05:41 2008
@@ -143,7 +143,7 @@
 =cut
 
 */
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         const INTVAL size = SELF.elements();
         return (INTVAL)(size != 0);
     }

Modified: branches/pdd17pmc/src/pmc/float.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/float.pmc (original)
+++ branches/pdd17pmc/src/pmc/float.pmc Sun Jan  6 07:05:41 2008
@@ -96,7 +96,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         FLOATVAL f = PMC_num_val(SELF);
         return !FLOAT_IS_ZERO(f);
     }

Modified: branches/pdd17pmc/src/pmc/hash.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/hash.pmc  (original)
+++ branches/pdd17pmc/src/pmc/hash.pmc  Sun Jan  6 07:05:41 2008
@@ -500,7 +500,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         return parrot_hash_size(INTERP, (Hash *)PMC_struct_val(SELF)) != 0;
     }
 

Modified: branches/pdd17pmc/src/pmc/iterator.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/iterator.pmc      (original)
+++ branches/pdd17pmc/src/pmc/iterator.pmc      Sun Jan  6 07:05:41 2008
@@ -273,7 +273,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         PMC * const key = (PMC *)PMC_struct_val(SELF);
         return key && PMC_int_val(key) != -1;
     }

Modified: branches/pdd17pmc/src/pmc/nci.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/nci.pmc   (original)
+++ branches/pdd17pmc/src/pmc/nci.pmc   Sun Jan  6 07:05:41 2008
@@ -247,7 +247,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         Parrot_NCI * const nci_info = PARROT_NCI(SELF);
         return (0 != (INTVAL)nci_info->func);
     }

Modified: branches/pdd17pmc/src/pmc/parrotio.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/parrotio.pmc      (original)
+++ branches/pdd17pmc/src/pmc/parrotio.pmc      Sun Jan  6 07:05:41 2008
@@ -422,7 +422,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         return !PIO_eof(INTERP, SELF);
     }
 

Modified: branches/pdd17pmc/src/pmc/parrotlibrary.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/parrotlibrary.pmc (original)
+++ branches/pdd17pmc/src/pmc/parrotlibrary.pmc Sun Jan  6 07:05:41 2008
@@ -111,7 +111,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         return (PMC_data(SELF) != NULL);
     }
 

Modified: branches/pdd17pmc/src/pmc/pointer.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/pointer.pmc       (original)
+++ branches/pdd17pmc/src/pmc/pointer.pmc       Sun Jan  6 07:05:41 2008
@@ -153,7 +153,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         return (INTVAL)(PMC_data(SELF) != NULL);
     }
 

Modified: branches/pdd17pmc/src/pmc/sarray.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/sarray.pmc        (original)
+++ branches/pdd17pmc/src/pmc/sarray.pmc        Sun Jan  6 07:05:41 2008
@@ -392,7 +392,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         INTVAL size = DYNSELF.elements();
         return (INTVAL)(size != 0);
     }

Modified: branches/pdd17pmc/src/pmc/string.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/string.pmc        (original)
+++ branches/pdd17pmc/src/pmc/string.pmc        Sun Jan  6 07:05:41 2008
@@ -165,7 +165,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         STRING * const s = VTABLE_get_string(INTERP, SELF);
         return s ? string_bool(INTERP, s) : 0;
     }

Modified: branches/pdd17pmc/src/pmc/sub.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/sub.pmc   (original)
+++ branches/pdd17pmc/src/pmc/sub.pmc   Sun Jan  6 07:05:41 2008
@@ -182,7 +182,7 @@
         return 1;
     }
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         return 1;
     }
 

Modified: branches/pdd17pmc/src/pmc/undef.pmc
==============================================================================
--- branches/pdd17pmc/src/pmc/undef.pmc (original)
+++ branches/pdd17pmc/src/pmc/undef.pmc Sun Jan  6 07:05:41 2008
@@ -189,7 +189,7 @@
 
 */
 
-    INTVAL get_bool() {
+    VTABLE INTVAL get_bool() {
         return 0;
     }
 

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r24605 - branches/pdd17pmc/src/pmc, allison <=