pike.git/ src/ docode.c

2001-06-17

2001-06-17 19:15:15 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 7f94c2124a2aacb91779939aadc19f5bf75a2c5f (17 lines) (+14/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Added F_CAST_TO_STRING.

Rev: src/docode.c:1.119
Rev: src/interpret_functions.h:1.61
Rev: src/opcodes.c:1.112
Rev: src/opcodes.h:1.16

5:   \*/   /**/   #include "global.h" - RCSID("$Id: docode.c,v 1.118 2001/06/17 18:18:05 grubba Exp $"); + RCSID("$Id: docode.c,v 1.119 2001/06/17 19:15:15 grubba Exp $");   #include "las.h"   #include "program.h"   #include "pike_types.h"
1073:    return 0;    } else if (n->type == int_type_string) {    tmp1 = do_docode(CAR(n), 0); -  if(!tmp1) { emit0(F_CONST0); tmp1=1; } +  if(!tmp1) +  emit0(F_CONST0);    else { -  if(tmp1>1) do_pop(DO_NOT_WARN((INT32)(tmp1-1))); +  if(tmp1>1) +  do_pop(DO_NOT_WARN((INT32)(tmp1-1)));    emit0(F_CAST_TO_INT);    }    return 1; -  +  } else if (n->type == string_type_string) { +  tmp1 = do_docode(CAR(n), 0); +  if(!tmp1) +  emit0(F_CONST0); +  else if(tmp1>1) +  do_pop(DO_NOT_WARN((INT32)(tmp1-1))); +  emit0(F_CAST_TO_STRING); +  return 1;    } else if (compile_type_to_runtime_type(n->type) == PIKE_T_MIXED) {    tmp1 = do_docode(CAR(n), 0);    if(!tmp1)