Branch: Tag:

2001-12-16

2001-12-16 02:49:50 by Martin Stjernholm <mast@lysator.liu.se>

Replaced IS_ZERO with SAFE_IS_ZERO, except where it's obvious that
UNSAFE_IS_ZERO works.

Rev: src/array.c:1.121
Rev: src/builtin.cmod:1.72
Rev: src/builtin_functions.c:1.418
Rev: src/cpp.c:1.96
Rev: src/encode.c:1.135
Rev: src/interpret.c:1.254
Rev: src/interpret_functions.h:1.98
Rev: src/iterators.cmod:1.17
Rev: src/language.yacc:1.267
Rev: src/las.c:1.277
Rev: src/module_support.c:1.42
Rev: src/modules/Image/encodings/_xpm.c:1.18
Rev: src/modules/Image/encodings/ilbm.c:1.23
Rev: src/modules/Image/encodings/png.c:1.43
Rev: src/modules/Image/encodings/pvr.c:1.16
Rev: src/modules/Image/encodings/ras.c:1.15
Rev: src/modules/Image/encodings/xbm.c:1.15
Rev: src/modules/Parser/html.c:1.148
Rev: src/modules/_Image_GIF/image_gif.c:1.8
Rev: src/modules/files/efuns.c:1.107
Rev: src/modules/files/file.c:1.230
Rev: src/modules/files/socket.c:1.57
Rev: src/modules/files/stat.c:1.19
Rev: src/modules/files/udp.c:1.28
Rev: src/modules/spider/xml.c:1.47
Rev: src/modules/sprintf/sprintf.c:1.86
Rev: src/multiset.c:1.45
Rev: src/opcodes.c:1.118
Rev: src/operators.c:1.144
Rev: src/post_modules/GTK/source/gtkclist.pre:1.13
Rev: src/preprocessor.h:1.48
Rev: src/program.c:1.392
Rev: src/signal_handler.c:1.212
Rev: src/threads.c:1.177

23:   #include "stuff.h"   #include "bignum.h"    - RCSID("$Id: array.c,v 1.120 2001/10/15 09:20:58 mast Exp $"); + RCSID("$Id: array.c,v 1.121 2001/12/16 02:49:36 mast Exp $");      PMOD_EXPORT struct array empty_array=   {
462:    * for destructed objects/functions    */    if((v->type_field & (1 << s->type)) || -  (IS_ZERO(s) && (v->type_field & (BIT_FUNCTION|BIT_OBJECT))) || +  (UNSAFE_IS_ZERO(s) && (v->type_field & (BIT_FUNCTION|BIT_OBJECT))) ||    ( (v->type_field | (1<<s->type)) & BIT_OBJECT )) /* for overloading */    {    if(start)
739:    if (FIND_LFUN(a->u.object->prog,LFUN_LT) != -1) {    push_svalue(b);    apply_lfun(a->u.object,LFUN_LT,1); -  if(!IS_ZERO(sp-1)) +  if(!UNSAFE_IS_ZERO(sp-1))    {    pop_stack();    return -1;
749:    if (FIND_LFUN(a->u.object->prog,LFUN_GT) != -1) {    push_svalue(b);    apply_lfun(a->u.object,LFUN_GT,1); -  if(!IS_ZERO(sp-1)) +  if(!UNSAFE_IS_ZERO(sp-1))    {    pop_stack();    return 1;
759:    if (FIND_LFUN(a->u.object->prog,LFUN_EQ) != -1) {    push_svalue(b);    apply_lfun(a->u.object,LFUN_EQ,1); -  if (!IS_ZERO(sp-1)) { +  if (!UNSAFE_IS_ZERO(sp-1)) {    pop_stack();    return 0;    }
770:    if (FIND_LFUN(b->u.object->prog,LFUN_LT) != -1) {    push_svalue(a);    apply_lfun(b->u.object,LFUN_LT,1); -  if(!IS_ZERO(sp-1)) +  if(!UNSAFE_IS_ZERO(sp-1))    {    pop_stack();    return 1;
780:    if (FIND_LFUN(b->u.object->prog,LFUN_GT) != -1) {    push_svalue(a);    apply_lfun(b->u.object,LFUN_GT,1); -  if(!IS_ZERO(sp-1)) +  if(!UNSAFE_IS_ZERO(sp-1))    {    pop_stack();    return -1;
790:    if (FIND_LFUN(b->u.object->prog,LFUN_EQ) != -1) {    push_svalue(a);    apply_lfun(b->u.object,LFUN_EQ,1); -  if (!IS_ZERO(sp-1)) { +  if (!UNSAFE_IS_ZERO(sp-1)) {    pop_stack();    return 0;    }