Main Page

Source Files

Class Hierarchy

Alphabetical List

Compound List

Compound Members

File Members

Related Pages

Search for

---

libsrc/credel.cxx File Reference

enfilade creation and deletion routines More...

#include <memory.h>
#include <malloc.h>
#include <unistd.h>
#include "udanax.h"

Include dependency graph for credel.cxx:

Go to the source code of this file.

Defines
#define	NEWALLOC
#define	MAXALLOCQUEUEARRAY   500
Functions
bool	isreapable (int *fuckinap, typecorecrum *localreaper)
	???
void	reap (typecorecrum *localreaper)
	???
void	initqueues ()
	???
char *	allocfromqueue (int n)
	???
void	freetoqueue (char *ptr)
	???
typecorecrum *	createcruminternal (int crumheight, int enftype, typecorecrum *allocated)
void	initcrum (int crumheight, int enftype, typecorecrum *ptr)
	???
void	xgrabmorecore ()
	???
void	grimlyreap ()
	???
int *	ealloc (unsigned nbytes)
	???
void	efree (char *ptr)
	???
int *	eallocwithtag (unsigned nbytes, tagtype tag)
	???
void	initgrimreaper ()
	???
int	testforrejuvinate (typecorecrum *ptr)
	???
void	funcrejuvinate (typecorecrum *ptr)
	???
void	reserve (typecorecrum *ptr)
	???
void	testforreservedness (char *msg)
	???
void	subtreefree (typecorecrum *ptr)
	???
void	freecrum (typecorecrum *ptr)
	???
void	loaffree (typecuc *father)
	???
void	orglfree (typecuc *ptr)
	???
typecuc *	createenf (int enftype)
	???
typecorecrum *	createcrum (int crumheight, int enftype)
	???
Variables
typecorecrum *	grimreaper
int	ingrimreaper = false
int	reaplevel = 0
int	timesaroundreaper = 0
int	crumnumber = 0
int	reapnumber = 0
int	nreapings = 0
int	reservnumber = 0
queue	allocqueuearray [MAXALLOCQUEUEARRAY]

---

Detailed Description

enfilade creation and deletion routines

(to be defined)

Definition in file credel.cxx.

---

Define Documentation

#define MAXALLOCQUEUEARRAY   500

Definition at line 99 of file credel.cxx. Referenced by initqueues().

#define NEWALLOC

Definition at line 87 of file credel.cxx.

---

Function Documentation

char* allocfromqueue (  int  n  )  [static]

??? (to be defined) Definition at line 153 of file credel.cxx. References allocqueuearray, HEADER, and qremove(). Referenced by ealloc(). { return (char *) qremove(&allocqueuearray[((n + sizeof(HEADER) - 1) / sizeof(HEADER))]); }

typecorecrum* createcrum (  int  crumheight, int  enftype )

??? (to be defined) Definition at line 865 of file credel.cxx. References createcruminternal(), grimreaper, typecorecrumhedr::nextcrum, NULL, typecorecrumhedr::prevcrum, and typecorecrum. Referenced by createenf(), initkluge(), inorglinternal(), insertcbcnd(), insertseq(), levelpush(), makecutsbackuptohere(), peelcrumoffnd(), peeloffcorrectson(), peelsoncorrectly(), splitcrumseq(), and varunpackloaf(). { typecorecrum *ptr = createcruminternal(crumheight, enftype, (typecorecrum *) NULL); if (grimreaper) { ptr->nextcrum = grimreaper; ptr->prevcrum = grimreaper->prevcrum; grimreaper->prevcrum->nextcrum = ptr; grimreaper->prevcrum = ptr; } else grimreaper = ptr->nextcrum = ptr->prevcrum = ptr; return ptr; }

typecorecrum* createcruminternal (  int  crumheight, int  enftype, typecorecrum *  allocated )  [static]

