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

version» Context lines:

pike.git/src/modules/Parser/parser.c: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"   #include "program_id.h"   #include "object.h"   #include "operators.h"      #include "parser.h"      /* must be included last */
pike.git/src/modules/Parser/parser.c:73:   } submagic[]=   {   #undef PARSER_SUBMODULE   #undef PARSER_SUBMODMAG   #define PARSER_SUBMODULE(a,b,c)   #define PARSER_SUBMODMAG(name,init,exit) { name,init,exit,NULL,NULL },   #include "initstuff.h"    { 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   #define PARSER_CHECK_STACK(X)   #endif /* PIKE_DEBUG */         static void parser_magic_index(INT32 args)   {    struct svalue tmp;