Branch: Tag:

2000-05-03

2000-05-03 09:00:44 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

very minor optimization

Rev: src/array.c:1.70

23:   #include "stuff.h"   #include "bignum.h"    - RCSID("$Id: array.c,v 1.69 2000/04/27 02:13:28 hubbe Exp $"); + RCSID("$Id: array.c,v 1.70 2000/05/03 09:00:44 hubbe Exp $");      struct array empty_array=   {
242:    INT32 i;    switch (ind->type) {    case T_INT: -  if(ind->type != T_INT) -  error("Index is not an integer.\n"); +     i=ind->u.integer;    if(i<0) i+=a->size;    if(i<0 || i>=a->size) {