Branch: Tag:

1999-12-07

1999-12-07 09:41:02 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

improved type checking (I hope)

Rev: src/Makefile.in:1.171
Rev: src/builtin_functions.c:1.218
Rev: src/constants.c:1.19
Rev: src/constants.h:1.10
Rev: src/las.c:1.135
Rev: src/opcodes.c:1.68
Rev: src/pike_types.c:1.85
Rev: src/pike_types.h:1.28
Rev: src/program.c:1.178
Rev: src/testsuite.in:1.248

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.134 1999/12/05 19:40:41 mast Exp $"); + RCSID("$Id: las.c,v 1.135 1999/12/07 09:40:56 hubbe Exp $");      #include "language.h"   #include "interpret.h"
2114:    {    copy_shared_string(n->type,CDR(n)->type);    }else{ -  n->type = or_pike_types(CAR(n)->type, CDR(n)->type); +  n->type = or_pike_types(CAR(n)->type, CDR(n)->type, 0);    }    break;   
2173:    if(!check_indexing(type_a, type_b, n))    if(!catch_level)    my_yyerror("Indexing on illegal type."); -  n->type=index_type(type_a,n); +  n->type=index_type(type_a, type_b,n);    }    break;   
2295:    break;    }    -  n->type = or_pike_types(CADR(n)->type, CDDR(n)->type); +  n->type = or_pike_types(CADR(n)->type, CDDR(n)->type, 0);    break;       case F_AND_EQ: