pike.git/ src/ interpret_functions.h

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

1:   /* -  * $Id: interpret_functions.h,v 1.97 2001/10/05 01:30:13 hubbe Exp $ +  * $Id: interpret_functions.h,v 1.98 2001/12/16 02:49:39 mast Exp $    *    * Opcode definitions for the interpreter.    */
992:    /* Fall through */       OPCODE0_TAILJUMP(F_BRANCH_WHEN_ZERO, "branch if zero", { -  if(!IS_ZERO(Pike_sp-1)) +  if(!UNSAFE_IS_ZERO(Pike_sp-1))    {    SKIPJUMP();    }else{
1004:         OPCODE0_JUMP(F_BRANCH_WHEN_NON_ZERO, "branch if not zero", { -  if(IS_ZERO(Pike_sp-1)) +  if(UNSAFE_IS_ZERO(Pike_sp-1))    {    SKIPJUMP();    }else{
1024:   /* fprintf(stderr,"******OBJECT OVERLOAD IN TYPEP***** %s\n",get_name_of_type(arg1)); */    push_text(get_name_of_type(arg1));    apply_low(Pike_sp[-2].u.object, fun, 1); -  arg1=IS_ZERO(Pike_sp-1) ? T_FLOAT : T_OBJECT ; +  arg1=UNSAFE_IS_ZERO(Pike_sp-1) ? T_FLOAT : T_OBJECT ;    pop_stack();    }    }
1038:   });      OPCODE1_JUMP(F_BRANCH_IF_LOCAL, "branch if local", { -  if(IS_ZERO(Pike_fp->locals + arg1)) +  if(UNSAFE_IS_ZERO(Pike_fp->locals + arg1))    {    SKIPJUMP();    }else{
1047:   });      OPCODE1_JUMP(F_BRANCH_IF_NOT_LOCAL, "branch if !local", { -  if(!IS_ZERO(Pike_fp->locals + arg1)) +  if(!UNSAFE_IS_ZERO(Pike_fp->locals + arg1))    {    SKIPJUMP();    }else{
1073:   CJUMP(F_BRANCH_WHEN_GE, "branch if >=", !is_lt);      OPCODE0_JUMP(F_BRANCH_AND_POP_WHEN_ZERO, "branch & pop if zero", { -  if(!IS_ZERO(Pike_sp-1)) +  if(!UNSAFE_IS_ZERO(Pike_sp-1))    {    SKIPJUMP();    }else{
1083:   });      OPCODE0_JUMP(F_BRANCH_AND_POP_WHEN_NON_ZERO, "branch & pop if !zero", { -  if(IS_ZERO(Pike_sp-1)) +  if(UNSAFE_IS_ZERO(Pike_sp-1))    {    SKIPJUMP();    }else{
1093:   });      OPCODE0_JUMP(F_LAND, "&&", { -  if(!IS_ZERO(Pike_sp-1)) +  if(!UNSAFE_IS_ZERO(Pike_sp-1))    {    SKIPJUMP();    pop_stack();
1103:   });      OPCODE0_JUMP(F_LOR, "||", { -  if(IS_ZERO(Pike_sp-1)) +  if(UNSAFE_IS_ZERO(Pike_sp-1))    {    SKIPJUMP();    pop_stack();
1323:         OPCODE0_RETURN(F_RETURN_IF_TRUE,"return if true",{ -  if(!IS_ZERO(Pike_sp-1)) DO_RETURN; +  if(!UNSAFE_IS_ZERO(Pike_sp-1)) DO_RETURN;    pop_stack();   });   
1379:       case PIKE_T_FUNCTION:    case PIKE_T_OBJECT: -  if(IS_ZERO(Pike_sp-1)) +  if(UNSAFE_IS_ZERO(Pike_sp-1))    {    pop_stack();    push_int(1);