pike.git/ src/ pike_types.h

1998-11-06

1998-11-06 03:08:03 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

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

bugfix + more debug

Rev: src/compilation.h:1.11
Rev: src/pike_types.c:1.48
Rev: src/pike_types.h:1.15
Rev: src/program.c:1.101

5:   \*/      /* -  * $Id: pike_types.h,v 1.14 1998/06/06 03:19:54 hubbe Exp $ +  * $Id: pike_types.h,v 1.15 1998/11/06 03:08:02 hubbe Exp $    */   #ifndef PIKE_TYPES_H   #define PIKE_TYPES_H
66:   extern struct pike_string *void_type_string;   extern struct pike_string *any_type_string;    + #ifdef DEBUG + #define init_type_stack() type_stack_mark() + #define exit_type_stack() do {\ +  int q_q_q_q=pop_stack_mark(); \ +  if(q_q_q_q) fatal("Type stack out of wack! %d\n",q_q_q_q); \ +  } while(0) + #else   #define init_type_stack type_stack_mark   #define exit_type_stack pop_stack_mark -  + #endif      #define push_type(X) do { \    *type_stackp=(X); \