[svn:parrot] r41570 - in trunk: src t/tools

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Wed Sep 30 03:22:22 2009
New Revision: 41570
URL: https://trac.parrot.org/parrot/changeset/41570

Log:
[t][tools] Allow assigning to lowercase register names in parrot_debugger, since printing lowercase register names is allowed

Modified:
   trunk/src/debug.c
   trunk/t/tools/parrot_debugger.t

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	Wed Sep 30 03:03:28 2009	(r41569)
+++ trunk/src/debug.c	Wed Sep 30 03:22:22 2009	(r41570)
@@ -3221,7 +3221,7 @@
         Parrot_io_eprintf(debugger, "Must give a register number and value to assign\n");
         return;
     }
-    reg_type_id = (char) command[0];
+    reg_type_id = (unsigned char) toupper((unsigned char) command[0]);
     command++;
     register_num = get_ulong(&command, 0);
 

Modified: trunk/t/tools/parrot_debugger.t
==============================================================================
--- trunk/t/tools/parrot_debugger.t	Wed Sep 30 03:03:28 2009	(r41569)
+++ trunk/t/tools/parrot_debugger.t	Wed Sep 30 03:22:22 2009	(r41570)
@@ -240,6 +240,12 @@
 .end
 PIR
 
+pdb_output_like( <<PIR, "pir", "t\na i0 17", qr/I0 = 17/, 'assign to an integer register (lowercase)');
+.sub main :main
+    \$I0 = 242
+.end
+PIR
+
 pdb_output_like( <<PIR, "pir", "a Z0 42", qr/Invalid register type Z/, 'assign to an invalid register');
 .sub main :main
     \$I0 = 242
@@ -295,7 +301,7 @@
 .end
 PIR
 
-BEGIN { $tests += 44 }
+BEGIN { $tests += 45 }
 
 BEGIN { plan tests => $tests; }