- putc('\n', stderr);
- switch (exception)
- {
- case RTESLCOF: fprintf(stderr, " SL CHAIN CUT OFF"); break;
- case RTEUNSTP: fprintf(stderr, " UNIMPLEMENTED STANDARD PROCEDURE"); break;
- case RTEILLAT: fprintf(stderr, " ILLEGAL ATTACH"); break;
- case RTEILLDT: fprintf(stderr, " ILLEGAL DETACH"); break;
- case RTECORTM: fprintf(stderr, " COROUTINE TERMINATED"); break;
- case RTECORAC: fprintf(stderr, " COROUTINE ACTIVE"); break;
- case RTEINVIN: fprintf(stderr, " ARRAY INDEX ERROR"); break;
- case RTEILLAB: fprintf(stderr, " INCORRECT ARRAY BOUNDS"); break;
- case RTEINCQA: fprintf(stderr, " IMPROPER QUA"); break;
- case RTEINCAS: fprintf(stderr, " ILLEGAL ASSIGNMENT"); break;
- case RTEFTPMS: fprintf(stderr, " FORMAL TYPE MISSING"); break;
- case RTEILLKL: fprintf(stderr, " ILLEGAL KILL"); break;
- case RTEILLCP: fprintf(stderr, " ILLEGAL COPY"); break;
- case RTEINCHS: fprintf(stderr, " INCOMPATIBLE HEADERS"); break;
- case RTEHNDNF: fprintf(stderr, " HANDLER NOT FOUND"); break;
- case RTEMEMOV: fprintf(stderr, " MEMORY OVERFLOW"); break;
- case RTEFHTLG: fprintf(stderr, " FORMAL LIST TOO LONG"); break;
- case RTEILLRT: fprintf(stderr, " ILLEGAL RETURN"); break;
- case RTEREFTN: fprintf(stderr, " REFERENCE TO NONE"); break;
- case RTEDIVBZ: fprintf(stderr, " DIVISION BY ZERO"); break;
- case RTESYSER: fprintf(stderr, " SYSTEM ERROR"); break;
- case RTEILLIO: fprintf(stderr, " ILLEGAL I/O OPERATION"); break;
- case RTEIOERR: fprintf(stderr, " I/O ERROR"); break;
- case RTECNTOP: fprintf(stderr, " CANNOT OPEN FILE"); break;
- case RTEBADFM: fprintf(stderr, " INPUT DATA FORMAT BAD"); break;
- case RTEILLRS: fprintf(stderr, " ILLEGAL RESUME"); break;
- case RTETMPRC: fprintf(stderr, " TOO MANY PROCESSES ON ONE MACHINE"); break;
- case RTEINVND: fprintf(stderr, " INVALID NODE NUMBER"); break;
- case RTENEGST: fprintf(stderr, " NEGATIVE STEP VALUE"); break;
- case RTENONGL: fprintf(stderr, " REFERENCE TO GLOBAL NON PROCESS OBJECT FROM PROCESS"); break;
- default : fprintf(stderr, " UNRECOGNIZED ERROR");
- }
- if (thisp->trlnumber < 0) thisp->trlnumber = - thisp->trlnumber;
- if (thisp->trlnumber != 0)
- fprintf(stderr, "\n AT LINE: %ld\n", (long) thisp->trlnumber);
- endprocess(4);
-} /* end errsignal */
-
+ putc('\n', stderr);
+ switch (exception) {
+ case RTESLCOF:
+ fprintf(stderr, " SL CHAIN CUT OFF");
+ break;
+ case RTEUNSTP:
+ fprintf(stderr, " UNIMPLEMENTED STANDARD PROCEDURE");
+ break;
+ case RTEILLAT:
+ fprintf(stderr, " ILLEGAL ATTACH");
+ break;
+ case RTEILLDT:
+ fprintf(stderr, " ILLEGAL DETACH");
+ break;
+ case RTECORTM:
+ fprintf(stderr, " COROUTINE TERMINATED");
+ break;
+ case RTECORAC:
+ fprintf(stderr, " COROUTINE ACTIVE");
+ break;
+ case RTEINVIN:
+ fprintf(stderr, " ARRAY INDEX ERROR");
+ break;
+ case RTEILLAB:
+ fprintf(stderr, " INCORRECT ARRAY BOUNDS");
+ break;
+ case RTEINCQA:
+ fprintf(stderr, " IMPROPER QUA");
+ break;
+ case RTEINCAS:
+ fprintf(stderr, " ILLEGAL ASSIGNMENT");
+ break;
+ case RTEFTPMS:
+ fprintf(stderr, " FORMAL TYPE MISSING");
+ break;
+ case RTEILLKL:
+ fprintf(stderr, " ILLEGAL KILL");
+ break;
+ case RTEILLCP:
+ fprintf(stderr, " ILLEGAL COPY");
+ break;
+ case RTEINCHS:
+ fprintf(stderr, " INCOMPATIBLE HEADERS");
+ break;
+ case RTEHNDNF:
+ fprintf(stderr, " HANDLER NOT FOUND");
+ break;
+ case RTEMEMOV:
+ fprintf(stderr, " MEMORY OVERFLOW");
+ break;
+ case RTEFHTLG:
+ fprintf(stderr, " FORMAL LIST TOO LONG");
+ break;
+ case RTEILLRT:
+ fprintf(stderr, " ILLEGAL RETURN");
+ break;
+ case RTEREFTN:
+ fprintf(stderr, " REFERENCE TO NONE");
+ break;
+ case RTEDIVBZ:
+ fprintf(stderr, " DIVISION BY ZERO");
+ break;
+ case RTESYSER:
+ fprintf(stderr, " SYSTEM ERROR");
+ break;
+ case RTEILLIO:
+ fprintf(stderr, " ILLEGAL I/O OPERATION");
+ break;
+ case RTEIOERR:
+ fprintf(stderr, " I/O ERROR");
+ break;
+ case RTECNTOP:
+ fprintf(stderr, " CANNOT OPEN FILE");
+ break;
+ case RTEBADFM:
+ fprintf(stderr, " INPUT DATA FORMAT BAD");
+ break;
+ case RTEILLRS:
+ fprintf(stderr, " ILLEGAL RESUME");
+ break;
+ case RTETMPRC:
+ fprintf(stderr, " TOO MANY PROCESSES ON ONE MACHINE");
+ break;
+ case RTEINVND:
+ fprintf(stderr, " INVALID NODE NUMBER");
+ break;
+ case RTENEGST:
+ fprintf(stderr, " NEGATIVE STEP VALUE");
+ break;
+ case RTENONGL:
+ fprintf(stderr, " REFERENCE TO GLOBAL NON PROCESS OBJECT FROM PROCESS");
+ break;
+ default:
+ fprintf(stderr, " UNRECOGNIZED ERROR");
+ }
+ if (thisp->trlnumber < 0)
+ thisp->trlnumber = -thisp->trlnumber;
+ if (thisp->trlnumber != 0)
+ fprintf(stderr, "\n AT LINE: %ld\n", (long)thisp->trlnumber);
+ endprocess(4);
+}