Commit | Line | Data |
---|---|---|
ed3947dd DW |
1 | /* |
2 | * "@(#)s_rnge.c 1.1" | |
3 | */ | |
4 | ||
5 | #include <stdio.h> | |
6 | ||
7 | /* called when a subscript is out of range */ | |
8 | ||
9 | s_rnge(varn, offset, procn, line) | |
10 | char *varn, *procn; | |
11 | long int offset; | |
12 | int line; | |
13 | { | |
14 | register int i; | |
15 | ||
16 | fprintf(stderr, "Subscript out of range on file line %d, procedure ", line); | |
17 | for(i = 0 ; i < 8 && *procn!='_' ; ++i) | |
18 | putc(*procn++, stderr); | |
19 | fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1); | |
20 | for(i = 0 ; i < 6 && *varn!=' ' ; ++i) | |
21 | putc(*varn++, stderr); | |
22 | fprintf(stderr, ".\n"); | |
23 | _cleanup(); | |
24 | abort(); | |
25 | } |