[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