pike.git/ src/ testsuite.in

2000-07-11

2000-07-11 03:45:10 by Martin Stjernholm <mast@lysator.liu.se>

• 6d30f5d60a3fe5b4774c46237a2575b5bfe5cf65 (49 lines) (+48/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed bug in gc where things which got only weak refs externally but
non-weak internal cyclic refs didn't get gc'd.

Rev: src/array.c:1.77
Rev: src/gc.c:1.105
Rev: src/gc.h:1.54
Rev: src/mapping.c:1.92
Rev: src/multiset.c:1.24
Rev: src/object.c:1.135
Rev: src/program.c:1.249
Rev: src/queue.c:1.5
Rev: src/queue.h:1.4
Rev: src/svalue.c:1.83
Rev: src/testsuite.in:1.312

1: - test_true([["$Id: testsuite.in,v 1.311 2000/07/10 17:28:28 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.312 2000/07/11 03:45:10 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
1886:    gc();    }]]);    +  test_any([[{ +  array a = ({0}), b = ({a, set_weak_flag (({a}), 1)}); +  array x = set_weak_flag (({a}), 1); +  a[0] = b; +  a = b = 0; +  gc(); +  return !x[0]; +  }]], 1); +  test_any([[{ +  mapping a = ([]), b = ([a:set_weak_flag (([a:a]), 1)]); +  mapping x = set_weak_flag (([a:2]), 1); +  a[b] = b; +  a = b = 0; +  gc(); +  return !sizeof (x); +  }]], 1); +  test_any([[{ +  multiset a = (<>), b = (<a, set_weak_flag ((<a>), 1)>); +  multiset x = set_weak_flag ((<a>), 1); +  a[b] = 1; +  a = b = 0; +  gc(); +  return !sizeof (x); +  }]], 1); +  test_any([[{ +  class Foo { +  Foo f = this_object(); +  multiset(Foo) g = set_weak_flag((<this_object()>), 1); +  }; +  multiset(Foo) x = set_weak_flag ((<Foo()>), 1); +  gc(); +  return !sizeof (x); +  }]], 1); +  test_any([[{ +  class Foo { +  Foo f = this_object(); +  multiset(Foo) g = set_weak_flag((<this_object()>), 1); +  void destroy() {add_constant("beltbent_oblivion", 1);} +  }; +  multiset(Foo) x = set_weak_flag ((<Foo()>), 1); +  gc(); +  int res = all_constants()->beltbent_oblivion; +  add_constant("beltbent_oblivion"); +  return res; +  }]], 1); +     test_do([[{    int got_error = 0;    array(string) destruct_order;