Return to trace.c CVS log

Up to [Research Unix] / researchv10no / cmd / adb / v7

researchv10 Norman

/*
 * ptrace goo for reading and writing
 */

#include "defs.h"
#include "space.h"
#include "ptrace.h"

#define	min(a, b)	(((a) < (b)) ? (a) : (b))
extern int errno;

ptri(addr, space, buf, size)
ADDR addr;
int space;
register char *buf;
int size;
{
	PTWORD w;
	register char *p, *q;
	register int n;
	int rf;

	switch (space & SPTYPE) {
	default:
	case INSTSP:
		rf = P_RDI;
		break;

	case DATASP:
		rf = P_RDD;
		break;

	case UBLKSP:
		rf = P_RDU;
		break;
	}
	for (p = buf, n = size; n > 0; n--)
		*p++ = 0;
	while (size) {
		errno = 0;
		w = ptrace(rf, pid, (int *)addr, 0);
		if (errno) {
			errflg = "bad trace read";
			return (0);
		}
		p = (char *)&w;
		for (n = min(size, sizeof(w)); n > 0; size--, n--)
			*buf++ = *p++;
		addr += sizeof(w);
	}
	return (1);
}

ptro(addr, space, buf, size)
ADDR addr;
int space;
register char *buf;
int size;
{
	PTWORD w;
	register char *p;
	register int n;
	int rf, wf;

	switch (space & SPTYPE) {
	default:
	case INSTSP:
		rf = P_RDI;
		wf = P_WRI;
		break;

	case DATASP:
		rf = P_RDD;
		wf = P_WRD;
		break;

	case UBLKSP:
		rf = P_RDU;
		wf = P_WRU;
		break;
	}
	while (size) {
		errno = 0;
		w = ptrace(rf, pid, (int *)addr, 0);
		if (errno) {
			errflg = "bad trace read";
			return (0);
		}
		p = (char *)&w;
		for (n = min(size, sizeof(w)); n > 0; size--, n--)
			*p++ = *buf++;
		errno = 0;
		ptrace(wf, pid, (int *)addr, w);
		if (errno) {
			errflg = "bad trace write";
			return (0);
		}
		p = (char *)&w;
		for (n = min(size, sizeof(w)); n > 0; size--, n--)
			*buf++ = *p++;
		addr += sizeof(w);
	}
	return (1);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.