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

#include "copyright.h"

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

/* -- MULTIPLEX Extension -- */

#include "Xlibint.h"

/* -- additional includes -- */
#include "resources.h"

XFreeColors (dpy, cmap, pixels, npixels, planes)
  register Display *dpy;
  Colormap cmap;
  unsigned long *pixels;	/* LISTofCARD32 */
  int npixels;
  unsigned long planes;		/* CARD32 */
{
  register xFreeColorsReq *req;
  register long nbytes;

  LockDisplay (dpy);
  GetReq (FreeColors, req);
  req->cmap = cmap;
  req->planeMask = planes;

  /* on the VAX, each pixel is a 32-bit (unsigned) integer */
  req->length += npixels;

  nbytes = npixels << 2;	/* watch out for macros... */
  Data32 (dpy, (long *) pixels, nbytes);

  if (XmuXStoreResources (dpy))
    XmuXFreeColors (dpy, cmap, pixels, npixels, planes);

  UnlockDisplay (dpy);
  SyncHandle ();
}