Artifact bba1946f999d56f25cec8213703a06586d154e9a:

• File generic/tclAllocNative.c — part of check-in [86a7932955] at 2013-01-03 04:14:21 on branch mig-alloc-reform — *BROKEN* First steps towards choosing allocators at load time (user: mig size: 663) [more...]

/*
 * tclAlloc.c --
 *
 *      This is the basic native allocator for Tcl.
 *
 * Copyright (c) 2013 by Miguel Sofer. All rights reserved.
 *
 * See the file "license.terms" for information on usage and redistribution of
 * this file, and for a DISCLAIMER OF ALL WARRANTIES.
 */

#include <stdlib.h>
#include "tclAlloc.h"

char *
TclpAlloc(
    unsigned int reqSize)
{
    return malloc(reqSize);
}

char *
TclpRealloc(  
    char *ptr,
    unsigned int reqSize)
{
    return realloc(ptr, reqSize);
}

void
TclpFree(
    char *ptr)
{
    free(ptr);
}

void
TclXpInitAlloc(void)
{
}

void
TclXpFinalizeAlloc(void)
{
}

void
TclXpFreeAllocCache(
    void *ptr)
{
}