Branch: Tag:

1999-09-06

1999-09-06 11:13:23 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

a few bugfixes

Rev: src/las.c:1.85
Rev: src/module_support.c:1.26
Rev: src/program.c:1.134
Rev: src/program.h:1.56
Rev: src/testsuite.in:1.192
Rev: src/threads.h:1.70

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.84 1999/08/20 06:01:30 mast Exp $"); + RCSID("$Id: las.c,v 1.85 1999/09/06 11:13:17 hubbe Exp $");      #include "language.h"   #include "interpret.h"
583:   #endif    res->u.integer.a = level;    res->u.integer.b = i; +  +  /* Bzot-i-zot */ +  new_program->flags |= PROGRAM_USES_PARENT; +     return res;   }   
2322:    }else{    yyerror("Nonstandard error format.");    } -  }else{ +  } +  else if(throw_value.type == T_OBJECT) +  { +  ref_push_object(throw_value.u.object); +  push_int(0); +  f_index(2); +  if(sp[-1].type != T_STRING)    yyerror("Nonstandard error format."); -  +  else +  yyerror(sp[-1].u.string->str); +  pop_stack();    } -  +  else +  { +  yyerror("Nonstandard error format.");    } -  +  }    }else{    if(foo.yes)    pop_n_elems(sp-save_sp);