pike.git/ src/ cyclic.c

1997-10-03

1997-10-03 02:25:38 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• fc33455482d58a08b2a23d9e2737505892e4dc41 (65 lines) (+65/-0) ^{[ Show | Annotate ]}
  Branch: 7.9

cyclic -> now fixed

Rev: src/Makefile.in:1.36
Rev: src/array.c:1.15
Rev: src/array.h:1.5
Rev: src/builtin_functions.c:1.46
Rev: src/cyclic.c:1.1
Rev: src/cyclic.h:1.1
Rev: src/testsuite.in:1.56
Rev: src/threads.h:1.17

1: + #include "cyclic.h"    -  + #define CYCLIC_HASH_SIZE 4711 +  + CYCLIC *cyclic_hash[CYCLIC_HASH_SIZE]; +  + void unlink_cyclic(CYCLIC *c) + { +  unsigned int h; +  CYCLIC **p; +  h=(int)c->id; +  h*=33; +  h|=(int)c->a; +  h*=33; +  h|=(int)c->b; +  h*=33; +  h|=(int)c->th; +  h*=33; +  h%=CYCLIC_HASH_SIZE; +  +  for(p=cyclic_hash+h;*p;p=&(p[0]->next)) +  { +  if(c == *p) +  { +  *p=c->next; +  UNSET_ONERROR(c->onerr); +  return; +  } +  } +  fatal("Unlink cyclic on lost cyclic struct.\n"); + } +  + void *begin_cyclic(CYCLIC *c, +  void *id, +  void *th, +  void *a, +  void *b) + { +  unsigned int h; +  CYCLIC *p; +  +  h=(int)id; +  h*=33; +  h|=(int)a; +  h*=33; +  h|=(int)b; +  h*=33; +  h|=(int)th; +  h*=33; +  h%=CYCLIC_HASH_SIZE; +  +  for(p=cyclic_hash[h];p;p=p->next) +  if(a == p->a && b==p->b && id==p->id) +  return p->ret; +  +  c->ret=(void *)1; +  c->a=a; +  c->b=b; +  c->id=id; +  c->th=th; +  c->next=cyclic_hash[h]; +  cyclic_hash[h]=c; +  SET_ONERROR(c->onerr, unlink_cyclic, &c); +  return 0; + }   Newline at end of file added.