Heap test program

git-svn-id: svn://svn.cc65.org/cc65/trunk@160 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/testcode/lib/heaptest.c b/testcode/lib/heaptest.c
new file mode 100644 (file)
index 0000000..b5470bd
--- /dev/null
+++ b/testcode/lib/heaptest.c
@@ -0,0 +1,199 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <time.h> 
+
+
+/* From _heap.h */
+extern unsigned        _horg;          /* Bottom of heap */
+extern unsigned _hptr;         /* Current top */
+extern unsigned _hend;         /* Upper limit */
+extern unsigned        _hfirst;        /* First free block in list */
+extern unsigned _hlast;                /* Last free block in list */
+
+
+static unsigned char* V[256];
+
+
+
+static char* Alloc (void)
+/* Allocate a random sized chunk of memory */
+{
+    /* Determine the size */
+    unsigned char Size = (((unsigned char)rand()) & 0x7F) + 1;
+
+    /* Allocate memory */
+    unsigned char* P = malloc (Size);
+
+    /* Set the string to a defined value. We use the size, since this will
+     * also allow us to retrieve it later.
+     */
+    if (P) {
+       memset (P, Size, Size);
+    } else {
+       printf ("Could not allocate %u bytes\n", Size);
+    }
+    return P;
+}
+
+
+
+static void Free (unsigned char* P)
+/* Check a memory block and free it */
+{
+    unsigned char I;
+
+    /* Get the size of the block */
+    unsigned char Size = P[0];
+
+    /* Scan the block */
+    for (I = 1; I < Size; ++I) {
+       if (P[I] != Size) {
+           printf ("Scan failed - expected %02X, got %02X\n",
+                   Size, P[I]);
+               }
+    }
+
+    /* Free the block */
+    free (P);
+}
+
+
+
+static void FillArray (void)
+/* Fill the array with randomly allocated memory chunks */
+{
+    unsigned char I = 0;
+    do {
+       V[I] = Alloc ();
+       ++I;
+    } while (I != 0);
+}
+
+
+
+static void ShowInfo (void)
+/* Show heap info */
+{
+    printf ("%04X  %04X  %04X  %04X  %04X\n",
+           _horg, _hptr, _hend, _hfirst, _hlast);
+}
+
+
+
+static void Test1 (void)
+/* First test */
+{
+    unsigned char I;
+    FillArray ();
+    for (I = 0; I < 0x80; ++I) {
+       Free (V[0x7F-I]);
+       Free (V[0x80+I]);
+    }
+    ShowInfo ();
+}
+
+
+
+static void Test2 (void)
+/* Second test */
+{
+    unsigned char I;
+    FillArray ();
+    I = 0;
+    do {
+       Free (V[I]);
+       I += 2;
+    } while (I != 0);
+    I = 1;
+    do {
+       Free (V[I]);
+       I += 2;
+    } while (I != 1);
+    ShowInfo ();
+}
+
+
+
+static void Test3 (void)
+/* Third test */
+{
+    unsigned char I;
+    FillArray ();
+    I = 0;
+    do {
+       Free (V[I]);
+       I += 2;
+    } while (I != 0);
+    do {
+               V[I] = Alloc ();
+       I += 2;
+    } while (I != 0);
+    I = 1;
+    do {
+       Free (V[I]);
+       I += 2;
+    } while (I != 1);
+    do {
+               V[I] = Alloc ();
+       I += 2;
+    } while (I != 1);
+    I = 0;
+    do {
+       Free (V[I]);
+       ++I;
+    } while (I != 0);
+    ShowInfo ();
+}
+
+
+
+static void Test4 (void)
+/* Fourth test */
+{
+    unsigned char I, J;
+    FillArray ();
+    I = J = 0;
+    do {
+       do {
+           Free (V[I]);
+           V[I] = Alloc ();
+           ++I;
+       } while (I != 0);
+       ++J;
+    } while (J < 5);
+    do {
+       Free (V[I]);
+       ++I;
+    } while (I != 0);
+    ShowInfo ();
+}
+
+
+
+int main (void)
+{
+    unsigned long T;
+
+    /* Show info at start */
+    ShowInfo ();
+
+    /* Remember the time */
+    T = clock ();
+
+    /* Do the tests */
+    Test1 ();
+    Test2 ();
+    Test3 ();
+    Test4 ();
+
+    /* Calculate the time and print it */
+    T = clock () - T;
+    printf ("Time needed: %lu ticks\n", T);
+
+    /* Done */
+    return EXIT_SUCCESS;
+}
+
+
+