code.delx.au - gnu-emacs/blob - oldXMenu/XDestAssoc.c

   1 /* Copyright    Massachusetts Institute of Technology    1985   */
   2
   3 #include "copyright.h"
   4
   5
   6 #include <X11/Xlib.h>
   7 #include "X10.h"
   8
   9 /*
  10  * XDestroyAssocTable - Destroy (free the memory associated with)
  11  * an XAssocTable.
  12  */
  13 XDestroyAssocTable(table)
  14         register XAssocTable *table;
  15 {
  16         register int i;
  17         register XAssoc *bucket;
  18         register XAssoc *Entry, *entry_next;
  19
  20         /* Free the buckets. */
  21         for (i = 0; i < table->size; i++) {
  22                 bucket = &table->buckets[i];
  23                 for (
  24                         Entry = bucket->next;
  25                         Entry != bucket;
  26                         Entry = entry_next
  27                 ) {
  28                         entry_next = Entry->next;
  29                         free((char *)Entry);
  30                 }
  31         }
  32
  33         /* Free the bucket array. */
  34         free((char *)table->buckets);
  35
  36         /* Free the table. */
  37         free((char *)table);
  38 }
  39
  40 /* arch-tag: a536bf02-8d63-45f2-8c1a-c7f9fd4da2cf
  41    (do not change this comment) */