/*
 * -- $Header: /cec/src/nestor/servers/R3/shXlib/XFreeGC.c,v 1.1.1.1 90/04/23 09:57:54 spanachi Exp $
 */

#include "copyright.h"

/* $XConsortium: XFreeGC.c,v 11.9 88/09/06 16:07:32 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	*/

/* -- MULTIPLEX Extension -- */

#include "Xlibint.h"

/* -- additional includes -- */

#include "resources.h"

XFreeGC (dpy, gc)
    register Display *dpy;
    GC gc;
    {
    register xResourceReq *req;
    register _XExtension *ext;
    LockDisplay(dpy);
    GetResReq (FreeGC, gc->gid, req);

    _XFreeExtData(gc->ext_data);
    /*
     * -- GC's are hard to handle ;
     * -- Let's try to remove the GC from the resource list. If we fail, 
     * -- free the data here.
     * -- This is necessary, because XCloseDisplay frees the default_gc's
     * -- AND we free the data again in XmuXFreeClientResources.
     * -- (Think freeing an pointer twice is unpredictable)
     */
      if( !XmuXRemoveGCInfo( dpy , gc->gid ) ) 
	Xfree( ( char * ) gc ) ; 

    ext = dpy->ext_procs;
    while (ext) {		/* call out to any extensions interested */
	if (ext->free_GC != NULL) (*ext->free_GC)(dpy, gc, &ext->codes);
	ext = ext->next;
	}    
    UnlockDisplay(dpy);
    SyncHandle();
    }