pike.git/ src/ program.c

2008-05-30

2008-05-30 16:17:07 by Martin Stjernholm <mast@lysator.liu.se>

• e17a95ec4d1c0a515cc812b66c124259b4b54511 (38 lines) (+4/-34) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed some borken, borken, boRKen behavior. Considering how ancient
that compiler_pass == 2 check is (1.87 1998/04/24 00:32:09 hubbe), I
think this is fairly safe.

Rev: src/program.c:1.711

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: program.c,v 1.710 2008/05/30 11:20:43 grubba Exp $ + || $Id: program.c,v 1.711 2008/05/30 16:17:07 mast Exp $   */      #include "global.h"
1653:    } else {    push_int(0);    } -  if (!safe_apply_current2(PC_RESOLV_FUN_NUM, 3, NULL)) { -  if(Pike_compiler->compiler_pass==2) { -  if (throw_value.type == T_STRING) { -  my_yyerror("%S", throw_value.u.string); -  free_svalue(&throw_value); -  mark_free_svalue (&throw_value); -  } -  else { +  if (!safe_apply_current2(PC_RESOLV_FUN_NUM, 3, NULL))    handle_compile_exception ("Error resolving %S.", ident); -  } -  } else { -  /* FIXME: Error goes to /dev/null. Now we get a warning at -  * least in rtldebug mode, but this borken, borken, boRKen. :P */ -  struct svalue thrown; -  move_svalue (&thrown, &throw_value); -  mark_free_svalue (&throw_value); - #ifdef PIKE_DEBUG -  { -  struct pike_string *msg = format_exception_for_error_msg (&thrown); -  if (msg) { -  yywarning("Ignoring resolv() exception in pass %d:", -  Pike_compiler->compiler_pass); -  yywarning ("%S", msg); -  free_string (msg); -  } -  else -  yywarning("Ignoring resolv() exception in pass %d", -  Pike_compiler->compiler_pass); -  } - #endif -  free_svalue (&thrown); -  } -  } +        if (Pike_compiler->compiler_pass == 2 &&    ((Pike_sp[-1].type == T_OBJECT &&