X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=src%2Flib%2F16_hc.c;h=271f4c1a059d94fa835b78e460a1eea5073542b3;hb=6021fc3f27b895d382fbd30488ead35657e39196;hp=13dd3f0e5addcc9080dd48417d188bd1e086f695;hpb=fb97121f7d0be4408d8e2ed98a2f7b10b852a915;p=16.git diff --git a/src/lib/16_hc.c b/src/lib/16_hc.c index 13dd3f0e..271f4c1a 100755 --- a/src/lib/16_hc.c +++ b/src/lib/16_hc.c @@ -1,5 +1,5 @@ /* Project 16 Source Code~ - * Copyright (C) 2012-2016 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover + * Copyright (C) 2012-2018 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover * * This file is part of Project 16. * @@ -20,76 +20,69 @@ * */ /* - heap test stuff + heap check */ #include "src/lib/16_hc.h" +#include -#ifdef __BORLANDC__ -void * LargestFreeBlock(size_t* Size) -#endif -#ifdef __WATCOMC__ -void __near* LargestFreeBlock(size_t* Size) +//from ftp://213.85.246.177/pub/FreeBSD/ports/archivers/arj/work/arj-3.10.22/environ.c +#if 0 +//#ifdef __WATCOMC__ +long HC_Newfarcoreleft() +{ + void __huge *hp; static long rc=736L; long s_rc; + + s_rc=rc; rc+=2L; + do + hp=halloc(rc-=2L, 1024); + while(hp==NULL&&rc>0L); + if(hp!=NULL) + hfree(hp); + if(rc> 1); -#ifdef __BORLANDC__ - while (s0 && (p = malloc(s0)) == NULL) -#endif -#ifdef __WATCOMC__ while (s0 && (p = _nmalloc(s0)) == NULL) -#endif s0 >>= 1; if (p) -#ifdef __BORLANDC__ - free(p); -#endif -#ifdef __WATCOMC__ _nfree(p); -#endif s1 = s0 >> 1; while (s1) { -#ifdef __BORLANDC__ - if ((p = malloc(s0 + s1)) != NULL) -#endif -#ifdef __WATCOMC__ if ((p = _nmalloc(s0 + s1)) != NULL) -#endif { s0 += s1; -#ifdef __BORLANDC__ - free(p); -#endif -#ifdef __WATCOMC__ _nfree(p); -#endif } s1 >>= 1; } -#ifdef __BORLANDC__ - while (s0 && (p = malloc(s0)) == NULL) -#endif -#ifdef __WATCOMC__ while (s0 && (p = _nmalloc(s0)) == NULL) -#endif s0 ^= s0 & -s0; *Size = s0; return p; } -size_t _coreleft(void) +//from: https://stackoverflow.com/questions/14386856/c-check-available-ram +size_t HC_coreleft(void) { size_t total = 0; void __near* pFirst = NULL; @@ -97,16 +90,11 @@ size_t _coreleft(void) for(;;) { size_t largest; - void __near* p = (void __near *)LargestFreeBlock(&largest); + void __near* p = (void __near *)HC_LargestFreeBlock(&largest); if (largest < sizeof(void __near*)) { if (p != NULL) -#ifdef __BORLANDC__ - free(p); -#endif -#ifdef __WATCOMC__ _nfree(p); -#endif break; } *(void __near* __near*)p = NULL; @@ -122,23 +110,19 @@ size_t _coreleft(void) while (pFirst != NULL) { void __near* p = *(void __near* __near*)pFirst; -#ifdef __BORLANDC__ - free(pFirst); -#endif -#ifdef __WATCOMC__ _nfree(pFirst); -#endif pFirst = p; } return total; } -void far* LargestFarFreeBlock(size_t* Size) +//far version of above +void __far* HC_LargestFarFreeBlock(dword* Size) { - size_t s0, s1; - void far* p; + dword s0, s1; + void __far* p; - s0 = ~(size_t)0 ^ (~(size_t)0 >> 1); + s0 = ~(dword)0 ^ (~(dword)0 >> 1); while (s0 && (p = _fmalloc(s0)) == NULL) s0 >>= 1; @@ -162,42 +146,45 @@ void far* LargestFarFreeBlock(size_t* Size) return p; } -size_t _farcoreleft(void) +//far version of above +dword HC_farcoreleft(void) { - size_t total = 0; - void far* pFirst = NULL; - void far* pLast = NULL; + dword total = 0UL; + void __far* pFirst = NULL; + void __far* pLast = NULL; for(;;) { - size_t largest; - void far* p = LargestFarFreeBlock(&largest); - if (largest < sizeof(void far*)) + dword largest; + void __far* p = HC_LargestFarFreeBlock(&largest); + if (largest < sizeof(void __far*)) { if (p != NULL) _ffree(p); break; } - *(void far* far*)p = NULL; + *(void __far* __far*)p = NULL; total += largest; if (pFirst == NULL) pFirst = p; if (pLast != NULL) - *(void far* far*)pLast = p; + *(void __far* __far*)pLast = p; pLast = p; } while (pFirst != NULL) { - void far* p = *(void far* far*)pFirst; + void __far* p = *(void __far* __far*)pFirst; _ffree(pFirst); pFirst = p; } + + //if(total>16) total+=16; total &= 0xfffffff0UL; return total; } -#ifdef __WATCOMC__ -void huge* LargestHugeFreeBlock(size_t* Size) +//==#ifdef __WATCOMC__ +/*void huge* LargestHugeFreeBlock(size_t* Size) { size_t s0, s1; void huge* p; @@ -260,7 +247,7 @@ size_t _hugecoreleft(void) return total; } -/*void __based(__self)* LargestBasedFreeBlock(size_t* Size) +void __based(__self)* LargestBasedFreeBlock(size_t* Size) { __segment segu; size_t s0, s1; @@ -297,11 +284,11 @@ size_t _basedcoreleft(void) void __based(segu)* pFirst = NULL; void __based(segu)* pLast = NULL; // allocate based heap - segu = _bheapseg( 1024 ); + segu = _bHC_heapseg( 1024 ); if( segu == _NULLSEG ) { printf( "Unable to allocate based heap\n" ); return 0; - //exit( 1 ); + } else @@ -309,32 +296,32 @@ size_t _basedcoreleft(void) { size_t largest; void __based(segu)* p = LargestBasedFreeBlock(&largest); - if (largest < sizeof(void far*)) + if (largest < sizeof(void __far*)) { if (p != NULL) _ffree(p); break; } - *(void far* far*)p = NULL; + *(void __far* __far*)p = NULL; total += largest; if (pFirst == NULL) pFirst = p; if (pLast != NULL) - *(void far* far*)pLast = p; + *(void __far* __far*)pLast = p; pLast = p; } while (pFirst != NULL) { - void far* p = *(void far* far*)pFirst; + void __far* p = *(void __far* __far*)pFirst; _ffree(pFirst); pFirst = p; } return total; -}*/ +} -size_t GetFreeSize(void) +size_t HC_GetFreeSize(void) { struct _heapinfo h_info; int heap_status; @@ -348,15 +335,37 @@ size_t GetFreeSize(void) if((h_info._useflag == _USEDENTRY ? "USED" : "FREE")=="USED") h_used += h_info._size; h_total += h_info._size; } - heapstat0(heap_status); + HCL_heapstat(heap_status); return h_free; } +*/ + +void HCL_HeapWalking (struct _heapinfo *h_info, hc_use_t *hu, unsigned nearfarswitch) +{ + hu->h_free=0; hu->h_total=0; hu->h_used=0; + + h_info->_pentry = NULL; + for(;;) { + if(nearfarswitch==0) hu->heap_status = _nheapwalk( h_info ); + else if(nearfarswitch==1) hu->heap_status = _fheapwalk( h_info ); + if( hu->heap_status != _HEAPOK ) break; + if((h_info->_useflag == _USEDENTRY ? "USED" : "FREE")=="FREE") hu->h_free += h_info->_size; + if((h_info->_useflag == _USEDENTRY ? "USED" : "FREE")=="USED") hu->h_used += h_info->_size; + hu->h_total += h_info->_size; + } + HCL_heapstat(hu->heap_status); +} -size_t GetFarFreeSize(void) +dword HC_GetFarFreeSize(void) { + struct _heapinfo h_info; + hc_use_t hu; + HCL_HeapWalking (&h_info, &hu, 1); + return hu.h_free; +#if 0 struct _heapinfo fh_info; int heap_status; - size_t fh_free=0, fh_total=0, fh_used=0; + dword fh_free=0, fh_total=0, fh_used=0; fh_info._pentry = NULL; for(;;) { @@ -366,12 +375,18 @@ size_t GetFarFreeSize(void) if((fh_info._useflag == _USEDENTRY ? "USED" : "FREE")=="USED") fh_used += fh_info._size; fh_total += fh_info._size; } - heapstat0(heap_status); + HCL_heapstat(heap_status); return fh_free; +#endif } -size_t GetNearFreeSize(void) +size_t HC_GetNearFreeSize(void) { + struct _heapinfo h_info; + hc_use_t hu; + HCL_HeapWalking (&h_info, &hu, 0); + return hu.h_free; +#if 0 struct _heapinfo nh_info; int heap_status; size_t nh_free=0, nh_total=0, nh_used=0; @@ -384,19 +399,21 @@ size_t GetNearFreeSize(void) if((nh_info._useflag == _USEDENTRY ? "USED" : "FREE")=="USED") nh_used += nh_info._size; nh_total += nh_info._size; } - heapstat0(heap_status); + HCL_heapstat(heap_status); return nh_free; +#endif } -void heapdump(global_game_variables_t *gvar) +void HC_heapdump(global_game_variables_t *gvar) { - struct _heapinfo fh_info, nh_info, h_info; + struct _heapinfo fh_info, nh_info;//, h_info; int heap_status; - size_t h_free, nh_free, fh_free, h_total, nh_total, fh_total, h_used, nh_used, fh_used; - byte scratch[1024],str[16]; + size_t nh_free, fh_free, nh_total, fh_total, nh_used, fh_used;//, h_free, h_total, h_used; + byte scratch[1024],str[16]; HC_OpenDebug(gvar); +#if 0 strcpy(scratch,"\n == default ==\n\n"); write(gvar->handle.heaphandle,scratch,strlen(scratch)); h_info._pentry = NULL; @@ -404,13 +421,16 @@ void heapdump(global_game_variables_t *gvar) for(;;) { heap_status = _heapwalk( &h_info ); if( heap_status != _HEAPOK ) break; - strcpy(scratch," "); strcat(scratch,(h_info._useflag == _USEDENTRY ? "USED" : "FREE")); strcat(scratch," block at "); ultoa((dword)h_info._pentry,str,16); strcat(scratch,str); strcat(scratch," of size "); ultoa(h_info._size,str,10); strcat(scratch,str); strcat(scratch,"\n"); + strcpy(scratch," "); strcat(scratch,(h_info._useflag == _USEDENTRY ? "USED" : "FREE")); strcat(scratch," block at "); + sprintf(str, "%Fp", h_info._pentry); //ultoa((dword)h_info._pentry,str,16); + strcat(scratch,str); strcat(scratch," of size "); ultoa(h_info._size,str,10); strcat(scratch,str); strcat(scratch,"\n"); if((h_info._useflag == _USEDENTRY ? "USED" : "FREE")=="FREE") h_free += h_info._size; if((h_info._useflag == _USEDENTRY ? "USED" : "FREE")=="USED") h_used += h_info._size; h_total += h_info._size; write(gvar->handle.heaphandle,scratch,strlen(scratch)); } - heapstat(gvar, heap_status, &scratch); + HCL_heapstatLogWrite(gvar, heap_status, scratch); +#endif //near strcpy(scratch,"\n == near ==\n\n"); @@ -420,7 +440,9 @@ void heapdump(global_game_variables_t *gvar) for(;;) { heap_status = _nheapwalk( &nh_info ); if( heap_status != _HEAPOK ) break; - strcpy(scratch," "); strcat(scratch,(h_info._useflag == _USEDENTRY ? "USED" : "FREE")); strcat(scratch," block at "); ultoa((dword)nh_info._pentry,str,16); strcat(scratch,str); strcat(scratch," of size "); ultoa(nh_info._size,str,10); strcat(scratch,str); strcat(scratch,"\n"); + strcpy(scratch," "); strcat(scratch,(nh_info._useflag == _USEDENTRY ? "USED" : "FREE")); strcat(scratch," block at "); + sprintf(str, "%Fp", nh_info._pentry); //ultoa((dword)nh_info._pentry,str,16); + strcat(scratch,str); strcat(scratch," of size "); ultoa(nh_info._size,str,10); strcat(scratch,str); strcat(scratch,"\n"); /* printf( " %s block at %Fp of size %4.4X\n", (nh_info._useflag == _USEDENTRY ? "USED" : "FREE"), nh_info._pentry, nh_info._size );*/ @@ -429,7 +451,7 @@ nh_info._pentry, nh_info._size );*/ nh_total += nh_info._size; write(gvar->handle.heaphandle,scratch,strlen(scratch)); } - heapstat(gvar, heap_status, &scratch); + HCL_heapstatLogWrite(gvar, heap_status, scratch); //far strcpy(scratch,"\n == far ==\n\n"); @@ -439,7 +461,9 @@ nh_info._pentry, nh_info._size );*/ for(;;) { heap_status = _fheapwalk( &fh_info ); if( heap_status != _HEAPOK ) break; - strcpy(scratch," "); strcat(scratch,(h_info._useflag == _USEDENTRY ? "USED" : "FREE")); strcat(scratch," block at "); ultoa((dword)fh_info._pentry,str,16); strcat(scratch,str); strcat(scratch," of size "); ultoa(fh_info._size,str,10); strcat(scratch,str); strcat(scratch,"\n"); + strcpy(scratch," "); strcat(scratch,(fh_info._useflag == _USEDENTRY ? "USED" : "FREE")); strcat(scratch," block at "); + sprintf(str, "%Fp", fh_info._pentry); //ultoa((dword)fh_info._pentry,str,16); + strcat(scratch,str); strcat(scratch," of size "); ultoa(fh_info._size,str,10); strcat(scratch,str); strcat(scratch,"\n"); /*printf( " %s block at %Fp of size %4.4X\n", (fh_info._useflag == _USEDENTRY ? "USED" : "FREE"), fh_info._pentry, fh_info._size );*/ @@ -448,27 +472,31 @@ fh_info._pentry, fh_info._size );*/ fh_total += fh_info._size; write(gvar->handle.heaphandle,scratch,strlen(scratch)); } - heapstat(gvar, heap_status, &scratch); + HCL_heapstatLogWrite(gvar, heap_status, scratch); strcpy(scratch,"\n"); strcat(scratch,kittengets(2,0,"Memory Type Total Used Free\n")); strcat(scratch,"---------------- -------- -------- --------\n"); - printmeminfoline(&scratch, "Default", h_total, h_used, h_free); - printmeminfoline(&scratch, "Near", nh_total, nh_used, nh_free); - printmeminfoline(&scratch, "Far", fh_total, fh_used, fh_free); +//-- printmeminfoline(&scratch, "Default", h_total, h_used, h_free); + printmeminfoline(scratch, "Near", nh_total, nh_used, nh_free); + printmeminfoline(scratch, "Far", fh_total, fh_used, fh_free); strcat(scratch,"---------------- -------- -------- --------\n"); - strcat(scratch,"coreleft = "); ultoa((dword)_coreleft(),str,10); strcat(scratch,str); strcat(scratch,"\n"); - strcat(scratch,"farcoreleft = "); ultoa((dword)_farcoreleft(),str,10); strcat(scratch,str); strcat(scratch,"\n"); - strcat(scratch,"GetFreeSize = "); ultoa((dword)GetFreeSize(),str,10); strcat(scratch,str); strcat(scratch,"\n"); - strcat(scratch,"GetNearFreeSize = "); ultoa((dword)GetNearFreeSize(),str,10); strcat(scratch,str); strcat(scratch,"\n"); - strcat(scratch,"GetFarFreeSize = "); ultoa((dword)GetFarFreeSize(),str,10); strcat(scratch,str); strcat(scratch,"\n"); - strcat(scratch,"memavl = "); ultoa((dword)_memavl(),str,10); strcat(scratch,str); strcat(scratch,"\n"); - strcat(scratch,"stackavail = "); ultoa((dword)stackavail(),str,10); strcat(scratch,str); strcat(scratch,"\n"); +#if defined(__LARGE__) || defined(__COMPACT__) || defined(__HUGE__) + strcat(scratch,"HC_coreleft = "); ultoa((dword)HC_coreleft(),str,10); strcat(scratch,str); strcat(scratch,"\n"); + strcat(scratch,"HC_farcoreleft = "); ultoa((dword)HC_farcoreleft(),str,10); strcat(scratch,str); strcat(scratch,"\n"); +#endif +//-- strcat(scratch,"HC_Newfarcoreleft = "); ultoa((dword)HC_Newfarcoreleft(),str,10); strcat(scratch,str); strcat(scratch,"\n"); +//-- strcat(scratch,"HC_GetFreeSize = "); ultoa((dword)HC_GetFreeSize(),str,10); strcat(scratch,str); strcat(scratch,"\n"); +//00 strcat(scratch,"HC_GetNearFreeSize = "); ultoa((dword)HC_GetNearFreeSize(),str,10); strcat(scratch,str); strcat(scratch,"\n"); +//00 strcat(scratch,"HC_GetFarFreeSize = "); ultoa((dword)HC_GetFarFreeSize(),str,10); strcat(scratch,str); strcat(scratch,"\n"); + strcat(scratch,"coreleft = "); ultoa((dword)coreleft(),str,10); strcat(scratch,str); strcat(scratch,"\n"); + strcat(scratch,"farcoreleft = "); ultoa((dword)farcoreleft(),str,10); strcat(scratch,str); strcat(scratch,"\n"); + strcat(scratch,"stackavail = "); ultoa((dword)stackavail(),str,10); strcat(scratch,str); strcat(scratch,"\n"); write(gvar->handle.heaphandle,scratch,strlen(scratch)); HC_CloseDebug(gvar); } -void heapstat(global_game_variables_t *gvar, int heap_status, byte *str) +void HCL_heapstatLogWrite(global_game_variables_t *gvar, int heap_status, byte *str) { switch( heap_status ) { case _HEAPEND: @@ -481,16 +509,18 @@ void heapstat(global_game_variables_t *gvar, int heap_status, byte *str) case _HEAPBADBEGIN: strcpy((str),"ERROR - heap is damaged\n"); break; +#ifdef __WATCOMC__ case _HEAPBADPTR: strcpy((str),"ERROR - bad pointer to heap\n"); break; +#endif case _HEAPBADNODE: strcpy((str),"ERROR - bad node in heap\n"); } write(gvar->handle.heaphandle,(str),strlen((str))); } -void heapstat0(int heap_status) +void HCL_heapstat(int heap_status) { switch( heap_status ) { case _HEAPEND: @@ -502,14 +532,44 @@ void heapstat0(int heap_status) case _HEAPBADBEGIN: printf("ERROR - heap is damaged\n"); break; +#ifdef __WATCOMC__ case _HEAPBADPTR: printf("ERROR - bad pointer to heap\n"); break; +#endif case _HEAPBADNODE: printf("ERROR - bad node in heap\n"); } } + +//++ +#ifdef __WATCOMC__ +dword farcoreleft() +{ +//---- _fheapgrow(); +// #ifdef __BORLANDC__ +// return 0x90000UL-16UL; +// #endif + +#if !defined(__LARGE__) && !defined(__COMPACT__) && !defined(__HUGE__) +//---- + return 0x90000UL+16UL; +//---- return 589824UL+16UL; +#else +//++++ + return HC_farcoreleft(); +//stack overflows return HC_GetFarFreeSize(); #endif +} + +dword coreleft() +{ + _nheapgrow(); + return _memavl(); +// return HC_GetNearFreeSize(); +} +#endif + /* ============================ = @@ -523,15 +583,22 @@ void HC_OpenDebug(global_game_variables_t *gvar) { #ifdef __BORLANDC__ unlink("heap.16b"); - gvar->handle.heaphandle = open("heap.16b", O_CREAT | O_WRONLY | O_TEXT); + gvar->handle.heaphandle = open(gvar->handle.heapdumpfilename, O_CREAT | O_WRONLY | O_TEXT); #endif #ifdef __WATCOMC__ unlink("heap.16w"); - gvar->handle.heaphandle = open("heap.16w", O_CREAT | O_WRONLY | O_TEXT); + gvar->handle.heaphandle = open(gvar->handle.heapdumpfilename, O_CREAT | O_WRONLY | O_TEXT); #endif } void HC_CloseDebug(global_game_variables_t *gvar) { close(gvar->handle.heaphandle); + +#ifdef __BORLANDC__ + strcpy(gvar->handle.heapdumpfilename, "heap.16b"); +#endif +#ifdef __WATCOMC__ + strcpy(gvar->handle.heapdumpfilename, "heap.16w"); +#endif }