1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
/*
* errmsg.r -- err_msg, irunerr, drunerr
*/
extern struct errtab errtab[]; /* error numbers and messages */
/*
* err_msg - print run-time error message, performing trace back if required.
* This function underlies the rtt runerr() construct.
*/
void err_msg(n, v)
int n;
dptr v;
{
register struct errtab *p;
if (n == 0) {
k_errornumber = t_errornumber;
k_errorvalue = t_errorvalue;
have_errval = t_have_val;
}
else {
k_errornumber = n;
if (v == NULL) {
k_errorvalue = nulldesc;
have_errval = 0;
}
else {
k_errorvalue = *v;
have_errval = 1;
}
}
k_errortext = "";
for (p = errtab; p->err_no > 0; p++)
if (p->err_no == k_errornumber) {
k_errortext = p->errmsg;
break;
}
if (pfp != NULL) {
if (IntVal(kywd_err) == 0 || !err_conv) {
fprintf(stderr, "\nRun-time error %d\n", k_errornumber);
fprintf(stderr, "File %s; Line %ld\n", findfile(ipc.opnd),
(long)findline(ipc.opnd));
}
else {
IntVal(kywd_err)--;
return;
}
}
else
fprintf(stderr, "\nRun-time error %d in startup code\n", n);
fprintf(stderr, "%s\n", k_errortext);
if (have_errval) {
fprintf(stderr, "offending value: ");
outimage(stderr, &k_errorvalue, 0);
putc('\n', stderr);
}
if (!debug_info)
c_exit(EXIT_FAILURE);
if (pfp == NULL) { /* skip if start-up problem */
if (dodump)
abort();
c_exit(EXIT_FAILURE);
}
fprintf(stderr, "Traceback:\n");
tracebk(pfp, glbl_argp);
fflush(stderr);
if (dodump)
abort();
c_exit(EXIT_FAILURE);
}
/*
* irunerr - print an error message when the offending value is a C_integer
* rather than a descriptor.
*/
void irunerr(n, v)
int n;
C_integer v;
{
t_errornumber = n;
IntVal(t_errorvalue) = v;
t_errorvalue.dword = D_Integer;
t_have_val = 1;
err_msg(0,NULL);
}
/*
* drunerr - print an error message when the offending value is a C double
* rather than a descriptor.
*/
void drunerr(n, v)
int n;
double v;
{
union block *bp;
bp = (union block *)alcreal(v);
if (bp != NULL) {
t_errornumber = n;
BlkLoc(t_errorvalue) = bp;
t_errorvalue.dword = D_Real;
t_have_val = 1;
}
err_msg(0,NULL);
}
|
