linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Adapted indenation to new agreed upon system

Browse Source 
- Added support for second generation scriptcontext based counter
This commit is contained in:
koennecke
2009-02-13 09:00:03 +00:00
parent a3dcad2bfa
commit 91d4af0541
405 changed files with 88101 additions and 88173 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
s_rnge.c
View File

@ -7,26 +7,28 @@ extern "C" {
/* called when a subscript is out of range */
#ifdef KR_headers
extern VOID sig_die();
integer s_rnge(varn, offset, procn, line) char *varn, *procn; ftnint offset, line;
extern VOID sig_die();
integer s_rnge(varn, offset, procn, line) char *varn, *procn;
ftnint offset, line;
#else
extern VOID sig_die(char*,int);
integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line)
extern VOID sig_die(char *, int);
integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line)
#endif
{
register int i;
{
register int i;
fprintf(stderr, "Subscript out of range on file line %ld, procedure ",
(long)line);
while((i = *procn) && i != '_' && i != ' ')
putc(*procn++, stderr);
fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ",
(long)offset+1);
while((i = *varn) && i != ' ')
putc(*varn++, stderr);
sig_die(".", 1);
return 0; /* not reached */
}
fprintf(stderr, "Subscript out of range on file line %ld, procedure ",
(long) line);
while ((i = *procn) && i != '_' && i != ' ')
putc(*procn++, stderr);
fprintf(stderr,
".\nAttempt to access the %ld-th element of variable ",
(long) offset + 1);
while ((i = *varn) && i != ' ')
putc(*varn++, stderr);
sig_die(".", 1);
return 0; /* not reached */
}
#ifdef __cplusplus
}
#endif