pike.git/ src/ las.c

1996-11-25

1996-11-25 21:33:08 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 3856c30ab1e3e72c46e2cd50557cf021b4a0d690 (26 lines) (+22/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

better error messages implemented and fix for constants

Rev: src/las.c:1.8

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: las.c,v 1.7 1996/11/18 20:44:08 hubbe Exp $"); + RCSID("$Id: las.c,v 1.8 1996/11/25 21:33:08 hubbe Exp $");      #include "language.h"   #include "interpret.h"
315:    copy_shared_string(res->type, ID_FROM_INT(&fake_program, i)->type);       /* FIXME */ +  if(IDENTIFIER_IS_CONSTANT(ID_FROM_INT(&fake_program, i)->flags)) +  { +  res->node_info = OPT_EXTERNAL_DEPEND; +  }else{    res->node_info = OPT_NOT_CONST; -  +  }      #ifdef __CHECKER__    CDR(res)=0;
967:    case F_ASSIGN:    if(CAR(n) && CDR(n) &&    !match_types(CDR(n)->type,CAR(n)->type)) -  my_yyerror("Bad type in assignment.\n"); +  my_yyerror("Bad type in assignment.");    copy_shared_string(n->type, CDR(n)->type);    break;   
993:       if(!n->type)    { -  yyerror("Bad arguments to function call."); +  switch(CAR(n)->token) +  { +  case F_IDENTIFIER: +  setup_fake_program(); +  my_yyerror("Bad argument %d to '%s'.", +  max_correct_args+1, +  ID_FROM_INT(& fake_program, CAR(n)->u.number)->name->str); +  break; +  +  case F_CONSTANT: +  default: +  my_yyerror("Bad argument %d to function call.",max_correct_args+1); +  }    copy_shared_string(n->type, mixed_type_string);    }    free_string(s);