From 019106d74e8bffd6c996623bcde57968893eb6c7 Mon Sep 17 00:00:00 2001
From: dukeleto <dukeleto@d31e2699-5ff4-0310-a27c-f18f2fbe73fe>
Date: Wed, 30 Sep 2009 03:22:22 +0000
Subject: [PATCH] [t][tools] Allow assigning to lowercase register names in
 parrot_debugger, since printing lowercase register names is allowed

git-svn-id: https://svn.parrot.org/parrot/trunk@41570 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
---
 src/debug.c               | 2 +-
 t/tools/parrot_debugger.t | 8 +++++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/debug.c b/src/debug.c
index e0f4f513bc..e250045596 100644
--- a/src/debug.c
+++ b/src/debug.c
@@ -3221,7 +3221,7 @@ PDB_assign(PARROT_INTERP, ARGIN(const char *command))
         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);
 
diff --git a/t/tools/parrot_debugger.t b/t/tools/parrot_debugger.t
index 169682e565..fccacdb588 100644
--- a/t/tools/parrot_debugger.t
+++ b/t/tools/parrot_debugger.t
@@ -240,6 +240,12 @@ pdb_output_like( <<PIR, "pir", "t\na I0 17", qr/I0 = 17/, 'assign to an integer
 .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 @@ pdb_output_like( <<PIR, "pir", "t\nw I0 == 2\nt", qr/Adding watchpoint/, 'watchp
 .end
 PIR
 
-BEGIN { $tests += 44 }
+BEGIN { $tests += 45 }
 
 BEGIN { plan tests => $tests; }
 
-- 
2.11.4.GIT