pike.git/ src/ program.c

2001-09-24

2001-09-24 16:58:33 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 1f88bfc3b4adeb4e276619f8e0ccd15766e68674 (11 lines) (+4/-7) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed a few warnings.

Rev: src/builtin.cmod:1.66
Rev: src/builtin_functions.c:1.406
Rev: src/combine_path.h:1.8
Rev: src/iterators.cmod:1.14
Rev: src/las.c:1.266
Rev: src/peep.c:1.70
Rev: src/program.c:1.372
Rev: src/stralloc.c:1.136
Rev: src/svalue.c:1.124
Rev: src/threads.c:1.166

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.371 2001/09/20 19:09:37 hubbe Exp $"); + RCSID("$Id: program.c,v 1.372 2001/09/24 16:42:48 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
1927:       if(Pike_compiler->init_node)    { -  union idptr tmp; +     e=dooptcode(s,    mknode(F_COMMA_EXPR,    Pike_compiler->init_node,mknode(F_RETURN,mkintnode(0),0)),
2475:    int e;    ptrdiff_t inherit_offset, storage_offset;    struct inherit inherit; -  struct pike_string *s; +       #if 0    fprintf(stderr,"LOW_INHERIT(pid=%d, parent=%p, parid=%d, paroff=%d, flags=0x%x, name=%s);\n",
3309:   {    struct svalue tmp;    tmp.type=T_FLOAT; -  tmp.u.float_number=f; +  tmp.u.float_number = DO_NOT_WARN((FLOAT_TYPE)f);    tmp.subtype=0;    return simple_add_constant(name, &tmp, flags);   }
3357:   PMOD_EXPORT int add_function_constant(char *name, void (*cfun)(INT32), char * type, INT16 flags)   {    struct svalue s; -  struct pike_string *n; +     INT32 ret;       s.type=T_FUNCTION;
5239:   void pop_compiler_frame(void)   {    struct compiler_frame *f; -  int e; +     f=Pike_compiler->compiler_frame;   #ifdef PIKE_DEBUG    if(!f)
5331:      PMOD_EXPORT struct program *program_from_function(const struct svalue *f)   { -  struct identifier *id; +     if(f->type != T_FUNCTION) return 0;    if(f->subtype == FUNCTION_BUILTIN) return 0;    if(!f->u.object->prog) return 0;