# 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)