[perl #37569] Compiler Warnings Patch

[via RT]

# New Ticket Created by  Kevin Tew 
# Please include the string:  [perl #37569]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=37569 >


Compiler Warnings Patch

Index: src/dod.c
===================================================================
--- src/dod.c   (revision 9654)
+++ src/dod.c   (working copy)
@@ -296,7 +296,7 @@
     /* Now, go run through the PMC registers and mark them as live */
     /* First mark the current set. */
     ctx = CONTEXT(interpreter->ctx);
-    for (i = 0; i < ctx->n_regs_used[REGNO_PMC]; i++) {
+    for (i = 0; i < (unsigned int)ctx->n_regs_used[REGNO_PMC]; i++) {
         if (REG_PMC(i)) {
             pobject_lives(interpreter, (PObj *)REG_PMC(i));
         }
@@ -509,7 +509,7 @@
     /* First mark the current set. We assume that all pointers in S registers
      * are pointing to valid buffers. This is not a good assumption, but it'll
      * do for now. */
-    for (i = 0; i < CONTEXT(interpreter->ctx)->n_regs_used[REGNO_STR]; i++) {
+    for (i = 0; i < (unsigned 
int)CONTEXT(interpreter->ctx)->n_regs_used[REGNO_STR]; i++) {
         Buffer *reg = (Buffer *)REG_STR(i);
 
         if (reg)