void *tgl_alloc_debug (size_t size) {
total_allocated_bytes += size;
void *p = malloc (size + RES_PRE + RES_AFTER);
ensure_ptr (p);
*(int *)p = size ^ 0xbedabeda;
*(int *)(p + 4) = size;
*(int *)(p + RES_PRE + size) = size ^ 0x7bed7bed;
*(int *)(p + RES_AFTER + 4 + size) = used_blocks;
blocks[used_blocks ++] = p;
if (used_blocks - 1 == 24867) {
assert (0);
}
tcheck ();
return p + 8;
}
ftnend(){ /* end of function */
if( retlab != NOLAB ){ /* inside a real function */
efcode();
}
checkst(0);
retstat = 0;
tcheck();
curclass = SNULL;
brklab = contlab = retlab = NOLAB;
flostat = 0;
if( nerrors == 0 ){
if( psavbc != & asavbc[0] ) cerror("bcsave error");
if( paramno != 0 ) cerror("parameter reset error");
if( swx != 0 ) cerror( "switch error");
}
psavbc = &asavbc[0];
paramno = 0;
autooff = AUTOINIT;
minrvar = regvar = MAXRVAR;
reached = 1;
swx = 0;
swp = swtab;
locctr(DATA);
}
