mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-11 09:20:51 +00:00
1f3ddf11e8
Remove RCS keywords 2004-04-10 Miles Bader <miles@gnu.org> RCS keyword removal (only non-comment changes are enumerated here): * lisp/emacs-lisp/bytecomp.el (byte-compile-version): Variable removed. (byte-compile-insert-header): Don't use `byte-compile-version'. * lisp/url/url-vars.el (url-version): Use the constant string "Emacs" instead of calculating something from the RCS `State' keyword [the latter is almost entirely useless anyway]. * lisp/forms.el (forms-version): Variable removed. (forms-mode): Don't use `forms-version'. * lisp/recentf.el (recentf-version): Variable removed. * lisp/progmodes/delphi.el (delphi-version): Variable removed. * lisp/progmodes/ada-mode.el (ada-mode): RCS keyword removed from docstring.
51 lines
1.4 KiB
C
51 lines
1.4 KiB
C
/* Copyright Massachusetts Institute of Technology 1985 */
|
|
|
|
/*
|
|
Permission to use, copy, modify, distribute, and sell this software and its
|
|
documentation for any purpose is hereby granted without fee, provided that
|
|
the above copyright notice appear in all copies and that both that
|
|
copyright notice and this permission notice appear in supporting
|
|
documentation, and that the name of M.I.T. not be used in advertising or
|
|
publicity pertaining to distribution of the software without specific,
|
|
written prior permission. M.I.T. makes no representations about the
|
|
suitability of this software for any purpose. It is provided "as is"
|
|
without express or implied warranty.
|
|
*/
|
|
|
|
#include <X11/Xlib.h>
|
|
#include "X10.h"
|
|
|
|
/*
|
|
* XDestroyAssocTable - Destroy (free the memory associated with)
|
|
* an XAssocTable.
|
|
*/
|
|
XDestroyAssocTable(table)
|
|
register XAssocTable *table;
|
|
{
|
|
register int i;
|
|
register XAssoc *bucket;
|
|
register XAssoc *Entry, *entry_next;
|
|
|
|
/* Free the buckets. */
|
|
for (i = 0; i < table->size; i++) {
|
|
bucket = &table->buckets[i];
|
|
for (
|
|
Entry = bucket->next;
|
|
Entry != bucket;
|
|
Entry = entry_next
|
|
) {
|
|
entry_next = Entry->next;
|
|
free((char *)Entry);
|
|
}
|
|
}
|
|
|
|
/* Free the bucket array. */
|
|
free((char *)table->buckets);
|
|
|
|
/* Free the table. */
|
|
free((char *)table);
|
|
}
|
|
|
|
/* arch-tag: a536bf02-8d63-45f2-8c1a-c7f9fd4da2cf
|
|
(do not change this comment) */
|