[svn:parrot] r41580 - trunk/src

[darbelo at svn.parrot.org]

Author: darbelo
Date: Wed Sep 30 17:12:21 2009
New Revision: 41580
URL: https://trac.parrot.org/parrot/changeset/41580

Log:
Kill the unused dump_string functions. Coke++

Modified:
   trunk/src/debug.c

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	Wed Sep 30 14:48:08 2009	(r41579)
+++ trunk/src/debug.c	Wed Sep 30 17:12:21 2009	(r41580)
@@ -3385,33 +3385,6 @@
 
 /*
 
-=item C<static void dump_string(PARROT_INTERP, const STRING *s)>
-
-Dumps the buflen, flags, bufused, strlen, and offset associated with a string
-and the string itself.
-
-=cut
-
-*/
-
-static void
-dump_string(PARROT_INTERP, ARGIN_NULLOK(const STRING *s))
-{
-    ASSERT_ARGS(dump_string)
-    if (!s)
-        return;
-
-    Parrot_io_eprintf(interp, "\tBuflen  =\t%12ld\n", Buffer_buflen(s));
-    Parrot_io_eprintf(interp, "\tFlags   =\t%12ld\n", PObj_get_FLAGS(s));
-    Parrot_io_eprintf(interp, "\tBufused =\t%12ld\n", s->bufused);
-    Parrot_io_eprintf(interp, "\tStrlen  =\t%12ld\n", s->strlen);
-    Parrot_io_eprintf(interp, "\tOffset  =\t%12ld\n",
-                    (char*) s->strstart - (char*) Buffer_bufstart(s));
-    Parrot_io_eprintf(interp, "\tString  =\t%S\n", s);
-}
-
-/*
-
 =item C<void PDB_print(PARROT_INTERP, const char *command)>
 
 Print interp registers.