Branch: Tag:

1999-03-19

1999-03-19 11:43:14 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

now uses object exceptions in some cases

Rev: src/interpret.c:1.118

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.117 1999/03/17 21:51:30 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.118 1999/03/19 11:43:14 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
269:       default:    if(IS_ZERO(lval)) -  error("Indexing the NULL value.\n"); /* Per */ +  index_error(0,0,0,lval,lval+1,"Indexing the NULL value.\n");    else -  error("Indexing a basic type.\n"); +  index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");    }   }   
328:       default:    if(IS_ZERO(lval)) -  error("Indexing the NULL value.\n"); /* Per */ +  index_error(0,0,0,lval,lval+1,"Indexing the NULL value.\n");    else -  error("Indexing a basic type.\n"); +  index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");    }   }   
368:       default:    if(IS_ZERO(lval)) -  error("Indexing the NULL value.\n"); /* Per */ +  index_error(0,0,0,lval,lval+1,"Indexing the NULL value.\n");    else -  error("Indexing a basic type.\n"); +  index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");    return 0;    }   }