pike.git/ src/ pike_types.h

2000-08-09

2000-08-09 12:49:28 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 6e21a56cde92395228ddc439525081c96441fc75 (61 lines) (+41/-20) ^{[ Show | Annotate ]}
  Branch: 7.9

refs is now an INT32 again.

Rev: src/array.h:1.24
Rev: src/constants.h:1.13
Rev: src/gc.h:1.59
Rev: src/interpret.h:1.63
Rev: src/mapping.h:1.30
Rev: src/multiset.h:1.15
Rev: src/object.h:1.52
Rev: src/pike_types.h:1.41
Rev: src/program.h:1.99
Rev: src/stralloc.h:1.48

5:   \*/      /* -  * $Id: pike_types.h,v 1.40 2000/07/29 06:31:06 hubbe Exp $ +  * $Id: pike_types.h,v 1.41 2000/08/09 12:49:28 grubba Exp $    */   #ifndef PIKE_TYPES_H   #define PIKE_TYPES_H      #include "svalue.h"    -  + /* Also used in struct node_identifier */ + union node_data + { +  struct +  { +  int number; +  struct program *prog; +  } id; +  struct svalue sval; +  struct +  { +  struct node_s *a, *b; +  } node; +  struct +  { +  struct node_identifier *a, *b; +  } node_id; +  struct +  { +  int a, b; +  } integer; + }; +    struct node_s   { - #ifdef SHARED_NODES + #if defined(SHARED_NODES)    unsigned INT32 refs;    unsigned INT32 hash;    struct node_s *next;
30:    unsigned INT16 tree_info;    /* The stuff from this point on is hashed. */    unsigned INT16 token; -  union +  union node_data u; + }; +  + #ifdef SHARED_NODES_MK2 +  + struct node_identifier   { -  struct -  { -  int number; -  struct program *prog; -  } id; -  struct svalue sval; -  struct -  { -  struct node_s *a,*b; -  } node; -  struct -  { -  int a,b; -  } integer; -  } u; +  ptrdiff_t refs; +  struct node_identifier *next; +  unsigned INT32 hash; +  INT16 token; +  union node_data u;   };    -  + #endif /* SHARED_NODES_MK2 */ +    #ifndef STRUCT_NODE_S_DECLARED   #define STRUCT_NODE_S_DECLARED   #endif
108:      #define type_stack_mark() do { \    if(Pike_compiler->pike_type_mark_stackp >= pike_type_mark_stack + NELEM(pike_type_mark_stack)) \ -  yyerror("Type mark stack overflow."); \ +  fatal("Type mark stack overflow."); \    else { \    *Pike_compiler->pike_type_mark_stackp=Pike_compiler->type_stackp; \    Pike_compiler->pike_type_mark_stackp++; \