pike.git/ src/ docode.c

2000-09-11

2000-09-11 18:50:17 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• a30921981e40f146bb4f68a99e1fbc71bf302e67 (16 lines) (+9/-7) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed a few warnings.

Rev: src/docode.c:1.82
Rev: src/modules/Regexp/pike_regexp.c:1.18
Rev: src/modules/_Image_TTF/image_ttf.c:1.36
Rev: src/object.c:1.147
Rev: src/pike_memory.c:1.88
Rev: src/pike_memory.h:1.24

5:   \*/   /**/   #include "global.h" - RCSID("$Id: docode.c,v 1.81 2000/09/08 16:32:59 grubba Exp $"); + RCSID("$Id: docode.c,v 1.82 2000/09/11 18:42:25 grubba Exp $");   #include "las.h"   #include "program.h"   #include "pike_types.h"
95:      static void code_expression(node *n, INT16 flags, char *err)   { -  switch(do_docode(check_node_hash(n), flags & ~ DO_POP)) +  switch(do_docode(check_node_hash(n), (INT16)(flags & ~DO_POP)))    {    case 0: my_yyerror("Void expression for %s",err);    case 1: return;
147:    return;    }    -  code_expression(n, flags | DO_NOT_COPY, "condition"); +  code_expression(n, (INT16)(flags | DO_NOT_COPY), "condition");       if(flags & DO_POP)    {
890:       case F_ARG_LIST:    case F_COMMA_EXPR: -  tmp1=do_docode(CAR(n),flags & ~WANT_LVALUE); +  tmp1 = do_docode(CAR(n), (INT16)(flags & ~WANT_LVALUE));    tmp1+=do_docode(CDR(n),flags);    return DO_NOT_WARN((INT32)tmp1);   
1200:    if(flags & WANT_LVALUE)    {    int mklval=CAR(n) && match_types(CAR(n)->type, string_type_string); -  tmp1=do_docode(CAR(n), -  mklval ? DO_LVALUE_IF_POSSIBLE : 0); +  tmp1 = do_docode(CAR(n), +  (INT16)(mklval ? DO_LVALUE_IF_POSSIBLE : 0));    if(tmp1==2)    {   #ifdef PIKE_DEBUG
1354:    return 1;       case F_VAL_LVAL: -  return do_docode(CAR(n),flags)+do_docode(CDR(n),flags | DO_LVALUE); +  return do_docode(CAR(n),flags) + +  do_docode(CDR(n), (INT16)(flags | DO_LVALUE));       default:    fatal("Infernal compiler error (unknown parse-tree-token).\n");