X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=src%2Flib%2F16_hc.c;h=f2963158f9fa4154055d171b64277d4092a8fec3;hb=a9fe632397649ac62b1d7febda9a62bc517c5c53;hp=0f77772c6317a46923fe8d6f6b84a20bad71d2ea;hpb=17ec26395419ff775f29661e50265dfbccfda3b0;p=16.git

diff --git a/src/lib/16_hc.c b/src/lib/16_hc.c
index 0f77772c..f2963158 100755
--- a/src/lib/16_hc.c
+++ b/src/lib/16_hc.c
@@ -24,13 +24,44 @@
 */
 
 #include "src/lib/16_hc.h"
+#include <malloc.h>
 
+//from ftp://213.85.246.177/pub/FreeBSD/ports/archivers/arj/work/arj-3.10.22/environ.c
+//#ifdef __WATCOMC__
+#define FARCORELEFTPTR __huge
+long HC_farcoreleft()
+{
+	void FARCORELEFTPTR *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<s_rc)
+		return(rc*1024L);
+	do
+	{
+		hp=halloc(rc+=16L, 1024);
+		if(hp!=NULL)
+			hfree(hp);
+	} while(hp!=NULL);
+	return((rc-16L)*1024L);
+}
+//#endif
+
+void
 #ifdef __BORLANDC__
-void * LargestFreeBlock(size_t* Size)
+ *
 #endif
 #ifdef __WATCOMC__
-void __near* LargestFreeBlock(size_t* Size)
+ __near*
 #endif
+HC_LargestFreeBlock(size_t* Size)
 {
 	size_t s0, s1;
 #ifdef __BORLANDC__
@@ -89,7 +120,7 @@ void __near* LargestFreeBlock(size_t* Size)
 	return p;
 }
 
-size_t _coreleft(void)
+size_t HC_coreleft(void)
 {
 	size_t total = 0;
 	void __near* pFirst = NULL;
@@ -97,7 +128,7 @@ 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)
@@ -133,7 +164,7 @@ size_t _coreleft(void)
 	return total;
 }
 
-void far* LargestFarFreeBlock(size_t* Size)
+void far* HC_LargestFarFreeBlock(size_t* Size)
 {
 	size_t s0, s1;
 	void far* p;
@@ -162,7 +193,7 @@ void far* LargestFarFreeBlock(size_t* Size)
 	return p;
 }
 
-size_t _farcoreleft(void)
+size_t HC_farcoreleft_(void)
 {
 	size_t total = 0;
 	void far* pFirst = NULL;
@@ -170,7 +201,7 @@ size_t _farcoreleft(void)
 	for(;;)
 	{
 		size_t largest;
-		void far* p = LargestFarFreeBlock(&largest);
+		void far* p = HC_LargestFarFreeBlock(&largest);
 		if (largest < sizeof(void far*))
 		{
 			if (p != NULL)
@@ -197,7 +228,7 @@ size_t _farcoreleft(void)
 }
 
 #ifdef __WATCOMC__
-void huge* LargestHugeFreeBlock(size_t* Size)
+/*void huge* LargestHugeFreeBlock(size_t* Size)
 {
 	size_t s0, s1;
 	void huge* p;
@@ -260,7 +291,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 +328,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
 
@@ -334,7 +365,7 @@ size_t _basedcoreleft(void)
 	return total;
 }*/
 
-size_t GetFreeSize(void)
+size_t HC_GetFreeSize(void)
 {
 	struct _heapinfo h_info;
 	int heap_status;
@@ -348,11 +379,11 @@ 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);
+	HC_heapstat0(heap_status);
 	return h_free;
 }
 
-size_t GetFarFreeSize(void)
+size_t HC_GetFarFreeSize(void)
 {
 	struct _heapinfo fh_info;
 	int heap_status;
@@ -366,11 +397,11 @@ 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);
+	HC_heapstat0(heap_status);
 	return fh_free;
 }
 
-size_t GetNearFreeSize(void)
+size_t HC_GetNearFreeSize(void)
 {
 	struct _heapinfo nh_info;
 	int heap_status;
@@ -384,16 +415,16 @@ 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);
+	HC_heapstat0(heap_status);
 	return nh_free;
 }
 
-void heapdump(global_game_variables_t *gvar)
+void HC_heapdump(global_game_variables_t *gvar)
 {
 	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];
+	byte	scratch[1024],str[16];
 
 	HC_OpenDebug(gvar);
 
@@ -410,7 +441,7 @@ void heapdump(global_game_variables_t *gvar)
 		h_total += h_info._size;
 		write(gvar->handle.heaphandle,scratch,strlen(scratch));
 	}
-	heapstat(gvar, heap_status, &scratch);
+	HC_heapstat(gvar, heap_status, &scratch);
 
 	//near
 	strcpy(scratch,"\n	== near ==\n\n");
@@ -429,7 +460,7 @@ nh_info._pentry, nh_info._size );*/
 		nh_total += nh_info._size;
 		write(gvar->handle.heaphandle,scratch,strlen(scratch));
 	}
-	heapstat(gvar, heap_status, &scratch);
+	HC_heapstat(gvar, heap_status, &scratch);
 
 	//far
 	strcpy(scratch,"\n	== far ==\n\n");
@@ -448,7 +479,7 @@ fh_info._pentry, fh_info._size );*/
 		fh_total += fh_info._size;
 		write(gvar->handle.heaphandle,scratch,strlen(scratch));
 	}
-	heapstat(gvar, heap_status, &scratch);
+	HC_heapstat(gvar, heap_status, &scratch);
 
 	strcpy(scratch,"\n");
 	strcat(scratch,kittengets(2,0,"Memory Type         Total      Used       Free\n"));
@@ -457,18 +488,18 @@ fh_info._pentry, fh_info._size );*/
 	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,"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");
+	strcat(scratch,"HC_GetFreeSize = ");		ultoa((dword)HC_GetFreeSize(),str,10);		strcat(scratch,str);	strcat(scratch,"\n");
+	strcat(scratch,"HC_GetNearFreeSize = ");	ultoa((dword)HC_GetNearFreeSize(),str,10);	strcat(scratch,str);	strcat(scratch,"\n");
+	strcat(scratch,"HC_GetFarFreeSize = "); 	ultoa((dword)HC_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");
 	write(gvar->handle.heaphandle,scratch,strlen(scratch));
 	HC_CloseDebug(gvar);
 }
 
-void heapstat(global_game_variables_t *gvar, int heap_status, byte *str)
+void HC_heapstat(global_game_variables_t *gvar, int heap_status, byte *str)
 {
 	switch( heap_status ) {
 		case _HEAPEND:
@@ -490,7 +521,7 @@ void heapstat(global_game_variables_t *gvar, int heap_status, byte *str)
 	write(gvar->handle.heaphandle,(str),strlen((str)));
 }
 
-void heapstat0(int heap_status)
+void HC_heapstat0(int heap_status)
 {
 	switch( heap_status ) {
 		case _HEAPEND: