summaryrefslogtreecommitdiff
path: root/src/runtime/rdebug.r
diff options
context:
space:
mode:
Diffstat (limited to 'src/runtime/rdebug.r')
-rw-r--r--src/runtime/rdebug.r219
1 files changed, 0 insertions, 219 deletions
diff --git a/src/runtime/rdebug.r b/src/runtime/rdebug.r
index 26d1167..589ebeb 100644
--- a/src/runtime/rdebug.r
+++ b/src/runtime/rdebug.r
@@ -18,28 +18,6 @@ static void xtrace
* tracebk - print a trace of procedure calls.
*/
-#if COMPILER
-
-void tracebk(lcl_pfp, argp)
-struct p_frame *lcl_pfp;
-dptr argp;
- {
- struct b_proc *cproc;
-
- struct debug *debug;
- word nparam;
-
- if (lcl_pfp == NULL)
- return;
- debug = PFDebug(*lcl_pfp);
- tracebk(lcl_pfp->old_pfp, lcl_pfp->old_argp);
- cproc = debug->proc;
- xtrace(cproc, (word)abs((int)cproc->nparam), argp, debug->old_line,
- debug->old_fname);
- }
-
-#else /* COMPILER */
-
void tracebk(lcl_pfp, argp)
struct pf_marker *lcl_pfp;
dptr argp;
@@ -87,8 +65,6 @@ dptr argp;
pfp = (struct pf_marker *)(pfp->pf_efp);
}
}
-
-#endif /* COMPILER */
/*
* xtrace - procedure *bp is being called with nargs arguments, the first
@@ -105,16 +81,11 @@ char *pfile;
if (bp == NULL)
fprintf(stderr, "????");
else {
-
-#if COMPILER
- putstr(stderr, &(bp->pname));
-#else /* COMPILER */
if (arg[0].dword == D_Proc)
putstr(stderr, &(bp->pname));
else
outimage(stderr, arg, 0);
arg++;
-#endif /* COMPILER */
putc('(', stderr);
while (nargs--) {
@@ -147,15 +118,9 @@ int get_name(dp1,dp0)
word i, j, k;
int t;
-#if COMPILER
- arg1 = glbl_argp;
- loc1 = pfp->tend.d;
- proc = PFDebug(*pfp)->proc;
-#else /* COMPILER */
arg1 = &glbl_argp[1];
loc1 = pfp->pf_locals;
proc = &BlkLoc(*glbl_argp)->proc;
-#endif /* COMPILER */
type_case *dp1 of {
tvsubs: {
@@ -196,14 +161,6 @@ int get_name(dp1,dp0)
StrLen(*dp0) = 6;
StrLoc(*dp0) = "&trace";
}
-
-#ifdef FncTrace
- else if (VarLoc(*dp1) == &kywd_ftrc) {
- StrLen(*dp0) = 7;
- StrLoc(*dp0) = "&ftrace";
- }
-#endif /* FncTrace */
-
else if (VarLoc(*dp1) == &kywd_dmp) {
StrLen(*dp0) = 5;
StrLoc(*dp0) = "&dump";
@@ -216,21 +173,6 @@ int get_name(dp1,dp0)
syserr("name: unknown integer keyword variable");
kywdevent:
-#ifdef MultiThread
- if (VarLoc(*dp1) == &curpstate->eventsource) {
- StrLen(*dp0) = 12;
- StrLoc(*dp0) = "&eventsource";
- }
- else if (VarLoc(*dp1) == &curpstate->eventval) {
- StrLen(*dp0) = 11;
- StrLoc(*dp0) = "&eventvalue";
- }
- else if (VarLoc(*dp1) == &curpstate->eventcode) {
- StrLen(*dp0) = 10;
- StrLoc(*dp0) = "&eventcode";
- }
- else
-#endif /* MultiThread */
syserr("name: unknown event keyword variable");
kywdwin: {
@@ -293,20 +235,11 @@ int get_name(dp1,dp0)
i = varptr - &blkptr->lelem.lslots[blkptr->lelem.first] + 1;
if (i < 1)
i += blkptr->lelem.nslots;
-#ifdef ListFix
- while (BlkType(blkptr->lelem.listprev) == T_Lelem) {
-#else /* ListFix */
while (blkptr->lelem.listprev != NULL) {
-#endif /* ListFix */
blkptr = blkptr->lelem.listprev;
i += blkptr->lelem.nused;
}
-#ifdef ListFix
- sprintf(sbuf,"list_%d[%ld]",
- (long)blkptr->lelem.listprev->list.id, (long)i);
-#else /* ListFix */
sprintf(sbuf,"L[%ld]", (long)i);
-#endif /* ListFix */
i = strlen(sbuf);
Protect(StrLoc(*dp0) = alcstr(sbuf,i), return Error);
StrLen(*dp0) = i;
@@ -314,16 +247,8 @@ int get_name(dp1,dp0)
case T_Record: /* record */
i = varptr - blkptr->record.fields;
proc = &blkptr->record.recdesc->proc;
-
-#ifdef TableFix
- sprintf(sbuf,"record %s_%d.%s", StrLoc(proc->recname),
- blkptr->record.id,
- StrLoc(proc->lnames[i]));
-#else
sprintf(sbuf,"%s.%s", StrLoc(proc->recname),
StrLoc(proc->lnames[i]));
-#endif
-
i = strlen(sbuf);
Protect(StrLoc(*dp0) = alcstr(sbuf,i), return Error);
StrLen(*dp0) = i;
@@ -334,104 +259,13 @@ int get_name(dp1,dp0)
return Error;
break;
default: /* none of the above */
-#ifdef EventMon
- *dp0 = emptystr;
-#else /* EventMon */
syserr("name: invalid structure reference");
-#endif /* EventMon */
-
}
}
}
return Succeeded;
}
-#if COMPILER
-#begdef PTraceSetup()
- struct b_proc *proc;
-
- --k_trace;
- showline(file_name, line_num);
- showlevel(k_level);
- proc = PFDebug(*pfp)->proc; /* get address of procedure block */
- putstr(stderr, &proc->pname);
-#enddef
-
-/*
- * ctrace - a procedure is being called; produce a trace message.
- */
-void ctrace()
- {
- dptr arg;
- int n;
-
- PTraceSetup();
-
- putc('(', stderr);
- arg = glbl_argp;
- n = abs((int)proc->nparam);
- while (n--) {
- outimage(stderr, arg++, 0);
- if (n)
- putc(',', stderr);
- }
- putc(')', stderr);
- putc('\n', stderr);
- fflush(stderr);
- }
-
-/*
- * rtrace - a procedure is returning; produce a trace message.
- */
-
-void rtrace()
- {
- PTraceSetup();
-
- fprintf(stderr, " returned ");
- outimage(stderr, pfp->rslt, 0);
- putc('\n', stderr);
- fflush(stderr);
- }
-
-/*
- * failtrace - procedure named s is failing; produce a trace message.
- */
-
-void failtrace()
- {
- PTraceSetup();
-
- fprintf(stderr, " failed\n");
- fflush(stderr);
- }
-
-/*
- * strace - a procedure is suspending; produce a trace message.
- */
-
-void strace()
- {
- PTraceSetup();
-
- fprintf(stderr, " suspended ");
- outimage(stderr, pfp->rslt, 0);
- putc('\n', stderr);
- fflush(stderr);
- }
-
-/*
- * atrace - a procedure is being resumed; produce a trace message.
- */
-void atrace()
- {
- PTraceSetup();
-
- fprintf(stderr, " resumed\n");
- fflush(stderr);
- }
-#endif /* COMPILER */
-
/*
* keyref(bp,dp) -- print name of subscripted table
*/
@@ -451,16 +285,7 @@ static int keyref(bp, dp)
*/
s2 = StrLoc(*dp);
len = StrLen(*dp);
-#ifdef TableFix
- if (BlkType(bp) == T_Tvtbl)
- bp = bp->tvtbl.clink;
- else
- while(BlkType(bp) == T_Telem)
- bp = bp->telem.clink;
- sprintf(sbuf, "table_%d[", bp->table.id);
-#else /* TableFix */
strcpy(sbuf, "T[");
-#endif /* TableFix */
{ char * dest = sbuf + strlen(sbuf);
strncpy(dest, s2, len);
dest[len] = '\0';
@@ -473,7 +298,6 @@ static int keyref(bp, dp)
return Succeeded;
}
-#ifdef Coexpr
/*
* cotrace -- a co-expression context switch; produce a trace message.
*/
@@ -484,26 +308,16 @@ int swtch_typ;
dptr valloc;
{
struct b_proc *proc;
-
-#if !COMPILER
inst t_ipc;
-#endif /* !COMPILER */
--k_trace;
-#if COMPILER
- showline(ccp->file_name, ccp->line_num);
- proc = PFDebug(*ccp->es_pfp)->proc; /* get address of procedure block */
-#else /* COMPILER */
-
/*
* Compute the ipc of the instruction causing the context switch.
*/
t_ipc.op = ipc.op - 1;
showline(findfile(t_ipc.opnd), findline(t_ipc.opnd));
proc = (struct b_proc *)BlkLoc(*glbl_argp);
-#endif /* COMPILER */
-
showlevel(k_level);
putstr(stderr, &proc->pname);
fprintf(stderr,"; co-expression_%ld ", (long)ccp->id);
@@ -525,7 +339,6 @@ dptr valloc;
fprintf(stderr,"co-expression_%ld\n", (long)ncp->id);
fflush(stderr);
}
-#endif /* Coexpr */
/*
* showline - print file and line number information.
@@ -559,11 +372,8 @@ register int n;
}
}
-#if !COMPILER
-
#include "../h/opdefs.h"
-
extern struct descrip value_tmp; /* argument of Op_Apply */
extern struct b_proc *opblks[];
@@ -812,7 +622,6 @@ dptr dp;
fflush(stderr);
}
-#ifdef Coexpr
/*
* coacttrace -- co-expression is being activated; produce a trace message.
*/
@@ -883,8 +692,6 @@ struct b_coexpr *ncp;
(long)ccp->id, (long)ncp->id);
fflush(stderr);
}
-#endif /* Coexpr */
-#endif /* !COMPILER */
/*
* Service routine to display variables in given number of
@@ -892,11 +699,7 @@ struct b_coexpr *ncp;
*/
int xdisp(fp,dp,count,f)
-#if COMPILER
- struct p_frame *fp;
-#else /* COMPILER */
struct pf_marker *fp;
-#endif /* COMPILER */
register dptr dp;
int count;
FILE *f;
@@ -909,13 +712,7 @@ int xdisp(fp,dp,count,f)
while (count--) { /* go back through 'count' frames */
if (fp == NULL)
break; /* needed because &level is wrong in co-expressions */
-
-#if COMPILER
- bp = PFDebug(*fp)->proc; /* get address of procedure block */
-#else /* COMPILER */
bp = (struct b_proc *)BlkLoc(*dp++); /* get addr of procedure block */
- /* #%#% was: no post-increment there, but *pre*increment dp below */
-#endif /* COMPILER */
/*
* Print procedure name.
@@ -939,11 +736,7 @@ int xdisp(fp,dp,count,f)
/*
* Print locals.
*/
-#if COMPILER
- dp = fp->tend.d;
-#else /* COMPILER */
dp = &fp->pf_locals[0];
-#endif /* COMPILER */
for (n = bp->ndynam; n > 0; n--) {
fprintf(f, " ");
putstr(f, np);
@@ -965,26 +758,14 @@ int xdisp(fp,dp,count,f)
putc('\n', f);
np++;
}
-
-#if COMPILER
- dp = fp->old_argp;
- fp = fp->old_pfp;
-#else /* COMPILER */
dp = fp->pf_argp;
fp = fp->pf_pfp;
-#endif /* COMPILER */
}
/*
* Print globals. Sort names in lexical order using temporary index array.
*/
-
-#if COMPILER
- nglobals = n_globals;
-#else /* COMPILER */
nglobals = eglobals - globals;
-#endif /* COMPILER */
-
indices = (word *)malloc(nglobals * sizeof(word));
if (indices == NULL)
return Failed;
generated by cgit v1.2.3 (git 2.39.1) at 2024-07-01 17:29:08 +0000