CRIS: Handle GDB writes to pregs.

git-svn-id: svn://svn.savannah.nongnu.org/qemu/trunk@5461 c046a42c-6fe2-441c-8c8c-71466251a162
diff --git a/gdbstub.c b/gdbstub.c
index 0ff6325..15a0af2 100644
--- a/gdbstub.c
+++ b/gdbstub.c
@@ -977,11 +977,15 @@
 	env->regs[n] = tmp;
     }
 
-    /* FIXME: Should other regs be writable?  */
+    if (n >= 21 && n < 32) {
+	env->pregs[n - 16] = tmp;
+    }
+
+    /* FIXME: Should support function regs be writable?  */
     switch (n) {
     case 16: return 1;
     case 17: return 1;
-    case 18: return 4;
+    case 18: env->pregs[PR_PID] = tmp; break;
     case 19: return 1;
     case 20: return 2;
     case 32: env->pc = tmp; break;