[svn:parrot] r45031 - trunk/src

petdance at svn.parrot.org petdance at svn.parrot.org
Thu Mar 18 21:32:15 UTC 2010


Author: petdance
Date: Thu Mar 18 21:32:14 2010
New Revision: 45031
URL: https://trac.parrot.org/parrot/changeset/45031

Log:
removed unused variables. Thanks, ICC!

Modified:
   trunk/src/debug.c

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	Thu Mar 18 21:27:46 2010	(r45030)
+++ trunk/src/debug.c	Thu Mar 18 21:32:14 2010	(r45031)
@@ -966,8 +966,6 @@
 PDB_get_command(PARROT_INTERP)
 {
     ASSERT_ARGS(PDB_get_command)
-    unsigned int  i;
-    int           ch;
     char         *c;
     PDB_t        * const pdb = interp->pdb;
 
@@ -1022,8 +1020,6 @@
         if (pdb->cur_command[0] != '\0')
             strcpy(pdb->last_command, pdb->cur_command);
 
-        i = 0;
-
         c = pdb->cur_command;
 
         Parrot_io_eprintf(pdb->debugger, "\n");
@@ -1043,8 +1039,6 @@
                 strcpy(c, aux);
                 Parrot_str_free_cstring(aux);
             }
-
-            ch = '\n';
         }
     }
 }
@@ -1302,7 +1296,6 @@
     char             str[DEBUG_CMD_BUFFER_LENGTH + 1];
     unsigned short   cond_argleft;
     unsigned short   cond_type;
-    unsigned char    regleft;
     int              i, reg_number;
 
     TRACEDEB_MSG("PDB_cond");
@@ -1322,7 +1315,7 @@
 
     /* get the register number */
     auxcmd = ++command;
-    regleft = (unsigned char)get_uint(&command, 0);
+    get_uint(&command, 0);
     if (auxcmd == command) {
         Parrot_io_eprintf(interp->pdb->debugger, "Invalid register\n");
             return NULL;


More information about the parrot-commits mailing list