| /* GNU Objective C Runtime Miscellaneous |
| Copyright (C) 1993, 1994, 1995, 1996, 1997, 2002 |
| Free Software Foundation, Inc. |
| Contributed by Kresten Krab Thorup |
| |
| This file is part of GCC. |
| |
| GCC 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. |
| |
| GCC 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 GCC; 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 /* !OBJC_WITH_GC */ |
| |
| 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 /* !OBJC_WITH_GC */ |