pike.git/ src/ las.c

1999-12-30

1999-12-30 22:20:56 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 46ab5708982f78e8660b9416b9021e108f81a0a4 (19 lines) (+11/-8) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed bug in eval().

Rev: src/las.c:1.157

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.156 1999/12/30 21:57:28 grubba Exp $"); + RCSID("$Id: las.c,v 1.157 1999/12/30 22:20:56 grubba Exp $");      #include "language.h"   #include "interpret.h"
3700:    pop_stack();    return n;    } -  if (n->token != F_SOFT_CAST) { -  new = mksvaluenode(sp-1); -  } else { +  if (n->token == F_SOFT_CAST) {    new = mksoftcastnode(n->type, mksvaluenode(sp-1)); -  } -  if (n->type && (!new->type || pike_types_le(n->type,new->type))) { -  if (new->type) free_string(new->type); +  } else { +  new = mksvaluenode(sp-1); +  if (n->type && (!new->type || ((n->type != new->type) && +  pike_types_le(n->type,new->type)))) { +  if (new->type) +  free_string(new->type);    copy_shared_string(new->type,n->type);    } -  +  }    free_node(n);    n = new;    pop_stack();