pike.git / src / testsuite.in

version» Context lines:

pike.git/src/testsuite.in: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]])      cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())   ]]);   test_eq(1e1,10.0);   test_eq(1E1,10.0);
pike.git/src/testsuite.in:2712:    function trampoline =    lambda() {    int i = 17;    return lambda () {    error ("Trampoline called.\n");    return i;    };    }();       // 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");    }       if (!obj) error ("Trampoline object false.\n");    if (!stringp (sprintf ("%O", obj)))    // The important part is to try to call the _sprintf lfun in the    // trampoline object, not to check what sprintf() returns.    error ("Failed to describe trampoline object.\n");    }]])