123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941 |
- #include "quakedef.h"
- #define DYNAMIC_SIZE 0x20000
- #define ZONEID 0x1d4a11
- #define MINFRAGMENT 64
- typedef struct memblock_s
- {
- int size;
- int tag;
- int id;
- struct memblock_s *next, *prev;
- int pad;
- } memblock_t;
- typedef struct
- {
- int size;
- memblock_t blocklist;
- memblock_t *rover;
- } memzone_t;
- void Cache_FreeLow (int new_low_hunk);
- void Cache_FreeHigh (int new_high_hunk);
- memzone_t *mainzone;
- void Z_ClearZone (memzone_t *zone, int size);
- void Z_ClearZone (memzone_t *zone, int size)
- {
- memblock_t *block;
-
- zone->blocklist.next = zone->blocklist.prev = block =
- (memblock_t *)( (byte *)zone + sizeof(memzone_t) );
- zone->blocklist.tag = 1;
- zone->blocklist.id = 0;
- zone->blocklist.size = 0;
- zone->rover = block;
-
- block->prev = block->next = &zone->blocklist;
- block->tag = 0;
- block->id = ZONEID;
- block->size = size - sizeof(memzone_t);
- }
- void Z_Free (void *ptr)
- {
- memblock_t *block, *other;
-
- if (!ptr)
- Sys_Error ("Z_Free: NULL pointer");
- block = (memblock_t *) ( (byte *)ptr - sizeof(memblock_t));
- if (block->id != ZONEID)
- Sys_Error ("Z_Free: freed a pointer without ZONEID");
- if (block->tag == 0)
- Sys_Error ("Z_Free: freed a freed pointer");
- block->tag = 0;
-
- other = block->prev;
- if (!other->tag)
- {
- other->size += block->size;
- other->next = block->next;
- other->next->prev = other;
- if (block == mainzone->rover)
- mainzone->rover = other;
- block = other;
- }
-
- other = block->next;
- if (!other->tag)
- {
- block->size += other->size;
- block->next = other->next;
- block->next->prev = block;
- if (other == mainzone->rover)
- mainzone->rover = block;
- }
- }
- void *Z_Malloc (int size)
- {
- void *buf;
-
- Z_CheckHeap ();
- buf = Z_TagMalloc (size, 1);
- if (!buf)
- Sys_Error ("Z_Malloc: failed on allocation of %i bytes",size);
- Q_memset (buf, 0, size);
- return buf;
- }
- void *Z_TagMalloc (int size, int tag)
- {
- int extra;
- memblock_t *start, *rover, *new, *base;
- if (!tag)
- Sys_Error ("Z_TagMalloc: tried to use a 0 tag");
- size += sizeof(memblock_t);
- size += 4;
- size = (size + 7) & ~7;
-
- base = rover = mainzone->rover;
- start = base->prev;
-
- do
- {
- if (rover == start)
- return NULL;
- if (rover->tag)
- base = rover = rover->next;
- else
- rover = rover->next;
- } while (base->tag || base->size < size);
-
- extra = base->size - size;
- if (extra > MINFRAGMENT)
- {
- new = (memblock_t *) ((byte *)base + size );
- new->size = extra;
- new->tag = 0;
- new->prev = base;
- new->id = ZONEID;
- new->next = base->next;
- new->next->prev = new;
- base->next = new;
- base->size = size;
- }
-
- base->tag = tag;
-
- mainzone->rover = base->next;
-
- base->id = ZONEID;
- *(int *)((byte *)base + base->size - 4) = ZONEID;
- return (void *) ((byte *)base + sizeof(memblock_t));
- }
- void Z_Print (memzone_t *zone)
- {
- memblock_t *block;
-
- Con_Printf ("zone size: %i location: %p\n",mainzone->size,mainzone);
-
- for (block = zone->blocklist.next ; ; block = block->next)
- {
- Con_Printf ("block:%p size:%7i tag:%3i\n",
- block, block->size, block->tag);
-
- if (block->next == &zone->blocklist)
- break;
- if ( (byte *)block + block->size != (byte *)block->next)
- Con_Printf ("ERROR: block size does not touch the next block\n");
- if ( block->next->prev != block)
- Con_Printf ("ERROR: next block doesn't have proper back link\n");
- if (!block->tag && !block->next->tag)
- Con_Printf ("ERROR: two consecutive free blocks\n");
- }
- }
- void Z_CheckHeap (void)
- {
- memblock_t *block;
-
- for (block = mainzone->blocklist.next ; ; block = block->next)
- {
- if (block->next == &mainzone->blocklist)
- break;
- if ( (byte *)block + block->size != (byte *)block->next)
- Sys_Error ("Z_CheckHeap: block size does not touch the next block\n");
- if ( block->next->prev != block)
- Sys_Error ("Z_CheckHeap: next block doesn't have proper back link\n");
- if (!block->tag && !block->next->tag)
- Sys_Error ("Z_CheckHeap: two consecutive free blocks\n");
- }
- }
- #define HUNK_SENTINAL 0x1df001ed
- typedef struct
- {
- int sentinal;
- int size;
- char name[8];
- } hunk_t;
- byte *hunk_base;
- int hunk_size;
- int hunk_low_used;
- int hunk_high_used;
- qboolean hunk_tempactive;
- int hunk_tempmark;
- void R_FreeTextures (void);
- void Hunk_Check (void)
- {
- hunk_t *h;
-
- for (h = (hunk_t *)hunk_base ; (byte *)h != hunk_base + hunk_low_used ; )
- {
- if (h->sentinal != HUNK_SENTINAL)
- Sys_Error ("Hunk_Check: trahsed sentinal");
- if (h->size < 16 || h->size + (byte *)h - hunk_base > hunk_size)
- Sys_Error ("Hunk_Check: bad size");
- h = (hunk_t *)((byte *)h+h->size);
- }
- }
- void Hunk_Print (qboolean all)
- {
- hunk_t *h, *next, *endlow, *starthigh, *endhigh;
- int count, sum;
- int totalblocks;
- char name[9];
- name[8] = 0;
- count = 0;
- sum = 0;
- totalblocks = 0;
-
- h = (hunk_t *)hunk_base;
- endlow = (hunk_t *)(hunk_base + hunk_low_used);
- starthigh = (hunk_t *)(hunk_base + hunk_size - hunk_high_used);
- endhigh = (hunk_t *)(hunk_base + hunk_size);
- Con_Printf (" :%8i total hunk size\n", hunk_size);
- Con_Printf ("-------------------------\n");
- while (1)
- {
-
-
-
- if ( h == endlow )
- {
- Con_Printf ("-------------------------\n");
- Con_Printf (" :%8i REMAINING\n", hunk_size - hunk_low_used - hunk_high_used);
- Con_Printf ("-------------------------\n");
- h = starthigh;
- }
-
-
-
-
- if ( h == endhigh )
- break;
-
-
-
- if (h->sentinal != HUNK_SENTINAL)
- Sys_Error ("Hunk_Check: trahsed sentinal");
- if (h->size < 16 || h->size + (byte *)h - hunk_base > hunk_size)
- Sys_Error ("Hunk_Check: bad size");
-
- next = (hunk_t *)((byte *)h+h->size);
- count++;
- totalblocks++;
- sum += h->size;
-
-
-
- memcpy (name, h->name, 8);
- if (all)
- Con_Printf ("%8p :%8i %8s\n",h, h->size, name);
-
-
-
-
- if (next == endlow || next == endhigh ||
- strncmp (h->name, next->name, 8) )
- {
- if (!all)
- Con_Printf (" :%8i %8s (TOTAL)\n",sum, name);
- count = 0;
- sum = 0;
- }
- h = next;
- }
- Con_Printf ("-------------------------\n");
- Con_Printf ("%8i total blocks\n", totalblocks);
-
- }
- void *Hunk_AllocName (int size, char *name)
- {
- hunk_t *h;
-
- #ifdef PARANOID
- Hunk_Check ();
- #endif
- if (size < 0)
- Sys_Error ("Hunk_Alloc: bad size: %i", size);
-
- size = sizeof(hunk_t) + ((size+15)&~15);
-
- if (hunk_size - hunk_low_used - hunk_high_used < size)
- #ifdef _WIN32
- Sys_Error ("Not enough RAM allocated. Try starting using \"-heapsize 16000\" on the QuakeWorld command line.");
- #else
- Sys_Error ("Not enough RAM allocated. Try starting using \"-mem 16\" on the QuakeWorld command line.");
- #endif
-
- h = (hunk_t *)(hunk_base + hunk_low_used);
- hunk_low_used += size;
- Cache_FreeLow (hunk_low_used);
- memset (h, 0, size);
-
- h->size = size;
- h->sentinal = HUNK_SENTINAL;
- Q_strncpy (h->name, name, 8);
-
- return (void *)(h+1);
- }
- void *Hunk_Alloc (int size)
- {
- return Hunk_AllocName (size, "unknown");
- }
- int Hunk_LowMark (void)
- {
- return hunk_low_used;
- }
- void Hunk_FreeToLowMark (int mark)
- {
- if (mark < 0 || mark > hunk_low_used)
- Sys_Error ("Hunk_FreeToLowMark: bad mark %i", mark);
- memset (hunk_base + mark, 0, hunk_low_used - mark);
- hunk_low_used = mark;
- }
- int Hunk_HighMark (void)
- {
- if (hunk_tempactive)
- {
- hunk_tempactive = false;
- Hunk_FreeToHighMark (hunk_tempmark);
- }
- return hunk_high_used;
- }
- void Hunk_FreeToHighMark (int mark)
- {
- if (hunk_tempactive)
- {
- hunk_tempactive = false;
- Hunk_FreeToHighMark (hunk_tempmark);
- }
- if (mark < 0 || mark > hunk_high_used)
- Sys_Error ("Hunk_FreeToHighMark: bad mark %i", mark);
- memset (hunk_base + hunk_size - hunk_high_used, 0, hunk_high_used - mark);
- hunk_high_used = mark;
- }
- void *Hunk_HighAllocName (int size, char *name)
- {
- hunk_t *h;
- if (size < 0)
- Sys_Error ("Hunk_HighAllocName: bad size: %i", size);
- if (hunk_tempactive)
- {
- Hunk_FreeToHighMark (hunk_tempmark);
- hunk_tempactive = false;
- }
- #ifdef PARANOID
- Hunk_Check ();
- #endif
- size = sizeof(hunk_t) + ((size+15)&~15);
- if (hunk_size - hunk_low_used - hunk_high_used < size)
- {
- Con_Printf ("Hunk_HighAlloc: failed on %i bytes\n",size);
- return NULL;
- }
- hunk_high_used += size;
- Cache_FreeHigh (hunk_high_used);
- h = (hunk_t *)(hunk_base + hunk_size - hunk_high_used);
- memset (h, 0, size);
- h->size = size;
- h->sentinal = HUNK_SENTINAL;
- Q_strncpy (h->name, name, 8);
- return (void *)(h+1);
- }
- void *Hunk_TempAlloc (int size)
- {
- void *buf;
- size = (size+15)&~15;
-
- if (hunk_tempactive)
- {
- Hunk_FreeToHighMark (hunk_tempmark);
- hunk_tempactive = false;
- }
-
- hunk_tempmark = Hunk_HighMark ();
- buf = Hunk_HighAllocName (size, "temp");
- hunk_tempactive = true;
- return buf;
- }
- typedef struct cache_system_s
- {
- int size;
- cache_user_t *user;
- char name[16];
- struct cache_system_s *prev, *next;
- struct cache_system_s *lru_prev, *lru_next;
- } cache_system_t;
- cache_system_t *Cache_TryAlloc (int size, qboolean nobottom);
- cache_system_t cache_head;
- void Cache_Move ( cache_system_t *c)
- {
- cache_system_t *new;
- new = Cache_TryAlloc (c->size, true);
- if (new)
- {
- Q_memcpy ( new+1, c+1, c->size - sizeof(cache_system_t) );
- new->user = c->user;
- Q_memcpy (new->name, c->name, sizeof(new->name));
- Cache_Free (c->user);
- new->user->data = (void *)(new+1);
- }
- else
- {
- Cache_Free (c->user);
- }
- }
- void Cache_FreeLow (int new_low_hunk)
- {
- cache_system_t *c;
-
- while (1)
- {
- c = cache_head.next;
- if (c == &cache_head)
- return;
- if ((byte *)c >= hunk_base + new_low_hunk)
- return;
- Cache_Move ( c );
- }
- }
- void Cache_FreeHigh (int new_high_hunk)
- {
- cache_system_t *c, *prev;
-
- prev = NULL;
- while (1)
- {
- c = cache_head.prev;
- if (c == &cache_head)
- return;
- if ( (byte *)c + c->size <= hunk_base + hunk_size - new_high_hunk)
- return;
- if (c == prev)
- Cache_Free (c->user);
- else
- {
- Cache_Move (c);
- prev = c;
- }
- }
- }
- void Cache_UnlinkLRU (cache_system_t *cs)
- {
- if (!cs->lru_next || !cs->lru_prev)
- Sys_Error ("Cache_UnlinkLRU: NULL link");
- cs->lru_next->lru_prev = cs->lru_prev;
- cs->lru_prev->lru_next = cs->lru_next;
-
- cs->lru_prev = cs->lru_next = NULL;
- }
- void Cache_MakeLRU (cache_system_t *cs)
- {
- if (cs->lru_next || cs->lru_prev)
- Sys_Error ("Cache_MakeLRU: active link");
- cache_head.lru_next->lru_prev = cs;
- cs->lru_next = cache_head.lru_next;
- cs->lru_prev = &cache_head;
- cache_head.lru_next = cs;
- }
- cache_system_t *Cache_TryAlloc (int size, qboolean nobottom)
- {
- cache_system_t *cs, *new;
-
- if (!nobottom && cache_head.prev == &cache_head)
- {
- if (hunk_size - hunk_high_used - hunk_low_used < size)
- Sys_Error ("Cache_TryAlloc: %i is greater then free hunk", size);
- new = (cache_system_t *) (hunk_base + hunk_low_used);
- memset (new, 0, sizeof(*new));
- new->size = size;
- cache_head.prev = cache_head.next = new;
- new->prev = new->next = &cache_head;
-
- Cache_MakeLRU (new);
- return new;
- }
-
- new = (cache_system_t *) (hunk_base + hunk_low_used);
- cs = cache_head.next;
-
- do
- {
- if (!nobottom || cs != cache_head.next)
- {
- if ( (byte *)cs - (byte *)new >= size)
- {
- memset (new, 0, sizeof(*new));
- new->size = size;
-
- new->next = cs;
- new->prev = cs->prev;
- cs->prev->next = new;
- cs->prev = new;
-
- Cache_MakeLRU (new);
-
- return new;
- }
- }
-
- new = (cache_system_t *)((byte *)cs + cs->size);
- cs = cs->next;
- } while (cs != &cache_head);
-
- if ( hunk_base + hunk_size - hunk_high_used - (byte *)new >= size)
- {
- memset (new, 0, sizeof(*new));
- new->size = size;
-
- new->next = &cache_head;
- new->prev = cache_head.prev;
- cache_head.prev->next = new;
- cache_head.prev = new;
-
- Cache_MakeLRU (new);
- return new;
- }
-
- return NULL;
- }
- void Cache_Flush (void)
- {
- while (cache_head.next != &cache_head)
- Cache_Free ( cache_head.next->user );
- }
- void Cache_Print (void)
- {
- cache_system_t *cd;
- for (cd = cache_head.next ; cd != &cache_head ; cd = cd->next)
- {
- Con_Printf ("%8i : %s\n", cd->size, cd->name);
- }
- }
- void Cache_Report (void)
- {
- Con_DPrintf ("%4.1f megabyte data cache\n", (hunk_size - hunk_high_used - hunk_low_used) / (float)(1024*1024) );
- }
- void Cache_Compact (void)
- {
- }
- void Cache_Init (void)
- {
- cache_head.next = cache_head.prev = &cache_head;
- cache_head.lru_next = cache_head.lru_prev = &cache_head;
- Cmd_AddCommand ("flush", Cache_Flush);
- }
- void Cache_Free (cache_user_t *c)
- {
- cache_system_t *cs;
- if (!c->data)
- Sys_Error ("Cache_Free: not allocated");
- cs = ((cache_system_t *)c->data) - 1;
- cs->prev->next = cs->next;
- cs->next->prev = cs->prev;
- cs->next = cs->prev = NULL;
- c->data = NULL;
- Cache_UnlinkLRU (cs);
- }
- void *Cache_Check (cache_user_t *c)
- {
- cache_system_t *cs;
- if (!c->data)
- return NULL;
- cs = ((cache_system_t *)c->data) - 1;
- Cache_UnlinkLRU (cs);
- Cache_MakeLRU (cs);
-
- return c->data;
- }
- void *Cache_Alloc (cache_user_t *c, int size, char *name)
- {
- cache_system_t *cs;
- if (c->data)
- Sys_Error ("Cache_Alloc: allready allocated");
-
- if (size <= 0)
- Sys_Error ("Cache_Alloc: size %i", size);
- size = (size + sizeof(cache_system_t) + 15) & ~15;
- while (1)
- {
- cs = Cache_TryAlloc (size, false);
- if (cs)
- {
- strncpy (cs->name, name, sizeof(cs->name)-1);
- c->data = (void *)(cs+1);
- cs->user = c;
- break;
- }
-
-
- if (cache_head.lru_prev == &cache_head)
- Sys_Error ("Cache_Alloc: out of memory");
-
- Cache_Free ( cache_head.lru_prev->user );
- }
-
- return Cache_Check (c);
- }
- void Memory_Init (void *buf, int size)
- {
- int p;
- int zonesize = DYNAMIC_SIZE;
- hunk_base = buf;
- hunk_size = size;
- hunk_low_used = 0;
- hunk_high_used = 0;
-
- Cache_Init ();
- p = COM_CheckParm ("-zone");
- if (p)
- {
- if (p < com_argc-1)
- zonesize = Q_atoi (com_argv[p+1]) * 1024;
- else
- Sys_Error ("Memory_Init: you must specify a size in KB after -zone");
- }
- mainzone = Hunk_AllocName ( zonesize, "zone" );
- Z_ClearZone (mainzone, zonesize);
- }
|