2000-08-10
2000-08-10 08:42:26 by Henrik Grubbström (Grubba) <grubba@grubba.org>
-
7e1661443662268af7e1e8155c2847372012458d
(14 lines)
(+8/-6)
[
Show
| Annotate
]
Branch: 7.9
Fixed a few warnings.
Rev: src/cpp.c:1.69
Rev: src/interpret.c:1.162
Rev: src/stralloc.h:1.51
5:
\*/
/**/
#include "global.h"
- RCSID("$Id: interpret.c,v 1.161 2000/08/10 08:35:24 grubba Exp $");
+ RCSID("$Id: interpret.c,v 1.162 2000/08/10 08:38:20 grubba Exp $");
#include "interpret.h"
#include "object.h"
#include "program.h"
675:
{
struct object *o;
struct pike_frame *scope=0;
- int fun, tailrecurse=-1;
+ int tailrecurse=-1;
+ ptrdiff_t fun;
struct svalue *save_sp=Pike_sp-args;
#ifdef PROFILING
853:
case APPLY_LOW:
- o=(struct object *)arg1;
- fun=(long)arg2;
+ o = (struct object *)arg1;
+ fun = (ptrdiff_t)arg2;
apply_low:
scope=0;
898: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(fun>=(int)p->num_identifier_references)
{
- fprintf(stderr, "Function index out of range. %d >= %d\n",
- fun, (int)p->num_identifier_references);
+ fprintf(stderr, "Function index out of range. %ld >= %d\n",
+ (long)fun, (int)p->num_identifier_references);
fprintf(stderr,"########Program is:\n");
describe(p);
fprintf(stderr,"########Object is:\n");