Return to Alloc.c CVS log

Up to [Research Unix] / researchv9 / X11 / src / X.V11R1 / lib / oldXtk

Annotation of researchv9/X11/src/X.V11R1/lib/oldXtk/Alloc.c, revision 1.1.1.1

1.1       root        1: /* $Header: Alloc.c,v 1.1 87/09/11 07:57:05 toddb Exp $ */
                      2: #ifndef lint
                      3: static char *sccsid = "@(#)Alloc.c     1.5     2/24/87";
                      4: #endif lint
                      5: 
                      6: /*
                      7:  * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
                      8:  * 
                      9:  *                         All Rights Reserved
                     10:  * 
                     11:  * Permission to use, copy, modify, and distribute this software and its 
                     12:  * documentation for any purpose and without fee is hereby granted, 
                     13:  * provided that the above copyright notice appear in all copies and that
                     14:  * both that copyright notice and this permission notice appear in 
                     15:  * supporting documentation, and that the name of Digital Equipment
                     16:  * Corporation not be used in advertising or publicity pertaining to
                     17:  * distribution of the software without specific, written prior permission.  
                     18:  * 
                     19:  * 
                     20:  * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
                     21:  * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
                     22:  * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
                     23:  * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
                     24:  * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
                     25:  * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
                     26:  * SOFTWARE.
                     27:  */
                     28: 
                     29: /*
                     30:  * X Toolkit Memory Allocation Routines
                     31:  */
                     32: extern char *malloc(), *realloc(), *calloc();
                     33: extern void exit(), free();
                     34: #include "Xlib.h"
                     35: #include "Intrinsic.h"
                     36: 
                     37: char *XtMalloc(size)
                     38:     unsigned size;
                     39: {
                     40:     char *ptr;
                     41: 
                     42:     if ((ptr = malloc(size)) == NULL) 
                     43:        XtErrorFunction(XtNOMEM);
                     44:     return(ptr);
                     45: }
                     46: 
                     47: char *XtRealloc(ptr, size)
                     48:     char     *ptr;
                     49:     unsigned size;
                     50: {
                     51:    if (ptr == NULL) 
                     52:        return(XtMalloc(size));
                     53:    else if ((ptr = realloc(ptr, size)) == NULL) 
                     54:        XtErrorFunction(XtNOMEM);
                     55:     return(ptr);
                     56: }
                     57: 
                     58: char *XtCalloc(num, size)
                     59:     unsigned num, size;
                     60: {
                     61:     char *ptr;
                     62: 
                     63:     if ((ptr = calloc(num, size)) == NULL) 
                     64:        XtErrorFunction(XtNOMEM);
                     65:     return(ptr);
                     66: }
                     67: 
                     68: void XtFree(ptr)
                     69:     char *ptr;
                     70: {
                     71:    if (ptr != NULL) free(ptr);
                     72: }
                     73: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.