Branch: Tag:

2000-08-16

2000-08-16 10:50:42 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed a few warnings.

Rev: src/builtin_functions.c:1.298
Rev: src/docode.c:1.79
Rev: src/encode.c:1.67
Rev: src/gc.c:1.122
Rev: src/las.c:1.191
Rev: src/module_support.c:1.36
Rev: src/peep.c:1.35
Rev: src/pike_memory.h:1.22
Rev: src/pike_types.c:1.135
Rev: src/pike_types.h:1.44
Rev: src/program.c:1.262

5:   \*/   /**/   #include "global.h" - RCSID("$Id: docode.c,v 1.78 2000/08/15 16:13:55 grubba Exp $"); + RCSID("$Id: docode.c,v 1.79 2000/08/16 10:49:19 grubba Exp $");   #include "las.h"   #include "program.h"   #include "pike_types.h"
343:    if(!CDDR(n))    {    tmp1=alloc_label(); -  do_jump_when_zero(CAR(n), tmp1); +  do_jump_when_zero(CAR(n), DO_NOT_WARN((INT32)tmp1));    DO_CODE_BLOCK(CADR(n)); -  emit1(F_LABEL, tmp1); +  emit1(F_LABEL, DO_NOT_WARN((INT32)tmp1));    current_switch_jumptable = prev_switch_jumptable;    return 0;    }
353:    if(!CADR(n))    {    tmp1=alloc_label(); -  do_jump_when_non_zero(CAR(n), tmp1); +  do_jump_when_non_zero(CAR(n), DO_NOT_WARN((INT32)tmp1));    DO_CODE_BLOCK(CDDR(n)); -  emit1(F_LABEL,tmp1); +  emit1(F_LABEL, DO_NOT_WARN((INT32)tmp1));    current_switch_jumptable = prev_switch_jumptable;    return 0;    }       tmp1=alloc_label(); -  do_jump_when_zero(CAR(n),tmp1); +  do_jump_when_zero(CAR(n), DO_NOT_WARN((INT32)tmp1));       adroppings=do_docode(CADR(n), flags);    tmp3=emit1(F_POP_N_ELEMS,0);       /* Else */    tmp2=do_jump(F_BRANCH,-1); -  emit1(F_LABEL, tmp1); +  emit1(F_LABEL, DO_NOT_WARN((INT32)tmp1));       bdroppings=do_docode(CDDR(n), flags);    if(adroppings < bdroppings)
378:       if(adroppings > bdroppings)    { -  update_arg(tmp3,adroppings-bdroppings); +  update_arg(DO_NOT_WARN((INT32)tmp3), +  adroppings - bdroppings);    adroppings=bdroppings;    }    -  emit1(F_LABEL, tmp2); +  emit1(F_LABEL, DO_NOT_WARN((INT32)tmp2));       current_switch_jumptable = prev_switch_jumptable;    return adroppings;
531:    case F_LAND:    case F_LOR:    tmp1=alloc_label(); -  do_cond_jump(CAR(n), tmp1, n->token == F_LOR, 0); +  do_cond_jump(CAR(n), DO_NOT_WARN((INT32)tmp1), n->token == F_LOR, 0);    code_expression(CDR(n), flags, n->token == F_LOR ? "||" : "&&"); -  emit1(F_LABEL,tmp1); +  emit1(F_LABEL, DO_NOT_WARN((INT32)tmp1));    return 1;       case F_EQ:
562:    if(do_docode(CDR(n),DO_NOT_COPY)!=2)    fatal("Compiler internal error (at %ld).\n",(long)lex.current_line);    emit0(n->token); -  return tmp1; +  return DO_NOT_WARN((INT32)tmp1);       case F_INC:    case F_POST_INC:
617:    }else{    tmp2=ins_label(-1);    } -  do_jump_when_non_zero(CAR(n),tmp2); +  do_jump_when_non_zero(CAR(n), DO_NOT_WARN((INT32)tmp2));    ins_label(current_break);       current_switch_jumptable = prev_switch_jumptable;
672:    tmp1=ins_label(-1);    DO_CODE_BLOCK(CDR(n));    ins_label(current_continue); -  emit1(F_LABEL,tmp3); -  do_jump(n->token,tmp1); +  emit1(F_LABEL, DO_NOT_WARN((INT32)tmp3)); +  do_jump(n->token, DO_NOT_WARN((INT32)tmp1));    ins_label(current_break);      #ifdef PIKE_DEBUG
715:       DO_CODE_BLOCK(CDR(n));    ins_label(current_continue); -  emit1(F_LABEL,tmp3); -  do_jump(n->token,tmp1); +  emit1(F_LABEL, DO_NOT_WARN((INT32)tmp3)); +  do_jump(n->token, DO_NOT_WARN((INT32)tmp1));    ins_label(current_break);   #ifdef PIKE_DEBUG    if(d_flag)
743:    tmp2=ins_label(-1);    DO_CODE_BLOCK(CAR(n));    ins_label(current_continue); -  do_jump_when_non_zero(CDR(n),tmp2); +  do_jump_when_non_zero(CDR(n), DO_NOT_WARN((INT32)tmp2));    ins_label(current_break);       current_switch_jumptable = prev_switch_jumptable;
765:    return 0;    }    tmp1=store_prog_string(n->type); -  emit1(F_STRING,tmp1); +  emit1(F_STRING, DO_NOT_WARN((INT32)tmp1));       tmp1=do_docode(CAR(n),0);    if(!tmp1) { emit0(F_CONST0); tmp1=1; } -  if(tmp1>1) do_pop(tmp1-1); +  if(tmp1>1) do_pop(DO_NOT_WARN((INT32)(tmp1-1)));       emit0(F_CAST);    return 1;
777:    case F_SOFT_CAST:    if (runtime_options & RUNTIME_CHECK_TYPES) {    tmp1 = store_prog_string(n->type); -  emit1(F_STRING, tmp1); +  emit1(F_STRING, DO_NOT_WARN((INT32)tmp1));    tmp1 = do_docode(CAR(n), 0);    if (!tmp1) { emit0(F_CONST0); tmp1 = 1; } -  if (tmp1 > 1) do_pop(tmp1 - 1); +  if (tmp1 > 1) do_pop(DO_NOT_WARN((INT32)(tmp1 - 1)));    emit0(F_SOFT_CAST);    return 1;    }    tmp1 = do_docode(CAR(n), flags); -  if (tmp1 > 1) do_pop(tmp1 - 1); +  if (tmp1 > 1) do_pop(DO_NOT_WARN((INT32)(tmp1 - 1)));    return !!tmp1;       case F_APPLY:
803:    tmp1=store_constant(& CAR(n)->u.sval,    !(CAR(n)->tree_info & OPT_EXTERNAL_DEPEND),    CAR(n)->name); -  emit1(F_APPLY,tmp1); +  emit1(F_APPLY, DO_NOT_WARN((INT32)tmp1));    }    if(n->type == void_type_string)    return 0;
820:    tmp1=store_constant(& CAR(n)->u.sval,    !(CAR(n)->tree_info & OPT_EXTERNAL_DEPEND),    CAR(n)->name); -  emit1(F_APPLY,tmp1); +  emit1(F_APPLY, DO_NOT_WARN((INT32)tmp1));       return 1;    }
855:    }else{    /* We might want to put "predef::"+foo->name here /Hubbe */    tmp1=store_constant(& foo->u.sval, 1, foo->name); -  emit1(F_APPLY, tmp1); +  emit1(F_APPLY, DO_NOT_WARN((INT32)tmp1));    }    }    free_node(foo);
866:    case F_COMMA_EXPR:    tmp1=do_docode(CAR(n),flags & ~WANT_LVALUE);    tmp1+=do_docode(CDR(n),flags); -  return tmp1; +  return DO_NOT_WARN((INT32)tmp1);          /* Switch:
967:    for(e=1; e<cases*2+2; e++)    update_arg(jumptable[e], current_switch_jumptable[e]);    -  update_arg(tmp1, store_constant(Pike_sp-1,1,0)); +  update_arg(DO_NOT_WARN((INT32)tmp1), +  store_constant(Pike_sp-1,1,0));       pop_stack();    free((char *)jumptable);
1110:    case F_SSCANF:    tmp1=do_docode(CAR(n),DO_NOT_COPY);    tmp2=do_docode(CDR(n),DO_NOT_COPY | DO_LVALUE); -  emit1(F_SSCANF,tmp1+tmp2); +  emit1(F_SSCANF, DO_NOT_WARN((INT32)(tmp1+tmp2)));    return 1;       case F_CATCH:
1128:    ins_label(current_continue);    ins_label(current_break);    emit0(F_THROW_ZERO); -  ins_label(tmp1); +  ins_label(DO_NOT_WARN((INT32)tmp1));       current_break=break_save;    current_continue=continue_save;
1145: Inside #if defined(PIKE_DEBUG)
   if(tmp1 & 1)    fatal("Very internal compiler error.\n");   #endif -  emit1(F_ARRAY_LVALUE, tmp1>>1); +  emit1(F_ARRAY_LVALUE, DO_NOT_WARN((INT32)(tmp1>>1)));    return 2;       case F_ARROW:
1167:    emit0(F_COPY_VALUE);    }    } -  return tmp1; +  return DO_NOT_WARN((INT32)tmp1);       case F_INDEX:    if(flags & WANT_LVALUE)
1207:    emit0(F_COPY_VALUE);    }    } -  return tmp1; +  return DO_NOT_WARN((INT32)tmp1);       case F_CONSTANT:    switch(n->u.sval.type)
1223:       case T_STRING:    tmp1=store_prog_string(n->u.sval.u.string); -  emit1(F_STRING,tmp1); +  emit1(F_STRING, DO_NOT_WARN((INT32)tmp1));    return 1;       case T_FUNCTION:
1258:    tmp1=store_constant(&(n->u.sval),    !(n->tree_info & OPT_EXTERNAL_DEPEND),    n->name); -  emit1(F_CONSTANT,tmp1); +  emit1(F_CONSTANT, DO_NOT_WARN((INT32)tmp1));    return 1;       case T_ARRAY:
1267:    tmp1=store_constant(&(n->u.sval),    !(n->tree_info & OPT_EXTERNAL_DEPEND),    n->name); -  emit1(F_CONSTANT,tmp1); +  emit1(F_CONSTANT, DO_NOT_WARN((INT32)tmp1));       /* copy now or later ? */    if(!(flags & DO_NOT_COPY) && !(n->tree_info & OPT_EXTERNAL_DEPEND))