diff --git a/src/interpret.c b/src/interpret.c
index a09c813ad56b7fe8a61bc165b8dac7feaa7240aa..6a866ee02f6ae9059daf8cc7a47e0a691939701e 100644
--- a/src/interpret.c
+++ b/src/interpret.c
@@ -5,7 +5,7 @@
 \*/
 /**/
 #include "global.h"
-RCSID("$Id: interpret.c,v 1.162 2000/08/10 08:38:20 grubba Exp $");
+RCSID("$Id: interpret.c,v 1.163 2000/08/10 19:31:03 grubba Exp $");
 #include "interpret.h"
 #include "object.h"
 #include "program.h"
@@ -546,7 +546,8 @@ void dump_backlog(void)
 	fprintf(stderr,"(%ld)", (long)backlog[e].arg);
       }
       fprintf(stderr," %ld, %ld\n",
-	      (long)backlog[e].stack, (long)backlog[e].mark_stack);
+	      DO_NOT_WARN((long)backlog[e].stack),
+	      DO_NOT_WARN((long)backlog[e].mark_stack));
     }
   }while(e!=backlogp);
 }
@@ -849,7 +850,7 @@ PMOD_EXPORT void mega_apply2(enum apply_type type, INT32 args, void *arg1, void
 #endif
     if(!o->prog)
       PIKE_ERROR("destructed object", "Apply on destructed object.\n", Pike_sp, args);
-    fun=FIND_LFUN(o->prog,fun);
+    fun = FIND_LFUN(o->prog, fun);
     goto apply_low;
   
 
@@ -900,7 +901,8 @@ PMOD_EXPORT void mega_apply2(enum apply_type type, INT32 args, void *arg1, void
       if(fun>=(int)p->num_identifier_references)
       {
 	fprintf(stderr, "Function index out of range. %ld >= %d\n",
-		(long)fun, (int)p->num_identifier_references);
+		DO_NOT_WARN((long)fun),
+		(int)p->num_identifier_references);
 	fprintf(stderr,"########Program is:\n");
 	describe(p);
 	fprintf(stderr,"########Object is:\n");
@@ -953,7 +955,7 @@ PMOD_EXPORT void mega_apply2(enum apply_type type, INT32 args, void *arg1, void
       new_frame->locals = Pike_sp - args;
       new_frame->expendible = new_frame->locals;
       new_frame->args = args;
-      new_frame->fun = fun;
+      new_frame->fun = DO_NOT_WARN((unsigned INT16)fun);
       new_frame->current_storage = o->storage+new_frame->context.storage_offset;
       new_frame->pc = 0;
       new_frame->scope=scope;
diff --git a/src/modules/sprintf/sprintf.c b/src/modules/sprintf/sprintf.c
index 1af3deeb823c94525661fef29b9fa61031a05c29..bdd35cfe4356c56467ec79c1a7a7f66e08a5bb35 100644
--- a/src/modules/sprintf/sprintf.c
+++ b/src/modules/sprintf/sprintf.c
@@ -103,7 +103,7 @@
 */
 
 #include "global.h"
-RCSID("$Id: sprintf.c,v 1.71 2000/08/10 19:29:04 grubba Exp $");
+RCSID("$Id: sprintf.c,v 1.72 2000/08/10 19:30:00 grubba Exp $");
 #include "error.h"
 #include "array.h"
 #include "svalue.h"
@@ -153,7 +153,7 @@ struct format_info
   short flags;
   char pos_pad;
   int column_width;
-  int column_modulo;
+  ptrdiff_t column_modulo;
 };
 
 /* FIXME:
@@ -588,7 +588,7 @@ INLINE static int do_one(struct format_stack *fs,
   }
   else if(f->flags & COLUMN_MODE)
   {
-    int mod;
+    ptrdiff_t mod;
     ptrdiff_t col;
     PCHARP end;