pike.git/ src/ testsuite.in

2003-02-13

2003-02-13 18:21:56 by Martin Stjernholm <mast@lysator.liu.se>

• 77c6b396f6cf25169dcde8b68cc8fff22def5645 (19 lines) (+7/-12) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed object walkthrough in trampoline sprintf test.

Rev: src/testsuite.in:1.603

1: - test_true([["$Id: testsuite.in,v 1.602 2003/02/13 16:43:39 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.603 2003/02/13 18:21:56 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
2719:    }();       // Now find the trampoline object. Pike tries very hard to hide -  // it, so we have to do it the difficult way.. +  // it, so we have to do it the hard way..    object obj;    find_trampoline_object: { -  object start = this; -  for (obj = start; -  objectp (obj) || // It's a normal object. -  (intp (obj) && obj) || // It's a bignum object. -  zero_type (obj); // It's a destructed object. -  obj = _prev (obj)) +  for (obj = next_object(); +  objectp (obj) || // It's a normal object. +  (intp (obj) && obj); // It's a bignum object. +  obj = next_object (obj))    if (obj->`() == trampoline) break find_trampoline_object; -  for (obj = _next (start); -  objectp (obj) || (intp (obj) && obj) || zero_type (obj); -  obj = _next (obj)) -  if (obj->`() == trampoline) break find_trampoline_object; +     error ("Trampoline object not found.\n");    }