ref: c8b187f9db503465460d8bafa2d7a758bbcf59ca
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; } }