Definition at line 182 of file credel.cxx. References typecorecrumhedr::age, assert, CBCTAG, typecorecrumhedr::cdsp, typecorecrumhedr::cenftype, clear, crumnumber, CUCTAG, typecorecrumhedr::cwid, DISKPTRNULL, eallocwithtag(), GRAN, GRANCLEARLYILLEGALINFO, typecorecrumhedr::height, L, typecorecrumhedr::leftbroorfather, NEW, NULL, POOM, typecorecrumhedr::rightbro, SPAN, tagtype, and typecorecrum. Referenced by createcrum(), and initcrum(). { unsigned crumsize = 0; if (crumheight == 0) { switch (enftype) { case GRAN: crumsize = sizeof(typecbc); break; case SPAN: case POOM: crumsize = sizeof( /* typecbc */ type2dcbc); break; default: L(" enftype = %d\n", enftype); assert(0); // createcrum illegal enftype } } else crumsize = sizeof(typecuc); typecorecrum *ptr; if (!allocated) ptr = (typecorecrum *) eallocwithtag(crumsize, (tagtype) (crumheight > 0 ? CUCTAG : CBCTAG)); else ptr = allocated; ptr->height = crumheight; ptr->isapex = false; ptr->cenftype = enftype; ptr->modified = true /*false*/; ptr->isleftmost = false; ptr->age = NEW; ptr->leftbroorfather = NULL; ptr->rightbro = NULL; clear(&ptr->cdsp, sizeof(ptr->cdsp)); clear(&ptr->cwid, sizeof(ptr->cwid)); if (crumheight > 0) { ((typecuc *) ptr)->numberofsons = 0; ((typecuc *) ptr)->leftson = NULL; ((typecuc *) ptr)->sonorigin.diskblocknumber = DISKPTRNULL; } else { if (enftype == GRAN) { clear(&((typecbc *) ptr)->cinfo, sizeof(((typecbc *) ptr)->cinfo)); ((typecbc *) ptr)->cinfo.infotype = GRANCLEARLYILLEGALINFO; } else clear(&((type2dcbc *) ptr)->c2dinfo, sizeof(((type2dcbc *) ptr)->c2dinfo)); } ++crumnumber; return ptr; }

typecuc* createenf (  int  enftype  )

??? (to be defined) Definition at line 833 of file credel.cxx. References adopt(), typecuc::cenftype, createcrum(), GRAN, GRANNULL, ivemodified(), SON, and typecorecrum. Referenced by createorglgr(), and initsession(). { typecuc *fullcrumptr = (typecuc *) createcrum(1, enftype); fullcrumptr->cenftype = enftype; fullcrumptr->isapex = true; fullcrumptr->isleftmost = true; typecorecrum *ptr = createcrum(0, enftype); adopt(ptr, SON, (typecorecrum *) fullcrumptr); if (enftype == GRAN) ((typecbc *) ptr)->cinfo.infotype = GRANNULL; /* KLUGE will this work?? */ ivemodified(ptr); /* if(enftype == GRAN){ levelpush(fullcrumptr); adopt (createcrum(0,enftype), RIGHTBRO, fullcrumptr->leftson); * adopt(createcrum(0,enftype),SON,fullcrumptr->leftson->rightbro); ptr = fullcrumptr->leftson->leftson; * tumblerincrement(&(ptr->cwid.dsas[WIDTH]),2,1,&(ptr->cwid.dsas[WIDTH])); setwispupwards(ptr,1); } */ return fullcrumptr; }

int* ealloc (  unsigned  nbytes  )  [static]

??? (to be defined) Definition at line 345 of file credel.cxx. References allocfromqueue(), falloc(), grimlyreap(), grimreaper, NULL, tagtype, and xgrabmorecore(). Referenced by eallocwithtag(). { /* with tag */ /* L("ealloc called with %d\n", nbytes); */ for (;;) { char *ret; if ((ret = allocfromqueue(nbytes + sizeof(tagtype))) != 0) { ret += sizeof(tagtype); return (int *) ret; } ret = (char *)falloc(nbytes + sizeof(tagtype)); if (ret) { // memset(ret + sizeof(tagtype), 0xF9, nbytes); *(tagtype *) ret = false; return (int *) (ret + sizeof(tagtype)); } if (grimreaper == NULL) { xgrabmorecore(); /* * assert(0); // Why am I out of room? */ } grimlyreap(); } }

int * eallocwithtag (  unsigned  nbytes, tagtype  tag )

??? (to be defined) Definition at line 409 of file credel.cxx. References CBCTAG, CUCTAG, ealloc(), NULL, and tagtype. Referenced by addtoopen(), Session::alloc(), createcontext(), createcrumcontext(), and createcruminternal(). { char *ret = NULL; if (tag == CBCTAG || tag == CUCTAG) { ret = (char *) ealloc(nbytes); } else { ret = (char *) malloc(nbytes + sizeof(tagtype)); ret += sizeof(tagtype); } /* etag((char*)ret,tag); */ *(ret - sizeof(tagtype)) = tag; return (int *) ret; }

void efree (  char *  ptr  )

??? (to be defined) Definition at line 382 of file credel.cxx. References CBCTAG, CUCTAG, ffree(), freetoqueue(), and tagtype. Referenced by closeberts(), contextfree(), crumcontextfree(), Session::free(), freecrum(), Session::freeexplicit(), and removefromopen(). { /* with tag */ /* ffree(ptr); */ if (*(ptr - sizeof(tagtype)) == CBCTAG || *(ptr - sizeof(tagtype)) == CUCTAG) { #ifdef NEWALLOC freetoqueue(ptr - sizeof(tagtype)); #else ffree(ptr - sizeof(tagtype)); #endif } else { free(ptr - sizeof(tagtype)); } }

void freecrum (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 759 of file credel.cxx. References typecorecrumhedr::age, assert, crumnumber, efree(), grimreaper, typecorecrumhedr::nextcrum, NULL, typecorecrumhedr::prevcrum, RESERVED, and typecorecrum. Referenced by eatbrossubtreend(), eatbrossubtreeseq(), initkluge(), subtreefree(), takenephewnd(), and takeovernephewsnd(). { if (ptr->age == RESERVED) assert(0); // freecrum called with RESERVED crum if (grimreaper == ptr) grimreaper = grimreaper->nextcrum; if (grimreaper == ptr) grimreaper = NULL; ptr->nextcrum->prevcrum = ptr->prevcrum; ptr->prevcrum->nextcrum = ptr->nextcrum; /* zzz should it decrement usecount here sometimes? */ --crumnumber; efree((char *)ptr); }

void freetoqueue (  char *  ptr  )  [static]

??? (to be defined) Definition at line 167 of file credel.cxx. References allocqueuearray, HEADER, and qpush(). Referenced by efree(). { // Located in memory before the tag is the sizeof the block in align uints // including the header // dumptable(); int n = ((HEADER *) (ptr - sizeof(HEADER)))->s.size - 1; qpush(&allocqueuearray[n], (queue *) ptr); // dumptable(); }

void funcrejuvinate (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 641 of file credel.cxx. References typecorecrumhedr::age, assert, dump(), NEW, RESERVED, reservnumber, and typecorecrum. { /* inner if is testing very useful * test */ if (ptr->age == RESERVED) { if (!reservnumber) { #ifndef DISTRIBUTION dump(ptr); assert(0); // There shouldn't be any more reserved #else assert(0); // memory mess #endif } --reservnumber; } ptr->age = NEW; }

void grimlyreap (   )  [static]

??? (to be defined) * Definition at line 284 of file credel.cxx. References typecorecrumhedr::age, assert, grimreaper, ingrimreaper, isreapable(), L, typecorecrumhedr::nextcrum, reap(), reaplevel, reapnumber, RESERVED, timesaroundreaper, typecorecrum, and xgrabmorecore(). Referenced by ealloc(). { typecorecrum *ptr; int eh; ingrimreaper = true; if (reaplevel++) #ifndef DISTRIBUTION if (reaplevel == 1) L("Recursive grimreaper call.\n"); #endif if (!grimreaper) assert(0); // nothing to reap! reapnumber = 0; timesaroundreaper = 0; for (ptr = grimreaper; grimreaper; grimreaper = (typecorecrum *) grimreaper->nextcrum) { if (grimreaper == ptr) { ++timesaroundreaper; } if (timesaroundreaper > 10) { L("urk in grimlyreap\n"); /* lookatalloc(); */ xgrabmorecore(); break; // * #ifndef DISTRIBUTION assert(0); /* I'm getting bored in grimlyreap */); #else // * assert(0); /* memory fouled */); #endif */ } if (grimreaper->age == RESERVED) continue; if (isreapable(&eh, grimreaper)) { reap(grimreaper); reapnumber = 0; timesaroundreaper = 0; --reaplevel; break; } else { if (eh) { /* dump(grimreaper); */ } } ++reapnumber; grimreaper->age++; } ingrimreaper = false; }

void initcrum (  int  crumheight, int  enftype, typecorecrum *  ptr )

??? (to be defined) Definition at line 248 of file credel.cxx. References createcruminternal(), and typecorecrum. Referenced by deletefullcrumandgarbageddescendents(). { createcruminternal(crumheight, enftype, ptr); }

void initgrimreaper (   )

??? (to be defined) Definition at line 608 of file credel.cxx. References grimreaper, and NULL. Referenced by initsession(). { grimreaper = NULL; }

void initqueues (   )

??? (to be defined) Definition at line 113 of file credel.cxx. References allocqueuearray, allocsize, falloc(), HEADER, MAXALLOCQUEUEARRAY, qinit(), qpush(), and tagtype. Referenced by initsession(). { for (int i = 0; i < MAXALLOCQUEUEARRAY; i++) qinit(&allocqueuearray[i]); #ifdef NEWALLOC int num = allocsize / 3; #else int num = 0; #endif for (int j = 0; j < num; j += sizeof(typecuc) + sizeof(typecbc) + sizeof(type2dcbc) + 3 * sizeof(tagtype)) { qpush(&allocqueuearray[(sizeof(typecuc) + sizeof(tagtype) + sizeof(HEADER) - 1) / sizeof(HEADER)], (queue *) falloc(sizeof(typecuc) + sizeof(tagtype))); qpush(&allocqueuearray[(sizeof(typecbc) + sizeof(tagtype) + sizeof(HEADER) - 1) / sizeof(HEADER)], (queue *) falloc(sizeof(typecbc) + sizeof(tagtype))); qpush(&allocqueuearray[(sizeof(type2dcbc) + sizeof(tagtype) + sizeof(HEADER) - 1) / sizeof(HEADER)], (queue *) falloc(sizeof(type2dcbc) + sizeof(tagtype))); } }

bool isreapable (  int *  fuckinap, typecorecrum *  localreaper )  [static]

??? (to be defined) Definition at line 437 of file credel.cxx. References typecorecrumhedr::age, assert, typecorecrumhedr::cenftype, dump(), GRAN, GRANORGL, typecorecrumhedr::height, L, OLD, POOM, RESERVED, typecorecrumhedr::rightbro, typecorecrum, weakfindfather, and weakfindleftmostbro(). Referenced by grimlyreap(). { register typecorecrum *p; typecuc *father; *fuckinap = 0; if (!localreaper) assert(0); // localreaper NULL if (localreaper->age < OLD || localreaper->age == RESERVED) { *fuckinap = 1; return false; } if (localreaper->isapex) { if (localreaper->cenftype != POOM) return false; if (localreaper->modified) { if (!((typecuc *) localreaper)->leftson) { #ifndef DISTRIBUTION dump(localreaper); L("in isreapable modified and no son in apex"); #endif return false; } for (p = ((typecuc *) localreaper)->leftson; p; p = p->rightbro) { if (p->modified) return false; if (p->age < OLD || p->age == RESERVED) return false; if (p->height > 0 && ((typecuc *) p)->leftson) return false; if (p->height == 0 && p->cenftype == GRAN && ((typecbc *) p)->cinfo.infotype == GRANORGL && ((typecbc *) p)->cinfo.granstuff.orglstuff.orglincore) return false; } return true; } else { for (p = ((typecuc *) localreaper)->leftson; p; p = p->rightbro) { if (p->modified) return false; if (p->age < OLD || p->age == RESERVED) return false; if (p->height > 0 && ((typecuc *) p)->leftson) return false; if (p->height == 0 && p->cenftype == GRAN && ((typecbc *) p)->cinfo.infotype == GRANORGL && ((typecbc *) p)->cinfo.granstuff.orglstuff.orglincore) return false; } return true; } } /* if height == 0 and not cinfo.orglincore return true */ if (!localreaper) assert(0); // in isreapable localreaper is NULL father = weakfindfather((typecorecrum *) localreaper); if (!father) { L("in isreapable no father !! \n"); return false; } if (localreaper->height == 0) { if (localreaper->cenftype == GRAN) { if (((typecbc *) localreaper)->cinfo.infotype == GRANORGL) { if (((typecbc *) localreaper)->cinfo.granstuff.orglstuff.orglincore) return false; } } for (p = weakfindleftmostbro(localreaper); p; p = p->rightbro) { if (p->age < OLD || p->age == RESERVED) return false; if (p->height == 0 && p->cenftype == GRAN && ((typecbc *) p)->cinfo.infotype == GRANORGL && ((typecbc *) p)->cinfo.granstuff.orglstuff.orglincore) return false; } return true; } else { /* != 0 */ if (father->modified) { for (p = weakfindleftmostbro(localreaper); p; p = p->rightbro) { if (p->modified) return false; if (p->age < OLD || p->age == RESERVED) return false; if (p->height > 0 && ((typecuc *) p)->leftson) return false; } return true; } else { /* if (!father->modified) */ for (p = weakfindleftmostbro(localreaper); p; p = p->rightbro) { if (p->modified) return false; if (p->age < OLD || p->age == RESERVED) return false; if (p->height > 0 && ((typecuc *) p)->leftson) return false; } return true; } } }

void loaffree (  typecuc *  father  )

??? (to be defined) Definition at line 788 of file credel.cxx. References assert, disownnomodify(), typecuc::height, typecuc::leftson, typecorecrumhedr::rightbro, subtreefree(), and typecorecrum. Referenced by subtreewriterecurs(). { if (father->height <= 0 /* || !father->leftson */ ) assert(0); // bad call typecorecrum *ptr, *next; for (ptr = father->leftson; ptr; ptr = next) { next = ptr->rightbro; disownnomodify(ptr); subtreefree(ptr); } father->modified = false; }

void orglfree (  typecuc *  ptr  )

??? (to be defined) Definition at line 812 of file credel.cxx. References assert, DISKPTRNULL, typecuc::leftbroorfather, NULL, subtreefree(), and typecorecrum. Referenced by orglwritepart2(), and subtreefree(). { assert(ptr); // ERROR: orglfree called with no orglptr assert(ptr->isapex); // ERROR: Orglfree called with non-fullcrum assert(((typecbc *) ptr->leftbroorfather)->cinfo.granstuff.orglstuff.diskorglptr.diskblocknumber != DISKPTRNULL); // ERROR: orglfree called with unwritten-out orgl ((typecbc *) ptr->leftbroorfather)->cinfo.granstuff.orglstuff.orglincore = false; ((typecbc *) ptr->leftbroorfather)->cinfo.granstuff.orglstuff.orglptr = NULL; subtreefree((typecorecrum *) ptr); }

void reap (  typecorecrum *  localreaper  )  [static]

??? (to be defined) Definition at line 564 of file credel.cxx. References assert, grimreaper, typecorecrumhedr::leftbroorfather, typecuc::leftson, typecorecrumhedr::nextcrum, nreapings, orglwrite(), subtreewrite(), typecorecrum, and weakfindfather. Referenced by grimlyreap(). { typecuc *temp; if (!localreaper) assert(0); // localreaper NULL0 ++nreapings; if (localreaper->isapex) { temp = (typecuc *) localreaper->leftbroorfather; grimreaper = grimreaper->nextcrum; if (!temp) return; orglwrite((typecbc *) temp); if (!localreaper) assert(0); // localreaper NULL2 return; } temp = weakfindfather((typecorecrum *) localreaper); if (!temp) assert(0); // localreaper doesn't have a father if (!temp->leftson) { grimreaper = grimreaper->nextcrum; return; } subtreewrite(temp); }

void reserve (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 667 of file credel.cxx. References typecorecrumhedr::age, assert, foohex(), RESERVED, reservnumber, and typecorecrum. Referenced by createcrumcontext(), createorglgr(), eatbrossubtreend(), findleftson(), insertcbcnd(), insertseq(), makecontextfromcbc(), orglwritepart2(), peelcrumoffnd(), and splitcrumseq(). { #ifndef DISTRIBUTION foohex("reserve\n", (int) ptr); #endif if (ptr->age != RESERVED) { ++reservnumber; } else { #ifndef DISTRIBUTION assert(0); // reserve already reserved #else assert(0); // arg! #endif } ptr->age = RESERVED; }

void subtreefree (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 728 of file credel.cxx. References assert, typecorecrumhedr::cenftype, disown(), freecrum(), GRAN, GRANORGL, typecorecrumhedr::height, orglfree(), typecorecrumhedr::rightbro, and typecorecrum. Referenced by deletend(), loaffree(), and orglfree(). { if (!ptr) assert(0); // boom in subtreefree called with ptr == NULL if (ptr->height > 0) { typecorecrum *p, *right; for (p = ((typecuc *) ptr)->leftson; p; p = right) { right = p->rightbro; disown(p); subtreefree(p); } } else if (ptr->cenftype == GRAN && ((typecbc *) ptr)->cinfo.infotype == GRANORGL && ((typecbc *) ptr)->cinfo.granstuff.orglstuff.orglincore) orglfree(((typecbc *) ptr)->cinfo.granstuff.orglstuff.orglptr); freecrum(ptr); }

int testforrejuvinate (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 621 of file credel.cxx. References typecorecrumhedr::age, assert, RESERVED, reservnumber, and typecorecrum. { if (ptr->age == RESERVED) { if (!reservnumber) assert(0); // There shouldn't be any more reserved --reservnumber; } return 0; }

void testforreservedness (  char *  msg  )

??? (to be defined) Definition at line 693 of file credel.cxx. References typecorecrumhedr::age, assert, debug, dump(), grimreaper, L, typecorecrumhedr::nextcrum, RESERVED, reservnumber, and typecorecrum. Referenced by main(). { /* test to see if any reserved flags linger * in the memory. if they do is a * gross * error in crum stuff */ int numreserved = 0; bool first; typecorecrum *ptr; for (ptr = grimreaper, first = true; ptr && (first ? true : ptr != grimreaper); ptr = ptr->nextcrum, first = false) if (ptr->age == RESERVED) { ++numreserved; if (true || debug) dump(ptr); } if (numreserved) { L("numreserved = %s: There are %d reserved crums. (reservnumber = %d)\n", msg, numreserved, reservnumber); assert(0); // This isn't supposed to be the case } if (reservnumber) { L("reservnumber = %d\n", reservnumber); assert(0); // reservnumber is incorrect } }

void xgrabmorecore (   )  [static]

??? (to be defined) Definition at line 264 of file credel.cxx. References assert, ffree(), HEADER, incrementalallocsize, and L. Referenced by ealloc(), and grimlyreap(). { char *tmp = (char *) sbrk(incrementalallocsize); if (!tmp) assert(0); // no more memory in xgrabmorecore ((HEADER *) tmp)->s.size = (incrementalallocsize + sizeof(HEADER) - 1) / sizeof(HEADER); ffree(tmp + sizeof(HEADER)); L("xgrabmorecore got another %d\n", incrementalallocsize); }

---

Variable Documentation

struct queue allocqueuearray[MAXALLOCQUEUEARRAY]

Definition at line 100 of file credel.cxx. Referenced by allocfromqueue(), freetoqueue(), and initqueues().

int crumnumber = 0

Definition at line 94 of file credel.cxx. Referenced by createcruminternal(), and freecrum().

typecorecrum* grimreaper

Definition at line 90 of file credel.cxx. Referenced by checkenftypes(), checkthebleedingcrum(), createcrum(), ealloc(), freecrum(), grimlyreap(), initgrimreaper(), reap(), and testforreservedness().

int ingrimreaper = false

Definition at line 91 of file credel.cxx. Referenced by falloc(), and grimlyreap().

int nreapings = 0

Definition at line 96 of file credel.cxx. Referenced by reap().

int reaplevel = 0

Definition at line 92 of file credel.cxx. Referenced by grimlyreap().

int reapnumber = 0

Definition at line 95 of file credel.cxx. Referenced by grimlyreap().

int reservnumber = 0

Definition at line 97 of file credel.cxx. Referenced by assertsubtreeisok(), funcrejuvinate(), reserve(), testforrejuvinate(), and testforreservedness().

int timesaroundreaper = 0

Definition at line 93 of file credel.cxx. Referenced by grimlyreap().

---