develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35526 - trunk/src

From:
cotto
Date:
January 14, 2009 04:43
Subject:
[svn:parrot] r35526 - trunk/src
Message ID:
20090114124321.522C4CB9AE@x12.develooper.com
Author: cotto
Date: Wed Jan 14 04:43:20 2009
New Revision: 35526

Modified:
   trunk/src/key.c

Log:
[key] remove a few PMC_int_val instances


Modified: trunk/src/key.c
==============================================================================
--- trunk/src/key.c	(original)
+++ trunk/src/key.c	Wed Jan 14 04:43:20 2009
@@ -440,7 +440,7 @@
             return VTABLE_get_string(interp, reg);
         }
         case KEY_integer_FLAG:
-            return string_from_int(interp, PMC_int_val(key));
+            return string_from_int(interp, key_integer(interp, key));
         case KEY_integer_FLAG | KEY_register_FLAG:
             return string_from_int(interp, REG_INT(interp, PMC_int_val(key)));
         default:
@@ -595,7 +595,7 @@
         switch (PObj_get_FLAGS(key) & KEY_type_FLAGS) {
             case KEY_integer_FLAG:
                 value = string_append(interp, value,
-                    string_from_int(interp, PMC_int_val(key)));
+                    string_from_int(interp, key_integer(interp, key)));
                 break;
             case KEY_string_FLAG:
                 value = string_append(interp, value, quote);



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About