[svn:parrot] r49301 - trunk/src

plobsing at svn.parrot.org plobsing at svn.parrot.org
Fri Sep 24 22:19:18 UTC 2010


Author: plobsing
Date: Fri Sep 24 22:19:18 2010
New Revision: 49301
URL: https://trac.parrot.org/parrot/changeset/49301

Log:
use safe accessors for keys

Modified:
   trunk/src/packdump.c

Modified: trunk/src/packdump.c
==============================================================================
--- trunk/src/packdump.c	Fri Sep 24 22:15:29 2010	(r49300)
+++ trunk/src/packdump.c	Fri Sep 24 22:19:18 2010	(r49301)
@@ -238,14 +238,13 @@
               case KEY_integer_FLAG:
                 Parrot_io_printf(interp, "        TYPE        => INTEGER\n");
                 Parrot_io_printf(interp, "        DATA        => %ld\n",
-                            VTABLE_get_integer(interp, key));
+                            key_integer(interp, key));
                 Parrot_io_printf(interp, "       },\n");
                 break;
               case KEY_number_FLAG:
                 {
                     size_t ct_index;
-                    FLOATVAL n;
-                    GETATTR_Key_num_key(interp, key, n);
+                    FLOATVAL n = key_number(interp, key);
 
                     Parrot_io_printf(interp, "        TYPE        => NUMBER\n");
                     ct_index = PackFile_ConstTable_rlookup_num(interp, ct, n);
@@ -259,8 +258,7 @@
               case KEY_string_FLAG:
                 {
                     size_t ct_index;
-                    STRING *s;
-                    GETATTR_Key_str_key(interp, key, s);
+                    STRING *s = key_string(interp, key);
 
                     Parrot_io_printf(interp, "        TYPE        => STRING\n");
                     ct_index = PackFile_ConstTable_rlookup_str(interp, ct, s);


More information about the parrot-commits mailing list