Branch: Tag:

1996-11-27

1996-11-27 03:47:02 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more debug added

Rev: src/operators.c:1.4

5:   \*/   #include <math.h>   #include "global.h" - RCSID("$Id: operators.c,v 1.3 1996/11/14 01:36:30 hubbe Exp $"); + RCSID("$Id: operators.c,v 1.4 1996/11/27 03:47:02 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
1102:       if(from>to+1) from=to+1;    } + #ifdef DEBUG +  if(from < 0 || (to-from+1) < 0) +  fatal("Error in o_range.\n"); + #endif       s=make_shared_binary_string(sp[-1].u.string->str+from,to-from+1);    free_string(sp[-1].u.string);