shithub: purgatorio

ref: b5bc6572b0a82c52ab04bcf25e1ed76700deb246
dir: /libinterp/validstk.c/

#include "lib9.h"
#include "isa.h"
#include "interp.h"

static int depth;

void
memchk(void *p, Type *t)
{
	Heap *h;
	int i, j;
	ulong *v, **base;

	if(depth > 100)
		return;
	depth++;
	base = p;
	for(i = 0; i < t->np; i++) {
		for(j = 0; j < 8; j++) {
			if(t->map[i] & (1<<(7-j))) {
				v = base[(i*8)+j];
				if(v != H) {
					h = D2H(v);
					hmsize(h);
					if(h->ref <= 0)
						abort();
					if(h->t != nil)
						memchk(v, h->t);
				}
			}
		}
	}
	depth--;
}

void
validstk(void)
{
	Type *t;
	Frame *f;
	uchar *fp;

	fp = R.FP;
	while(fp != nil) {
		f = (Frame*)fp;
		t = f->t;
		if(t == nil)
			t = SEXTYPE(f)->reg.TR;

		memchk(f, t);
		fp = f->fp;
	}
}