pike.git / src / array.c

version» Context lines:

pike.git/src/array.c:16:   #include "pike_types.h"   #include "fsort.h"   #include "builtin_functions.h"   #include "pike_memory.h"   #include "gc.h"   #include "main.h"   #include "security.h"   #include "stuff.h"   #include "bignum.h"    - RCSID("$Id: array.c,v 1.124 2002/03/06 11:01:59 grubba Exp $"); + RCSID("$Id: array.c,v 1.125 2002/05/10 23:35:06 nilsson Exp $");      PMOD_EXPORT struct array empty_array=   {    PIKE_CONSTANT_MEMOBJ_INIT(1), /* Never free */    &weak_empty_array, /* Next */    &weak_shrink_empty_array, /* previous (circular) */    0, /* Size = 0 */    0, /* malloced Size = 0 */    0, /* no types */    0, /* no flags */
pike.git/src/array.c:734:    break;    }    }else{    def=a->type - b->type;    }       if (a->type == T_OBJECT && a->u.object->prog) {    if (FIND_LFUN(a->u.object->prog,LFUN_LT) != -1) {    push_svalue(b);    apply_lfun(a->u.object,LFUN_LT,1); -  if(!UNSAFE_IS_ZERO(sp-1)) +  if(!UNSAFE_IS_ZERO(Pike_sp-1))    {    pop_stack();    return -1;    }    pop_stack();    }    if (FIND_LFUN(a->u.object->prog,LFUN_GT) != -1) {    push_svalue(b);    apply_lfun(a->u.object,LFUN_GT,1); -  if(!UNSAFE_IS_ZERO(sp-1)) +  if(!UNSAFE_IS_ZERO(Pike_sp-1))    {    pop_stack();    return 1;    }    pop_stack();    }    if (FIND_LFUN(a->u.object->prog,LFUN_EQ) != -1) {    push_svalue(b);    apply_lfun(a->u.object,LFUN_EQ,1); -  if (!UNSAFE_IS_ZERO(sp-1)) { +  if (!UNSAFE_IS_ZERO(Pike_sp-1)) {    pop_stack();    return 0;    }    pop_stack();    }    }    if(b->type == T_OBJECT && b->u.object->prog) {    if (FIND_LFUN(b->u.object->prog,LFUN_LT) != -1) {    push_svalue(a);    apply_lfun(b->u.object,LFUN_LT,1); -  if(!UNSAFE_IS_ZERO(sp-1)) +  if(!UNSAFE_IS_ZERO(Pike_sp-1))    {    pop_stack();    return 1;    }    pop_stack();    }    if (FIND_LFUN(b->u.object->prog,LFUN_GT) != -1) {    push_svalue(a);    apply_lfun(b->u.object,LFUN_GT,1); -  if(!UNSAFE_IS_ZERO(sp-1)) +  if(!UNSAFE_IS_ZERO(Pike_sp-1))    {    pop_stack();    return -1;    }    pop_stack();    }    if (FIND_LFUN(b->u.object->prog,LFUN_EQ) != -1) {    push_svalue(a);    apply_lfun(b->u.object,LFUN_EQ,1); -  if (!UNSAFE_IS_ZERO(sp-1)) { +  if (!UNSAFE_IS_ZERO(Pike_sp-1)) {    pop_stack();    return 0;    }    pop_stack();    }    }       return def;   }