[Bast-commits] r5137 - Devel-Declare/1.000/trunk

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-11-15 15:04:26 +0000 (Sat, 15 Nov 2008)
New Revision: 5137

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
Fix some compiler warnings.

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2008-11-14 20:49:03 UTC (rev 5136)
+++ Devel-Declare/1.000/trunk/Declare.xs	2008-11-15 15:04:26 UTC (rev 5137)
@@ -114,7 +114,7 @@
 }
 
 void dd_set_linestr(pTHX_ char* new_value) {
-  int new_len = strlen(new_value);
+  unsigned int new_len = strlen(new_value);
 
   if (SvLEN(PL_linestr) < new_len) {
     croak("forced to realloc PL_linestr for line %s, bailing out before we crash harder", SvPVX(PL_linestr));
@@ -182,7 +182,6 @@
 int dd_toke_scan_ident(pTHX_ int offset) {
     char tmpbuf[sizeof PL_tokenbuf];
     char* base_s = SvPVX(PL_linestr) + offset;
-    STRLEN len;
     char* s = scan_ident(base_s, PL_bufend, tmpbuf, sizeof tmpbuf, 0);
     return s - base_s;
 }
@@ -206,6 +205,8 @@
   OP* kid;
   int dd_flags;
 
+  PERL_UNUSED_VAR(user_data);
+
   if (in_declare) {
     if (dd_debug) {
       printf("Deconstructing declare\n");
@@ -299,6 +300,8 @@
 }
 
 STATIC OP *dd_ck_entereval(pTHX_ OP *o, void *user_data) {
+  PERL_UNUSED_VAR(user_data);
+
   if (o->op_ppaddr == PL_ppaddr[OP_ENTEREVAL])
     o->op_ppaddr = dd_pp_entereval;
   return o;
@@ -316,6 +319,8 @@
   int dd_flags;
   char* name;
 
+  PERL_UNUSED_VAR(user_data);
+
   /* if this is set, we just grabbed a delimited string or something,
      not a bareword, so NO TOUCHY */