mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-28 03:24:49 +08:00
181 lines
4.6 KiB
C
181 lines
4.6 KiB
C
|
/* GNU Objective C Runtime Miscellaneous
|
||
|
Copyright (C) 1993, 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
|
||
|
Contributed by Kresten Krab Thorup
|
||
|
|
||
|
This file is part of GNU CC.
|
||
|
|
||
|
GNU CC is free software; you can redistribute it and/or modify it
|
||
|
under the terms of the GNU General Public License as published by the
|
||
|
Free Software Foundation; either version 2, or (at your option) any
|
||
|
later version.
|
||
|
|
||
|
GNU CC is distributed in the hope that it will be useful, but WITHOUT
|
||
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
||
|
for more details.
|
||
|
|
||
|
You should have received a copy of the GNU General Public License
|
||
|
along with GNU CC; see the file COPYING. If not, write to the Free
|
||
|
Software Foundation, 59 Temple Place - Suite 330,
|
||
|
Boston, MA 02111-1307, USA. */
|
||
|
|
||
|
/* As a special exception, if you link this library with files compiled with
|
||
|
GCC to produce an executable, this does not cause the resulting executable
|
||
|
to be covered by the GNU General Public License. This exception does not
|
||
|
however invalidate any other reasons why the executable file might be
|
||
|
covered by the GNU General Public License. */
|
||
|
|
||
|
#define __USE_FIXED_PROTOTYPES__
|
||
|
#include <stdlib.h>
|
||
|
#include "runtime.h"
|
||
|
|
||
|
/*
|
||
|
** Error handler function
|
||
|
** NULL so that default is to just print to stderr
|
||
|
*/
|
||
|
static objc_error_handler _objc_error_handler = NULL;
|
||
|
|
||
|
/* Trigger an objc error */
|
||
|
void
|
||
|
objc_error(id object, int code, const char* fmt, ...)
|
||
|
{
|
||
|
va_list ap;
|
||
|
|
||
|
va_start(ap, fmt);
|
||
|
objc_verror(object, code, fmt, ap);
|
||
|
va_end(ap);
|
||
|
}
|
||
|
|
||
|
/* Trigger an objc error */
|
||
|
void
|
||
|
objc_verror(id object, int code, const char* fmt, va_list ap)
|
||
|
{
|
||
|
BOOL result = NO;
|
||
|
|
||
|
/* Call the error handler if its there
|
||
|
Otherwise print to stderr */
|
||
|
if (_objc_error_handler)
|
||
|
result = (*_objc_error_handler)(object, code, fmt, ap);
|
||
|
else
|
||
|
vfprintf (stderr, fmt, ap);
|
||
|
|
||
|
/* Continue if the error handler says its ok
|
||
|
Otherwise abort the program */
|
||
|
if (result)
|
||
|
return;
|
||
|
else
|
||
|
abort();
|
||
|
}
|
||
|
|
||
|
/* Set the error handler */
|
||
|
objc_error_handler
|
||
|
objc_set_error_handler(objc_error_handler func)
|
||
|
{
|
||
|
objc_error_handler temp = _objc_error_handler;
|
||
|
_objc_error_handler = func;
|
||
|
return temp;
|
||
|
}
|
||
|
|
||
|
/*
|
||
|
** Standard functions for memory allocation and disposal.
|
||
|
** Users should use these functions in their ObjC programs so
|
||
|
** that they work properly with garbage collectors as well as
|
||
|
** can take advantage of the exception/error handling available.
|
||
|
*/
|
||
|
|
||
|
void *
|
||
|
objc_malloc(size_t size)
|
||
|
{
|
||
|
void* res = (void*) (*_objc_malloc)(size);
|
||
|
if(!res)
|
||
|
objc_error(nil, OBJC_ERR_MEMORY, "Virtual memory exhausted\n");
|
||
|
return res;
|
||
|
}
|
||
|
|
||
|
void *
|
||
|
objc_atomic_malloc(size_t size)
|
||
|
{
|
||
|
void* res = (void*) (*_objc_atomic_malloc)(size);
|
||
|
if(!res)
|
||
|
objc_error(nil, OBJC_ERR_MEMORY, "Virtual memory exhausted\n");
|
||
|
return res;
|
||
|
}
|
||
|
|
||
|
void *
|
||
|
objc_valloc(size_t size)
|
||
|
{
|
||
|
void* res = (void*) (*_objc_valloc)(size);
|
||
|
if(!res)
|
||
|
objc_error(nil, OBJC_ERR_MEMORY, "Virtual memory exhausted\n");
|
||
|
return res;
|
||
|
}
|
||
|
|
||
|
void *
|
||
|
objc_realloc(void *mem, size_t size)
|
||
|
{
|
||
|
void* res = (void*) (*_objc_realloc)(mem, size);
|
||
|
if(!res)
|
||
|
objc_error(nil, OBJC_ERR_MEMORY, "Virtual memory exhausted\n");
|
||
|
return res;
|
||
|
}
|
||
|
|
||
|
void *
|
||
|
objc_calloc(size_t nelem, size_t size)
|
||
|
{
|
||
|
void* res = (void*) (*_objc_calloc)(nelem, size);
|
||
|
if(!res)
|
||
|
objc_error(nil, OBJC_ERR_MEMORY, "Virtual memory exhausted\n");
|
||
|
return res;
|
||
|
}
|
||
|
|
||
|
void
|
||
|
objc_free(void *mem)
|
||
|
{
|
||
|
(*_objc_free)(mem);
|
||
|
}
|
||
|
|
||
|
/*
|
||
|
** Hook functions for memory allocation and disposal.
|
||
|
** This makes it easy to substitute garbage collection systems
|
||
|
** such as Boehm's GC by assigning these function pointers
|
||
|
** to the GC's allocation routines. By default these point
|
||
|
** to the ANSI standard malloc, realloc, free, etc.
|
||
|
**
|
||
|
** Users should call the normal objc routines above for
|
||
|
** memory allocation and disposal within their programs.
|
||
|
*/
|
||
|
|
||
|
#if OBJC_WITH_GC
|
||
|
#include <gc.h>
|
||
|
|
||
|
static void *GC_calloc (size_t nelem, size_t size)
|
||
|
{
|
||
|
void* p = GC_malloc (nelem * size);
|
||
|
if (!p)
|
||
|
objc_error (nil, OBJC_ERR_MEMORY, "Virtual memory exhausted!\n");
|
||
|
|
||
|
memset (p, 0, nelem * size);
|
||
|
return p;
|
||
|
}
|
||
|
|
||
|
static void noFree (void* p) {}
|
||
|
|
||
|
void *(*_objc_malloc)(size_t) = GC_malloc;
|
||
|
void *(*_objc_atomic_malloc)(size_t) = GC_malloc_atomic;
|
||
|
void *(*_objc_valloc)(size_t) = GC_malloc;
|
||
|
void *(*_objc_realloc)(void *, size_t) = GC_realloc;
|
||
|
void *(*_objc_calloc)(size_t, size_t) = GC_calloc;
|
||
|
void (*_objc_free)(void *) = noFree;
|
||
|
|
||
|
#else
|
||
|
|
||
|
void *(*_objc_malloc)(size_t) = malloc;
|
||
|
void *(*_objc_atomic_malloc)(size_t) = malloc;
|
||
|
void *(*_objc_valloc)(size_t) = malloc;
|
||
|
void *(*_objc_realloc)(void *, size_t) = realloc;
|
||
|
void *(*_objc_calloc)(size_t, size_t) = calloc;
|
||
|
void (*_objc_free)(void *) = free;
|
||
|
|
||
|
|
||
|
#endif
|