pike.git/ src/ modules/ Parser/ parser.c

2000-08-17

2000-08-17 19:10:05 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 6f959026c59407800dcc1f6bad12da53b0902409 (17 lines) (+4/-13) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed a few warnings.

Rev: src/backend.c:1.55
Rev: src/compilation.h:1.19
Rev: src/dynamic_load.c:1.43
Rev: src/encode.c:1.68
Rev: src/gc.c:1.124
Rev: src/interpret.c:1.165
Rev: src/interpret.h:1.64
Rev: src/module_support.c:1.37
Rev: src/modules/Parser/parser.c:1.10
Rev: src/modules/call_out/call_out.c:1.39
Rev: src/modules/spider/xml.c:1.26
Rev: src/modules/sprintf/sprintf.c:1.73
Rev: src/opcodes.c:1.90
Rev: src/operators.c:1.100
Rev: src/pike_types.c:1.136
Rev: src/program.c:1.263

1:   #include "global.h"   #include "stralloc.h"   #include "global.h" - RCSID("$Id: parser.c,v 1.9 2000/08/16 20:02:02 grubba Exp $"); + RCSID("$Id: parser.c,v 1.10 2000/08/17 18:21:59 grubba Exp $");   #include "pike_macros.h"   #include "interpret.h"   #include "program.h"
80:    { 0,0,0,0,0 }   };    - /* Avoid loss of precision warnings. */ - #ifdef __ECL - static inline long TO_LONG(ptrdiff_t x) - { -  return DO_NOT_WARN((long)x); - } - #else /* !__ECL */ - #define TO_LONG(x) ((long)(x)) - #endif /* __ECL */ -  +    #ifdef PIKE_DEBUG   #define PARSER_CHECK_STACK(X) do { \    if (save_sp != sp) { \ -  fatal("%s:%d: %d droppings on stack! previous init: %s\n", \ +  fatal("%s:%d: %ld droppings on stack! previous init: %s\n", \    __FILE__, __LINE__, \ -  TO_LONG(sp - save_sp), X); \ +  PTRDIFF_T_TO_LONG(sp - save_sp), X); \    } \    } while(0)   #else