[svn:mod_parrot] r306 - mod_parrot/trunk/src

Author: jhorwitz
Date: Tue Jan  8 13:14:48 2008
New Revision: 306

Modified:
   mod_parrot/trunk/src/context.c
   mod_parrot/trunk/src/mod_parrot.c
   mod_parrot/trunk/src/parrot_util.c

Log:
fix some compiler warnings


Modified: mod_parrot/trunk/src/context.c
==============================================================================
--- mod_parrot/trunk/src/context.c	(original)
+++ mod_parrot/trunk/src/context.c	Tue Jan  8 13:14:48 2008
@@ -61,7 +61,7 @@
     if (!ctx_pool) return;
 
     /* pop each context off the list and destroy its interpreter */
-    while (ctxpp = apr_array_pop(ctx_pool)) {
+    while ((ctxpp = apr_array_pop(ctx_pool))) {
         if ((*ctxpp)->interp && !(*ctxpp)->parent_interp) {
             modparrot_destroy_interpreter((*ctxpp)->interp);
             (*ctxpp)->interp = NULL;
@@ -74,7 +74,9 @@
 /* finds and reserves a context for use by a handler */
 modparrot_context *reserve_ctx(apr_array_header_t *ctx_pool)
 {
+#ifdef MPM_IS_THREADED
     int i;
+#endif
     modparrot_context *ctx;
 
     if (!ctx_pool) return NULL;

Modified: mod_parrot/trunk/src/mod_parrot.c
==============================================================================
--- mod_parrot/trunk/src/mod_parrot.c	(original)
+++ mod_parrot/trunk/src/mod_parrot.c	Tue Jan  8 13:14:48 2008
@@ -133,8 +133,6 @@
 int modparrot_hll_handler(Parrot_Interp interp, char *hll, char *hll_handler,
     char *handler, int *ret)
 {
-    char hll_namespace[255];
-
     if (!hll) hll = MODPARROT_DEFAULT_HLL;
     modparrot_call_sub_IS(interp, hll, hll_handler, ret, handler);
     return(1);
@@ -984,12 +982,8 @@
 
 static apr_status_t modparrot_request_cleanup(void *data)
 {
-    modparrot_srv_config *cfg;
-    apr_array_header_t *ctx_pool;
     request_rec *r = (request_rec *)data;
-
     modparrot_cleanup_handler(r);
-
     return APR_SUCCESS;
 }
 

Modified: mod_parrot/trunk/src/parrot_util.c
==============================================================================
--- mod_parrot/trunk/src/parrot_util.c	(original)
+++ mod_parrot/trunk/src/parrot_util.c	Tue Jan  8 13:14:48 2008
@@ -74,7 +74,6 @@
 {
     Parrot_Interp interp;
     Parrot_PackFile pf;
-    struct PackFile_Segment *seg;
 
     interp = Parrot_new(parent);
     imcc_init(interp);