1 files changed, 334 insertions, 0 deletions

diff --git a/private/crt32/heap/heapdump.c b/private/crt32/heap/heapdump.c
new file mode 100644
index 000000000..1255b44c8
--- /dev/null
+++ b/private/crt32/heap/heapdump.c
@@ -0,0 +1,334 @@
+/***
+*heapdump.c -  Output the heap data bases
+*
+*	Copyright (c) 1989-1991, Microsoft Corporation. All rights reserved.
+*
+*Purpose:
+*	Display the heap data bases.
+*
+*	NOTE:  This module is NOT released with the C libs.  It is for
+*	debugging purposes only.
+*
+*Revision History:
+*	06-28-89   JCR	Module created.
+*	07-18-89   JCR	Added _heap_print_regions() routine
+*	11-13-89   GJF	Added MTHREAD support, also fixed copyright
+*	12-13-89   GJF	Changed name of include file to heap.h
+*	12-19-89   GJF	Removed references to plastdesc
+*	03-11-90   GJF	Made the calling type _CALLTYPE1 and added #include
+*			<cruntime.h>.
+*
+*******************************************************************************/
+
+#include <cruntime.h>
+#include <heap.h>
+#include <malloc.h>
+#include <os2dll.h>
+#include <stdio.h>
+
+#ifdef DEBUG
+
+/***
+*_heap_print_all - Print the whole heap
+*
+*Purpose:
+*
+*Entry:
+*	<void>
+*
+*Exit:
+*	<void>
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+void _CALLTYPE1 _heap_print_all(void)
+{
+	/* lock the heap
+	 */
+	_mlock(_HEAP_LOCK);
+
+	_heap_print_regions_lk();
+	_heap_print_desc_lk();
+	_heap_print_emptylist_lk();
+	_heap_print_heaplist_lk();
+
+	/* release the heap lock
+	 */
+	_munlock(_HEAP_LOCK);
+}
+
+
+/***
+*_heap_print_regions - Print the heap region table
+*
+*Purpose:
+*
+*Entry:
+*	<void>
+*
+*Exit:
+*	<void>
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+#ifdef	MTHREAD
+
+void _CALLTYPE1 _heap_print_regions(void)
+{
+	/* lock the heap
+	 */
+	_mlock(_HEAP_LOCK);
+
+	_heap_print_regions_lk();
+
+	/* release the heap lock
+	 */
+	_munlock(_HEAP_LOCK);
+}
+
+void _CALLTYPE1 _heap_print_regions_lk(void)
+
+#else	/* ndef MTHREAD */
+
+void _CALLTYPE1 _heap_print_regions(void)
+
+#endif	/* MTHREAD */
+{
+	int i;
+
+	printf("\n--- Heap Regions ---\n\n");
+
+	printf("\t_heap_growsize (_amblksiz) = \t%x\n", _heap_growsize);
+	printf("\t_heap_regionsize           = \t%x\n\n", _heap_regionsize);
+
+	printf("\t_regbase\t_currsize\t_totalsize\n");
+	printf("\t--------\t---------\t----------\n");
+	for (i=0; i < _HEAP_REGIONMAX; i++) {
+		printf("\t%x\t\t%x\t\t%x\n",
+			_heap_regions[i]._regbase,
+			_heap_regions[i]._currsize,
+			_heap_regions[i]._totalsize);
+		}
+}
+
+
+/***
+*_heap_print_desc - Print the heap descriptor
+*
+*Purpose:
+*
+*Entry:
+*	<void>
+*
+*Exit:
+*	<void>
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+#ifdef	MTHREAD
+
+void _CALLTYPE1 _heap_print_desc(void)
+{
+	_mlock(_HEAP_LOCK);
+
+	_heap_print_desc_lk();
+
+	_munlock(_HEAP_LOCK);
+}
+
+void _CALLTYPE1 _heap_print_desc_lk(void)
+
+#else	/* ndef MTHREAD */
+
+void _CALLTYPE1 _heap_print_desc(void)
+
+#endif	/* MTHREAD */
+{
+
+	printf("\n--- Heap Descriptor ---\n\n");
+	printf("\tpfirstdesc = %p\n", _heap_desc.pfirstdesc);
+	printf("\tproverdesc = %p\n", _heap_desc.proverdesc);
+	printf("\temptylist = %p\n", _heap_desc.emptylist);
+	printf("\t&sentinel = %p\n", &(_heap_desc.sentinel));
+
+}
+
+
+/***
+*_heap_print_emptylist - Print out the empty heap desc list
+*
+*Purpose:
+*
+*Entry:
+*	<void>
+*
+*Exit:
+*	<void>
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+#ifdef	MTHREAD
+
+void _CALLTYPE1 _heap_print_emptylist(void)
+{
+	/* lock the heap
+	 */
+	_mlock(_HEAP_LOCK);
+
+	_heap_print_emptylist_lk();
+
+	/* release the heap lock
+	 */
+	_munlock(_HEAP_LOCK);
+}
+
+void _CALLTYPE1 _heap_print_emptylist_lk(void)
+
+#else	/* ndef MTHREAD */
+
+void _CALLTYPE1 _heap_print_emptylist(void)
+
+#endif	/* MTHREAD */
+{
+
+	_PBLKDESC p;
+	int i;
+
+	printf("\n--- Heap Empty Descriptor List ---\n\n");
+
+	if ((p = _heap_desc.emptylist) == NULL) {
+		printf("\t *** List is empty ***\n");
+		return;
+		}
+
+	for (i=1; p != NULL; p=p->pnextdesc, i++) {
+
+		printf("\t(%i) Address = %p\n", i, p);
+		printf("\t\tpnextdesc = %p, pblock = %p\n\n",
+			p->pnextdesc, p->pblock);
+
+	}
+
+	printf("\t--- End of table ---\n");
+
+}
+
+
+/***
+*_heap_print_heaplist - Print out the heap desc list
+*
+*Purpose:
+*
+*Entry:
+*	<void>
+*
+*Exit:
+*	<void>
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+#ifdef	MTHREAD
+
+void _CALLTYPE1 _heap_print_heaplist(void)
+{
+	/* lock the heap
+	 */
+	_mlock(_HEAP_LOCK);
+
+	_heap_print_heaplist_lk();
+
+	/* release the heap lock
+	 */
+	_munlock(_HEAP_LOCK);
+}
+
+void _CALLTYPE1 _heap_print_heaplist_lk(void)
+
+#else	/* ndef MTHREAD */
+
+void _CALLTYPE1 _heap_print_heaplist(void)
+
+#endif	/* MTHREAD */
+{
+
+	_PBLKDESC p;
+	_PBLKDESC next;
+	int i;
+	int error = 0;
+
+	printf("\n--- Heap Descriptor List ---\n\n");
+
+	if ((p = _heap_desc.pfirstdesc) == NULL) {
+		printf("\t *** List is empty ***\n");
+		return;
+		}
+
+	for (i=1; p != NULL; i++) {
+
+		next = p->pnextdesc;
+
+		/* Print descriptor address */
+
+		printf("\t(%i) Address = %p ", i, p);
+
+		if (p == &_heap_desc.sentinel)
+			printf("<SENTINEL>\n");
+		else if (p == _heap_desc.proverdesc)
+			printf("<ROVER>\n");
+		else
+			printf("\n");
+
+
+
+		/* Print descriptor contents */
+
+		printf("\t\tpnextdesc = %p, pblock = %p",
+			p->pnextdesc, p->pblock);
+
+		if (p == &_heap_desc.sentinel) {
+			if (next != NULL) {
+				printf("\n\t*** ERROR: sentinel.pnextdesc != NULL ***\n");
+				error++;
+				}
+			}
+		else if (_IS_INUSE(p))
+			printf(", usersize = %u <INUSE>", _BLKSIZE(p));
+
+		else if (_IS_FREE(p))
+			printf(", usersize = %u <FREE>", _BLKSIZE(p));
+
+		else if (_IS_DUMMY(p))
+			printf(", size = %u <DUMMY>", _MEMSIZE(p));
+
+		else	{
+			printf(",\n\t*** ERROR: unknown status ***\n");
+			error++;
+			}
+
+		printf("\n\n");
+
+		if (_heap_desc.pfirstdesc == &_heap_desc.sentinel) {
+			printf("[No memory in heap]\n");
+			}
+
+		p = next;
+	}
+
+	if (error)
+		printf("\n\t *** ERRORS IN HEAP TABLE ***\n");
+
+	printf("\t--- End of table ---\n");
+
+}
+
+#endif	/* DEBUG */