annotate src/gmalloc.c @ 109476:94ad8639f676

Fix up "missing braces" warning. * src/eval.c (Feval, Ffuncall): Use the new names. * src/lisp.h (struct Lisp_Subr): Rename `am' to aMANY and add aUNEVALLED. (DEFUN): Add braces around the union initialisation and use ## to specify the right union alternative and avoid a cast.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 20 Jul 2010 17:26:53 +0200
parents 2bc9a0c04c87
children ef719132ddfa 7df2e30d72ec
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1 /* This file is no longer automatically generated from libc. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3 #define _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5 /* The malloc headers and source files from the C library follow here. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7 /* Declarations for `malloc' and friends.
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64092
diff changeset
8 Copyright (C) 1990, 1991, 1992, 1993, 1995, 1996, 1999, 2002, 2003, 2004,
75348
3d45362f1d38 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 72951
diff changeset
9 2005, 2006, 2007 Free Software Foundation, Inc.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 Written May 1989 by Mike Haertel.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 This library is free software; you can redistribute it and/or
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
13 modify it under the terms of the GNU General Public License as
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14 published by the Free Software Foundation; either version 2 of the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 License, or (at your option) any later version.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 This library is distributed in the hope that it will be useful,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
20 General Public License for more details.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
22 You should have received a copy of the GNU General Public
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
23 License along with this library; see the file COPYING. If
64092
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
24 not, write to the Free Software Foundation, Inc., 51 Franklin Street,
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
25 Fifth Floor, Boston, MA 02110-1301, USA.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 The author may be reached (Email) at the address mike@ai.mit.edu,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28 or (US mail) as Mike Haertel c/o Free Software Foundation. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30 #ifndef _MALLOC_H
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32 #define _MALLOC_H 1
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 #ifdef _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36 #ifdef HAVE_CONFIG_H
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 #include <config.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
40 #ifdef HAVE_GTK_AND_PTHREAD
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
41 #define USE_PTHREAD
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
42 #endif
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
43
40670
8cb4d744ae0d Test BROKEN_PROTOTYPES.
Richard M. Stallman <rms@gnu.org>
parents: 37372
diff changeset
44 #if ((defined __cplusplus || (defined (__STDC__) && __STDC__) \
108860
c15389f78514 * src/gmalloc.c: Remove BROKEN_PROTOTYPES reference, unused.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 107733
diff changeset
45 || defined STDC_HEADERS || defined PROTOTYPES))
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
46 #undef PP
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
47 #define PP(args) args
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
48 #undef __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
49 #define __ptr_t void *
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50 #else /* Not C++ or ANSI C. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
51 #undef PP
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
52 #define PP(args) ()
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
53 #undef __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
54 #define __ptr_t char *
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
55 #endif /* C++ or ANSI C. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
56
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57 #if defined(_LIBC) || defined(STDC_HEADERS) || defined(USG)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
58 #include <string.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
59 #else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
60 #ifndef memset
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
61 #define memset(s, zero, n) bzero ((s), (n))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
62 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63 #ifndef memcpy
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
64 #define memcpy(d, s, n) bcopy ((s), (d), (n))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
65 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
66 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
67
26526
b7438760079b * callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents: 26088
diff changeset
68 #ifdef HAVE_LIMITS_H
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
69 #include <limits.h>
26526
b7438760079b * callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents: 26088
diff changeset
70 #endif
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
71 #ifndef CHAR_BIT
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
72 #define CHAR_BIT 8
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
73 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
74
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
75 #ifdef HAVE_UNISTD_H
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
76 #include <unistd.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
77 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
78
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
79 #ifdef USE_PTHREAD
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
80 #include <pthread.h>
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
81 #endif
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
82
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
83 #endif /* _MALLOC_INTERNAL. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
84
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
85
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
86 #ifdef __cplusplus
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
87 extern "C"
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
88 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
89 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
90
26526
b7438760079b * callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents: 26088
diff changeset
91 #ifdef STDC_HEADERS
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
92 #include <stddef.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
93 #define __malloc_size_t size_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
94 #define __malloc_ptrdiff_t ptrdiff_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
95 #else
37372
46942d9e7537 (__malloc_size_t) [__GNUC__]: If STDC_HEADERS is not
Eli Zaretskii <eliz@gnu.org>
parents: 37268
diff changeset
96 #ifdef __GNUC__
46942d9e7537 (__malloc_size_t) [__GNUC__]: If STDC_HEADERS is not
Eli Zaretskii <eliz@gnu.org>
parents: 37268
diff changeset
97 #include <stddef.h>
46942d9e7537 (__malloc_size_t) [__GNUC__]: If STDC_HEADERS is not
Eli Zaretskii <eliz@gnu.org>
parents: 37268
diff changeset
98 #ifdef __SIZE_TYPE__
46942d9e7537 (__malloc_size_t) [__GNUC__]: If STDC_HEADERS is not
Eli Zaretskii <eliz@gnu.org>
parents: 37268
diff changeset
99 #define __malloc_size_t __SIZE_TYPE__
46942d9e7537 (__malloc_size_t) [__GNUC__]: If STDC_HEADERS is not
Eli Zaretskii <eliz@gnu.org>
parents: 37268
diff changeset
100 #endif
46942d9e7537 (__malloc_size_t) [__GNUC__]: If STDC_HEADERS is not
Eli Zaretskii <eliz@gnu.org>
parents: 37268
diff changeset
101 #endif
46942d9e7537 (__malloc_size_t) [__GNUC__]: If STDC_HEADERS is not
Eli Zaretskii <eliz@gnu.org>
parents: 37268
diff changeset
102 #ifndef __malloc_size_t
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
103 #define __malloc_size_t unsigned int
37372
46942d9e7537 (__malloc_size_t) [__GNUC__]: If STDC_HEADERS is not
Eli Zaretskii <eliz@gnu.org>
parents: 37268
diff changeset
104 #endif
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
105 #define __malloc_ptrdiff_t int
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
106 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
107
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
108 #ifndef NULL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
109 #define NULL 0
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
110 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
111
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
112
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
113 /* Allocate SIZE bytes of memory. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
114 extern __ptr_t malloc PP ((__malloc_size_t __size));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
115 /* Re-allocate the previously allocated block
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
116 in __ptr_t, making the new block SIZE bytes long. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
117 extern __ptr_t realloc PP ((__ptr_t __ptr, __malloc_size_t __size));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
118 /* Allocate NMEMB elements of SIZE bytes each, all initialized to 0. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
119 extern __ptr_t calloc PP ((__malloc_size_t __nmemb, __malloc_size_t __size));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
120 /* Free a block allocated by `malloc', `realloc' or `calloc'. */
91702
b7a5a89054dc * configure.in (LIBX11_MACHINE, HAVE_XFREE386): Remove code
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82335
diff changeset
121 extern void free PP ((__ptr_t __ptr));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
123 /* Allocate SIZE bytes allocated to ALIGNMENT bytes. */
107733
84b961690802 Remove support for DJGPP v1.x (bug#5813).
Eli Zaretskii <eliz@gnu.org>
parents: 98455
diff changeset
124 #if !defined (_MALLOC_INTERNAL) || defined (MSDOS) /* Avoid conflict. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
125 extern __ptr_t memalign PP ((__malloc_size_t __alignment,
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
126 __malloc_size_t __size));
82335
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
127 extern int posix_memalign PP ((__ptr_t *, __malloc_size_t,
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
128 __malloc_size_t size));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
129 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
131 /* Allocate SIZE bytes on a page boundary. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
132 #if ! (defined (_MALLOC_INTERNAL) && defined (GMALLOC_INHIBIT_VALLOC))
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
133 extern __ptr_t valloc PP ((__malloc_size_t __size));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
134 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
135
82308
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
136 #ifdef USE_PTHREAD
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
137 /* Set up mutexes and make malloc etc. thread-safe. */
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
138 extern void malloc_enable_thread PP ((void));
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
139 #endif
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
140
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
141 #ifdef _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
142
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
143 /* The allocator divides the heap into blocks of fixed size; large
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
144 requests receive one or more whole blocks, and small requests
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
145 receive a fragment of a block. Fragment sizes are powers of two,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
146 and all fragments of a block are the same size. When all the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
147 fragments in a block have been freed, the block itself is freed. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
148 #define INT_BIT (CHAR_BIT * sizeof(int))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
149 #define BLOCKLOG (INT_BIT > 16 ? 12 : 9)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
150 #define BLOCKSIZE (1 << BLOCKLOG)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
151 #define BLOCKIFY(SIZE) (((SIZE) + BLOCKSIZE - 1) / BLOCKSIZE)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
152
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
153 /* Determine the amount of memory spanned by the initial heap table
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
154 (not an absolute limit). */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
155 #define HEAP (INT_BIT > 16 ? 4194304 : 65536)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
156
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
157 /* Number of contiguous free blocks allowed to build up at the end of
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
158 memory before they will be returned to the system. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
159 #define FINAL_FREE_BLOCKS 8
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
160
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
161 /* Data structure giving per-block information. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
162 typedef union
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
163 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
164 /* Heap information for a busy block. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
165 struct
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
166 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
167 /* Zero for a large (multiblock) object, or positive giving the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
168 logarithm to the base two of the fragment size. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
169 int type;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
170 union
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
171 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
172 struct
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
173 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
174 __malloc_size_t nfree; /* Free frags in a fragmented block. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
175 __malloc_size_t first; /* First free fragment of the block. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
176 } frag;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
177 /* For a large object, in its first block, this has the number
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
178 of blocks in the object. In the other blocks, this has a
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
179 negative number which says how far back the first block is. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
180 __malloc_ptrdiff_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
181 } info;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
182 } busy;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
183 /* Heap information for a free block
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
184 (that may be the first of a free cluster). */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
185 struct
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
186 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
187 __malloc_size_t size; /* Size (in blocks) of a free cluster. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
188 __malloc_size_t next; /* Index of next free cluster. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
189 __malloc_size_t prev; /* Index of previous free cluster. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
190 } free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
191 } malloc_info;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
192
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
193 /* Pointer to first block of the heap. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
194 extern char *_heapbase;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
195
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
196 /* Table indexed by block number giving per-block information. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
197 extern malloc_info *_heapinfo;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
198
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
199 /* Address to block number and vice versa. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
200 #define BLOCK(A) (((char *) (A) - _heapbase) / BLOCKSIZE + 1)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
201 #define ADDRESS(B) ((__ptr_t) (((B) - 1) * BLOCKSIZE + _heapbase))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
202
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
203 /* Current search index for the heap table. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
204 extern __malloc_size_t _heapindex;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
205
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
206 /* Limit of valid info table indices. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
207 extern __malloc_size_t _heaplimit;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
208
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
209 /* Doubly linked lists of free fragments. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
210 struct list
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
211 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
212 struct list *next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
213 struct list *prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
214 };
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
215
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
216 /* Free list headers for each fragment size. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
217 extern struct list _fraghead[];
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
218
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
219 /* List of blocks allocated with `memalign' (or `valloc'). */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
220 struct alignlist
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
221 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
222 struct alignlist *next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
223 __ptr_t aligned; /* The address that memaligned returned. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
224 __ptr_t exact; /* The address that malloc returned. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
225 };
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
226 extern struct alignlist *_aligned_blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
227
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
228 /* Instrumentation. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
229 extern __malloc_size_t _chunks_used;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
230 extern __malloc_size_t _bytes_used;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
231 extern __malloc_size_t _chunks_free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
232 extern __malloc_size_t _bytes_free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
233
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
234 /* Internal versions of `malloc', `realloc', and `free'
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
235 used when these functions need to call each other.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
236 They are the same but don't call the hooks. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
237 extern __ptr_t _malloc_internal PP ((__malloc_size_t __size));
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
238 extern __ptr_t _realloc_internal PP ((__ptr_t __ptr, __malloc_size_t __size));
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
239 extern void _free_internal PP ((__ptr_t __ptr));
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
240 extern __ptr_t _malloc_internal_nolock PP ((__malloc_size_t __size));
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
241 extern __ptr_t _realloc_internal_nolock PP ((__ptr_t __ptr, __malloc_size_t __size));
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
242 extern void _free_internal_nolock PP ((__ptr_t __ptr));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
243
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
244 #ifdef USE_PTHREAD
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
245 extern pthread_mutex_t _malloc_mutex, _aligned_blocks_mutex;
82308
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
246 extern int _malloc_thread_enabled_p;
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
247 #define LOCK() \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
248 do { \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
249 if (_malloc_thread_enabled_p) \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
250 pthread_mutex_lock (&_malloc_mutex); \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
251 } while (0)
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
252 #define UNLOCK() \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
253 do { \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
254 if (_malloc_thread_enabled_p) \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
255 pthread_mutex_unlock (&_malloc_mutex); \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
256 } while (0)
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
257 #define LOCK_ALIGNED_BLOCKS() \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
258 do { \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
259 if (_malloc_thread_enabled_p) \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
260 pthread_mutex_lock (&_aligned_blocks_mutex); \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
261 } while (0)
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
262 #define UNLOCK_ALIGNED_BLOCKS() \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
263 do { \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
264 if (_malloc_thread_enabled_p) \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
265 pthread_mutex_unlock (&_aligned_blocks_mutex); \
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
266 } while (0)
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
267 #else
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
268 #define LOCK()
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
269 #define UNLOCK()
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
270 #define LOCK_ALIGNED_BLOCKS()
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
271 #define UNLOCK_ALIGNED_BLOCKS()
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
272 #endif
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
273
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
274 #endif /* _MALLOC_INTERNAL. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
275
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
276 /* Given an address in the middle of a malloc'd object,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
277 return the address of the beginning of the object. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
278 extern __ptr_t malloc_find_object_address PP ((__ptr_t __ptr));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
279
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
280 /* Underlying allocation function; successive calls should
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
281 return contiguous pieces of memory. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
282 extern __ptr_t (*__morecore) PP ((__malloc_ptrdiff_t __size));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
283
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
284 /* Default value of `__morecore'. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
285 extern __ptr_t __default_morecore PP ((__malloc_ptrdiff_t __size));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
286
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
287 /* If not NULL, this function is called after each time
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
288 `__morecore' is called to increase the data size. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
289 extern void (*__after_morecore_hook) PP ((void));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
290
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
291 /* Number of extra blocks to get each time we ask for more core.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
292 This reduces the frequency of calling `(*__morecore)'. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
293 extern __malloc_size_t __malloc_extra_blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
294
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
295 /* Nonzero if `malloc' has been called and done its initialization. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
296 extern int __malloc_initialized;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
297 /* Function called to initialize malloc data structures. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
298 extern int __malloc_initialize PP ((void));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
299
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
300 /* Hooks for debugging versions. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
301 extern void (*__malloc_initialize_hook) PP ((void));
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
302 extern void (*__free_hook) PP ((__ptr_t __ptr));
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
303 extern __ptr_t (*__malloc_hook) PP ((__malloc_size_t __size));
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
304 extern __ptr_t (*__realloc_hook) PP ((__ptr_t __ptr, __malloc_size_t __size));
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
305 extern __ptr_t (*__memalign_hook) PP ((__malloc_size_t __size,
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
306 __malloc_size_t __alignment));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
307
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
308 /* Return values for `mprobe': these are the kinds of inconsistencies that
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
309 `mcheck' enables detection of. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
310 enum mcheck_status
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
311 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
312 MCHECK_DISABLED = -1, /* Consistency checking is not turned on. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
313 MCHECK_OK, /* Block is fine. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
314 MCHECK_FREE, /* Block freed twice. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
315 MCHECK_HEAD, /* Memory before the block was clobbered. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
316 MCHECK_TAIL /* Memory after the block was clobbered. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
317 };
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
318
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
319 /* Activate a standard collection of debugging hooks. This must be called
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
320 before `malloc' is ever called. ABORTFUNC is called with an error code
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
321 (see enum above) when an inconsistency is detected. If ABORTFUNC is
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
322 null, the standard function prints on stderr and then calls `abort'. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
323 extern int mcheck PP ((void (*__abortfunc) PP ((enum mcheck_status))));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
324
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
325 /* Check for aberrations in a particular malloc'd block. You must have
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
326 called `mcheck' already. These are the same checks that `mcheck' does
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
327 when you free or reallocate a block. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
328 extern enum mcheck_status mprobe PP ((__ptr_t __ptr));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
329
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
330 /* Activate a standard collection of tracing hooks. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
331 extern void mtrace PP ((void));
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
332 extern void muntrace PP ((void));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
333
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
334 /* Statistics available to the user. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
335 struct mstats
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
336 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
337 __malloc_size_t bytes_total; /* Total size of the heap. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
338 __malloc_size_t chunks_used; /* Chunks allocated by the user. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
339 __malloc_size_t bytes_used; /* Byte total of user-allocated chunks. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
340 __malloc_size_t chunks_free; /* Chunks in the free list. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
341 __malloc_size_t bytes_free; /* Byte total of chunks in the free list. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
342 };
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
343
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
344 /* Pick up the current statistics. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
345 extern struct mstats mstats PP ((void));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
346
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
347 /* Call WARNFUN with a warning message when memory usage is high. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
348 extern void memory_warnings PP ((__ptr_t __start,
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
349 void (*__warnfun) PP ((const char *))));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
350
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
351
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
352 /* Relocating allocator. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
353
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
354 /* Allocate SIZE bytes, and store the address in *HANDLEPTR. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
355 extern __ptr_t r_alloc PP ((__ptr_t *__handleptr, __malloc_size_t __size));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
356
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
357 /* Free the storage allocated in HANDLEPTR. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
358 extern void r_alloc_free PP ((__ptr_t *__handleptr));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
359
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
360 /* Adjust the block at HANDLEPTR to be SIZE bytes long. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
361 extern __ptr_t r_re_alloc PP ((__ptr_t *__handleptr, __malloc_size_t __size));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
362
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
363
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
364 #ifdef __cplusplus
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
365 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
366 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
367
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
368 #endif /* malloc.h */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
369 /* Memory allocator `malloc'.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
370 Copyright 1990, 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
371 Written May 1989 by Mike Haertel.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
372
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
373 This library is free software; you can redistribute it and/or
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
374 modify it under the terms of the GNU General Public License as
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
375 published by the Free Software Foundation; either version 2 of the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
376 License, or (at your option) any later version.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
377
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
378 This library is distributed in the hope that it will be useful,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
379 but WITHOUT ANY WARRANTY; without even the implied warranty of
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
380 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
381 General Public License for more details.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
382
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
383 You should have received a copy of the GNU General Public
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
384 License along with this library; see the file COPYING. If
64092
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
385 not, write to the Free Software Foundation, Inc., 51 Franklin Street,
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
386 Fifth Floor, Boston, MA 02110-1301, USA.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
387
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
388 The author may be reached (Email) at the address mike@ai.mit.edu,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
389 or (US mail) as Mike Haertel c/o Free Software Foundation. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
390
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
391 #ifndef _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
392 #define _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
393 #include <malloc.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
394 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
395 #include <errno.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
396
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
397 /* How to really get more memory. */
54824
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
398 #if defined(CYGWIN)
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
399 extern __ptr_t bss_sbrk PP ((ptrdiff_t __size));
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
400 extern int bss_sbrk_did_unexec;
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
401 #endif
81500
55e8330e329d (__morecore): Fix the declaration to comply with the definition.
Sam Steingold <sds@gnu.org>
parents: 76776
diff changeset
402 __ptr_t (*__morecore) PP ((__malloc_ptrdiff_t __size)) = __default_morecore;
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
403
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
404 /* Debugging hook for `malloc'. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
405 __ptr_t (*__malloc_hook) PP ((__malloc_size_t __size));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
406
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
407 /* Pointer to the base of the first block. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
408 char *_heapbase;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
409
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
410 /* Block information table. Allocated with align/__free (not malloc/free). */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
411 malloc_info *_heapinfo;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
412
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
413 /* Number of info entries. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
414 static __malloc_size_t heapsize;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
415
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
416 /* Search index in the info table. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
417 __malloc_size_t _heapindex;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
418
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
419 /* Limit of valid info table indices. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
420 __malloc_size_t _heaplimit;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
421
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
422 /* Free lists for each fragment size. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
423 struct list _fraghead[BLOCKLOG];
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
424
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
425 /* Instrumentation. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
426 __malloc_size_t _chunks_used;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
427 __malloc_size_t _bytes_used;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
428 __malloc_size_t _chunks_free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
429 __malloc_size_t _bytes_free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
430
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
431 /* Are you experienced? */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
432 int __malloc_initialized;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
433
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
434 __malloc_size_t __malloc_extra_blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
435
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
436 void (*__malloc_initialize_hook) PP ((void));
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
437 void (*__after_morecore_hook) PP ((void));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
438
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
439 #if defined GC_MALLOC_CHECK && defined GC_PROTECT_MALLOC_STATE
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
440
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
441 /* Some code for hunting a bug writing into _heapinfo.
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
442
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
443 Call this macro with argument PROT non-zero to protect internal
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
444 malloc state against writing to it, call it with a zero argument to
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
445 make it readable and writable.
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
446
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
447 Note that this only works if BLOCKSIZE == page size, which is
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
448 the case on the i386. */
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
449
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
450 #include <sys/types.h>
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
451 #include <sys/mman.h>
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
452
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
453 static int state_protected_p;
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
454 static __malloc_size_t last_state_size;
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
455 static malloc_info *last_heapinfo;
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
456
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
457 void
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
458 protect_malloc_state (protect_p)
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
459 int protect_p;
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
460 {
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
461 /* If _heapinfo has been relocated, make sure its old location
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
462 isn't left read-only; it will be reused by malloc. */
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
463 if (_heapinfo != last_heapinfo
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
464 && last_heapinfo
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
465 && state_protected_p)
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
466 mprotect (last_heapinfo, last_state_size, PROT_READ | PROT_WRITE);
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
467
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
468 last_state_size = _heaplimit * sizeof *_heapinfo;
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
469 last_heapinfo = _heapinfo;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 40670
diff changeset
470
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
471 if (protect_p != state_protected_p)
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
472 {
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
473 state_protected_p = protect_p;
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
474 if (mprotect (_heapinfo, last_state_size,
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
475 protect_p ? PROT_READ : PROT_READ | PROT_WRITE) != 0)
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
476 abort ();
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
477 }
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
478 }
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
479
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
480 #define PROTECT_MALLOC_STATE(PROT) protect_malloc_state(PROT)
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
481
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
482 #else
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
483 #define PROTECT_MALLOC_STATE(PROT) /* empty */
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
484 #endif
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
485
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
486
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
487 /* Aligned allocation. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
488 static __ptr_t align PP ((__malloc_size_t));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
489 static __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
490 align (size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
491 __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
492 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
493 __ptr_t result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
494 unsigned long int adj;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
495
37268
0f5de719ab07 (align): If the argument SIZE would overflow
Eli Zaretskii <eliz@gnu.org>
parents: 32973
diff changeset
496 /* align accepts an unsigned argument, but __morecore accepts a
0f5de719ab07 (align): If the argument SIZE would overflow
Eli Zaretskii <eliz@gnu.org>
parents: 32973
diff changeset
497 signed one. This could lead to trouble if SIZE overflows a
0f5de719ab07 (align): If the argument SIZE would overflow
Eli Zaretskii <eliz@gnu.org>
parents: 32973
diff changeset
498 signed int type accepted by __morecore. We just punt in that
0f5de719ab07 (align): If the argument SIZE would overflow
Eli Zaretskii <eliz@gnu.org>
parents: 32973
diff changeset
499 case, since they are requesting a ludicrous amount anyway. */
0f5de719ab07 (align): If the argument SIZE would overflow
Eli Zaretskii <eliz@gnu.org>
parents: 32973
diff changeset
500 if ((__malloc_ptrdiff_t)size < 0)
0f5de719ab07 (align): If the argument SIZE would overflow
Eli Zaretskii <eliz@gnu.org>
parents: 32973
diff changeset
501 result = 0;
0f5de719ab07 (align): If the argument SIZE would overflow
Eli Zaretskii <eliz@gnu.org>
parents: 32973
diff changeset
502 else
0f5de719ab07 (align): If the argument SIZE would overflow
Eli Zaretskii <eliz@gnu.org>
parents: 32973
diff changeset
503 result = (*__morecore) (size);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
504 adj = (unsigned long int) ((unsigned long int) ((char *) result -
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
505 (char *) NULL)) % BLOCKSIZE;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
506 if (adj != 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
507 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
508 __ptr_t new;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
509 adj = BLOCKSIZE - adj;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
510 new = (*__morecore) (adj);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
511 result = (char *) result + adj;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
512 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
513
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
514 if (__after_morecore_hook)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
515 (*__after_morecore_hook) ();
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
516
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
517 return result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
518 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
519
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
520 /* Get SIZE bytes, if we can get them starting at END.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
521 Return the address of the space we got.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
522 If we cannot get space at END, fail and return 0. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
523 static __ptr_t get_contiguous_space PP ((__malloc_ptrdiff_t, __ptr_t));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
524 static __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
525 get_contiguous_space (size, position)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
526 __malloc_ptrdiff_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
527 __ptr_t position;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
528 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
529 __ptr_t before;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
530 __ptr_t after;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
531
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
532 before = (*__morecore) (0);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
533 /* If we can tell in advance that the break is at the wrong place,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
534 fail now. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
535 if (before != position)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
536 return 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
537
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
538 /* Allocate SIZE bytes and get the address of them. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
539 after = (*__morecore) (size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
540 if (!after)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
541 return 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
542
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
543 /* It was not contiguous--reject it. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
544 if (after != position)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
545 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
546 (*__morecore) (- size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
547 return 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
548 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
549
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
550 return after;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
551 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
552
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
553
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
554 /* This is called when `_heapinfo' and `heapsize' have just
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
555 been set to describe a new info table. Set up the table
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
556 to describe itself and account for it in the statistics. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
557 static void register_heapinfo PP ((void));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
558 #ifdef __GNUC__
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
559 __inline__
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
560 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
561 static void
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
562 register_heapinfo ()
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
563 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
564 __malloc_size_t block, blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
565
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
566 block = BLOCK (_heapinfo);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
567 blocks = BLOCKIFY (heapsize * sizeof (malloc_info));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
568
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
569 /* Account for the _heapinfo block itself in the statistics. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
570 _bytes_used += blocks * BLOCKSIZE;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
571 ++_chunks_used;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
572
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
573 /* Describe the heapinfo block itself in the heapinfo. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
574 _heapinfo[block].busy.type = 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
575 _heapinfo[block].busy.info.size = blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
576 /* Leave back-pointers for malloc_find_address. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
577 while (--blocks > 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
578 _heapinfo[block + blocks].busy.info.size = -blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
579 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
580
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
581 #ifdef USE_PTHREAD
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
582 pthread_mutex_t _malloc_mutex = PTHREAD_MUTEX_INITIALIZER;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
583 pthread_mutex_t _aligned_blocks_mutex = PTHREAD_MUTEX_INITIALIZER;
82308
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
584 int _malloc_thread_enabled_p;
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
585
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
586 static void
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
587 malloc_atfork_handler_prepare ()
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
588 {
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
589 LOCK ();
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
590 LOCK_ALIGNED_BLOCKS ();
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
591 }
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
592
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
593 static void
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
594 malloc_atfork_handler_parent ()
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
595 {
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
596 UNLOCK_ALIGNED_BLOCKS ();
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
597 UNLOCK ();
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
598 }
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
599
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
600 static void
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
601 malloc_atfork_handler_child ()
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
602 {
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
603 UNLOCK_ALIGNED_BLOCKS ();
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
604 UNLOCK ();
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
605 }
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
606
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
607 /* Set up mutexes and make malloc etc. thread-safe. */
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
608 void
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
609 malloc_enable_thread ()
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
610 {
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
611 if (_malloc_thread_enabled_p)
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
612 return;
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
613
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
614 /* Some pthread implementations call malloc for statically
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
615 initialized mutexes when they are used first. To avoid such a
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
616 situation, we initialize mutexes here while their use is
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
617 disabled in malloc etc. */
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
618 pthread_mutex_init (&_malloc_mutex, NULL);
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
619 pthread_mutex_init (&_aligned_blocks_mutex, NULL);
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
620 pthread_atfork (malloc_atfork_handler_prepare,
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
621 malloc_atfork_handler_parent,
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
622 malloc_atfork_handler_child);
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
623 _malloc_thread_enabled_p = 1;
7856255721ef (_malloc_thread_enabled_p) [USE_PTHREAD]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82198
diff changeset
624 }
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
625 #endif
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
626
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
627 static void
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
628 malloc_initialize_1 ()
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
629 {
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
630 #ifdef GC_MCHECK
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
631 mcheck (NULL);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
632 #endif
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
633
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
634 if (__malloc_initialize_hook)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
635 (*__malloc_initialize_hook) ();
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
636
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
637 heapsize = HEAP / BLOCKSIZE;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
638 _heapinfo = (malloc_info *) align (heapsize * sizeof (malloc_info));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
639 if (_heapinfo == NULL)
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
640 return;
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
641 memset (_heapinfo, 0, heapsize * sizeof (malloc_info));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
642 _heapinfo[0].free.size = 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
643 _heapinfo[0].free.next = _heapinfo[0].free.prev = 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
644 _heapindex = 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
645 _heapbase = (char *) _heapinfo;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
646 _heaplimit = BLOCK (_heapbase + heapsize * sizeof (malloc_info));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
647
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
648 register_heapinfo ();
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
649
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
650 __malloc_initialized = 1;
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
651 PROTECT_MALLOC_STATE (1);
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
652 return;
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
653 }
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
654
82198
8cc259bc54fd (__malloc_initialize): Remove pthread_once. Not needed.
Jan Djärv <jan.h.d@swipnet.se>
parents: 81615
diff changeset
655 /* Set everything up and remember that we have.
8cc259bc54fd (__malloc_initialize): Remove pthread_once. Not needed.
Jan Djärv <jan.h.d@swipnet.se>
parents: 81615
diff changeset
656 main will call malloc which calls this function. That is before any threads
8cc259bc54fd (__malloc_initialize): Remove pthread_once. Not needed.
Jan Djärv <jan.h.d@swipnet.se>
parents: 81615
diff changeset
657 or signal handlers has been set up, so we don't need thread protection. */
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
658 int
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
659 __malloc_initialize ()
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
660 {
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
661 if (__malloc_initialized)
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
662 return 0;
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
663
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
664 malloc_initialize_1 ();
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
665
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
666 return __malloc_initialized;
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
667 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
668
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
669 static int morecore_recursing;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
670
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
671 /* Get neatly aligned memory, initializing or
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
672 growing the heap info table as necessary. */
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
673 static __ptr_t morecore_nolock PP ((__malloc_size_t));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
674 static __ptr_t
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
675 morecore_nolock (size)
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
676 __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
677 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
678 __ptr_t result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
679 malloc_info *newinfo, *oldinfo;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
680 __malloc_size_t newsize;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
681
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
682 if (morecore_recursing)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
683 /* Avoid recursion. The caller will know how to handle a null return. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
684 return NULL;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
685
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
686 result = align (size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
687 if (result == NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
688 return NULL;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
689
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
690 PROTECT_MALLOC_STATE (0);
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
691
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
692 /* Check if we need to grow the info table. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
693 if ((__malloc_size_t) BLOCK ((char *) result + size) > heapsize)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
694 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
695 /* Calculate the new _heapinfo table size. We do not account for the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
696 added blocks in the table itself, as we hope to place them in
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
697 existing free space, which is already covered by part of the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
698 existing table. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
699 newsize = heapsize;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
700 do
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
701 newsize *= 2;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
702 while ((__malloc_size_t) BLOCK ((char *) result + size) > newsize);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
703
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
704 /* We must not reuse existing core for the new info table when called
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
705 from realloc in the case of growing a large block, because the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
706 block being grown is momentarily marked as free. In this case
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
707 _heaplimit is zero so we know not to reuse space for internal
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
708 allocation. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
709 if (_heaplimit != 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
710 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
711 /* First try to allocate the new info table in core we already
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
712 have, in the usual way using realloc. If realloc cannot
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
713 extend it in place or relocate it to existing sufficient core,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
714 we will get called again, and the code above will notice the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
715 `morecore_recursing' flag and return null. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
716 int save = errno; /* Don't want to clobber errno with ENOMEM. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
717 morecore_recursing = 1;
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
718 newinfo = (malloc_info *) _realloc_internal_nolock
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
719 (_heapinfo, newsize * sizeof (malloc_info));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
720 morecore_recursing = 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
721 if (newinfo == NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
722 errno = save;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
723 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
724 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
725 /* We found some space in core, and realloc has put the old
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
726 table's blocks on the free list. Now zero the new part
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
727 of the table and install the new table location. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
728 memset (&newinfo[heapsize], 0,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
729 (newsize - heapsize) * sizeof (malloc_info));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
730 _heapinfo = newinfo;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
731 heapsize = newsize;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
732 goto got_heap;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
733 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
734 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
735
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
736 /* Allocate new space for the malloc info table. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
737 while (1)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
738 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
739 newinfo = (malloc_info *) align (newsize * sizeof (malloc_info));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
740
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
741 /* Did it fail? */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
742 if (newinfo == NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
743 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
744 (*__morecore) (-size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
745 return NULL;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
746 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
747
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
748 /* Is it big enough to record status for its own space?
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
749 If so, we win. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
750 if ((__malloc_size_t) BLOCK ((char *) newinfo
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
751 + newsize * sizeof (malloc_info))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
752 < newsize)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
753 break;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
754
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
755 /* Must try again. First give back most of what we just got. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
756 (*__morecore) (- newsize * sizeof (malloc_info));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
757 newsize *= 2;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
758 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
759
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
760 /* Copy the old table to the beginning of the new,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
761 and zero the rest of the new table. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
762 memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
763 memset (&newinfo[heapsize], 0,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
764 (newsize - heapsize) * sizeof (malloc_info));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
765 oldinfo = _heapinfo;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
766 _heapinfo = newinfo;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
767 heapsize = newsize;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
768
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
769 register_heapinfo ();
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
770
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
771 /* Reset _heaplimit so _free_internal never decides
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
772 it can relocate or resize the info table. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
773 _heaplimit = 0;
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
774 _free_internal_nolock (oldinfo);
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
775 PROTECT_MALLOC_STATE (0);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
776
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
777 /* The new heap limit includes the new table just allocated. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
778 _heaplimit = BLOCK ((char *) newinfo + heapsize * sizeof (malloc_info));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
779 return result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
780 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
781
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
782 got_heap:
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
783 _heaplimit = BLOCK ((char *) result + size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
784 return result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
785 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
786
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
787 /* Allocate memory from the heap. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
788 __ptr_t
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
789 _malloc_internal_nolock (size)
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
790 __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
791 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
792 __ptr_t result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
793 __malloc_size_t block, blocks, lastblocks, start;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
794 register __malloc_size_t i;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
795 struct list *next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
796
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
797 /* ANSI C allows `malloc (0)' to either return NULL, or to return a
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
798 valid address you can realloc and free (though not dereference).
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
799
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
800 It turns out that some extant code (sunrpc, at least Ultrix's version)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
801 expects `malloc (0)' to return non-NULL and breaks otherwise.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
802 Be compatible. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
803
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
804 #if 0
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
805 if (size == 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
806 return NULL;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
807 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
808
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
809 PROTECT_MALLOC_STATE (0);
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
810
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
811 if (size < sizeof (struct list))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
812 size = sizeof (struct list);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
813
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
814 /* Determine the allocation policy based on the request size. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
815 if (size <= BLOCKSIZE / 2)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
816 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
817 /* Small allocation to receive a fragment of a block.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
818 Determine the logarithm to base two of the fragment size. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
819 register __malloc_size_t log = 1;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
820 --size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
821 while ((size /= 2) != 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
822 ++log;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
823
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
824 /* Look in the fragment lists for a
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
825 free fragment of the desired size. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
826 next = _fraghead[log].next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
827 if (next != NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
828 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
829 /* There are free fragments of this size.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
830 Pop a fragment out of the fragment list and return it.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
831 Update the block's nfree and first counters. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
832 result = (__ptr_t) next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
833 next->prev->next = next->next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
834 if (next->next != NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
835 next->next->prev = next->prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
836 block = BLOCK (result);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
837 if (--_heapinfo[block].busy.info.frag.nfree != 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
838 _heapinfo[block].busy.info.frag.first = (unsigned long int)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
839 ((unsigned long int) ((char *) next->next - (char *) NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
840 % BLOCKSIZE) >> log;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
841
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
842 /* Update the statistics. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
843 ++_chunks_used;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
844 _bytes_used += 1 << log;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
845 --_chunks_free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
846 _bytes_free -= 1 << log;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
847 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
848 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
849 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
850 /* No free fragments of the desired size, so get a new block
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
851 and break it into fragments, returning the first. */
32693
8223a86fa594 (_malloc_internal) [GC_MALLOC_CHECK]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 29837
diff changeset
852 #ifdef GC_MALLOC_CHECK
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
853 result = _malloc_internal_nolock (BLOCKSIZE);
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
854 PROTECT_MALLOC_STATE (0);
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
855 #elif defined (USE_PTHREAD)
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
856 result = _malloc_internal_nolock (BLOCKSIZE);
32693
8223a86fa594 (_malloc_internal) [GC_MALLOC_CHECK]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 29837
diff changeset
857 #else
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
858 result = malloc (BLOCKSIZE);
32693
8223a86fa594 (_malloc_internal) [GC_MALLOC_CHECK]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 29837
diff changeset
859 #endif
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
860 if (result == NULL)
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
861 {
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
862 PROTECT_MALLOC_STATE (1);
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
863 goto out;
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
864 }
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
865
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
866 /* Link all fragments but the first into the free list. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
867 next = (struct list *) ((char *) result + (1 << log));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
868 next->next = NULL;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
869 next->prev = &_fraghead[log];
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
870 _fraghead[log].next = next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
871
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
872 for (i = 2; i < (__malloc_size_t) (BLOCKSIZE >> log); ++i)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
873 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
874 next = (struct list *) ((char *) result + (i << log));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
875 next->next = _fraghead[log].next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
876 next->prev = &_fraghead[log];
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
877 next->prev->next = next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
878 next->next->prev = next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
879 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
880
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
881 /* Initialize the nfree and first counters for this block. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
882 block = BLOCK (result);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
883 _heapinfo[block].busy.type = log;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
884 _heapinfo[block].busy.info.frag.nfree = i - 1;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
885 _heapinfo[block].busy.info.frag.first = i - 1;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
886
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
887 _chunks_free += (BLOCKSIZE >> log) - 1;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
888 _bytes_free += BLOCKSIZE - (1 << log);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
889 _bytes_used -= BLOCKSIZE - (1 << log);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
890 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
891 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
892 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
893 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
894 /* Large allocation to receive one or more blocks.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
895 Search the free list in a circle starting at the last place visited.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
896 If we loop completely around without finding a large enough
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
897 space we will have to get more memory from the system. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
898 blocks = BLOCKIFY (size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
899 start = block = _heapindex;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
900 while (_heapinfo[block].free.size < blocks)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
901 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
902 block = _heapinfo[block].free.next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
903 if (block == start)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
904 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
905 /* Need to get more from the system. Get a little extra. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
906 __malloc_size_t wantblocks = blocks + __malloc_extra_blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
907 block = _heapinfo[0].free.prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
908 lastblocks = _heapinfo[block].free.size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
909 /* Check to see if the new core will be contiguous with the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
910 final free block; if so we don't need to get as much. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
911 if (_heaplimit != 0 && block + lastblocks == _heaplimit &&
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
912 /* We can't do this if we will have to make the heap info
95236
6e2a8cad250c Spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 91702
diff changeset
913 table bigger to accommodate the new space. */
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
914 block + wantblocks <= heapsize &&
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
915 get_contiguous_space ((wantblocks - lastblocks) * BLOCKSIZE,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
916 ADDRESS (block + lastblocks)))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
917 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
918 /* We got it contiguously. Which block we are extending
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
919 (the `final free block' referred to above) might have
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
920 changed, if it got combined with a freed info table. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
921 block = _heapinfo[0].free.prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
922 _heapinfo[block].free.size += (wantblocks - lastblocks);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
923 _bytes_free += (wantblocks - lastblocks) * BLOCKSIZE;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
924 _heaplimit += wantblocks - lastblocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
925 continue;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
926 }
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
927 result = morecore_nolock (wantblocks * BLOCKSIZE);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
928 if (result == NULL)
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
929 goto out;
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
930 block = BLOCK (result);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
931 /* Put the new block at the end of the free list. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
932 _heapinfo[block].free.size = wantblocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
933 _heapinfo[block].free.prev = _heapinfo[0].free.prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
934 _heapinfo[block].free.next = 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
935 _heapinfo[0].free.prev = block;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
936 _heapinfo[_heapinfo[block].free.prev].free.next = block;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
937 ++_chunks_free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
938 /* Now loop to use some of that block for this allocation. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
939 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
940 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
941
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
942 /* At this point we have found a suitable free list entry.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
943 Figure out how to remove what we need from the list. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
944 result = ADDRESS (block);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
945 if (_heapinfo[block].free.size > blocks)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
946 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
947 /* The block we found has a bit left over,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
948 so relink the tail end back into the free list. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
949 _heapinfo[block + blocks].free.size
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
950 = _heapinfo[block].free.size - blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
951 _heapinfo[block + blocks].free.next
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
952 = _heapinfo[block].free.next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
953 _heapinfo[block + blocks].free.prev
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
954 = _heapinfo[block].free.prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
955 _heapinfo[_heapinfo[block].free.prev].free.next
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
956 = _heapinfo[_heapinfo[block].free.next].free.prev
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
957 = _heapindex = block + blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
958 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
959 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
960 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
961 /* The block exactly matches our requirements,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
962 so just remove it from the list. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
963 _heapinfo[_heapinfo[block].free.next].free.prev
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
964 = _heapinfo[block].free.prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
965 _heapinfo[_heapinfo[block].free.prev].free.next
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
966 = _heapindex = _heapinfo[block].free.next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
967 --_chunks_free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
968 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
969
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
970 _heapinfo[block].busy.type = 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
971 _heapinfo[block].busy.info.size = blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
972 ++_chunks_used;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
973 _bytes_used += blocks * BLOCKSIZE;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
974 _bytes_free -= blocks * BLOCKSIZE;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
975
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
976 /* Mark all the blocks of the object just allocated except for the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
977 first with a negative number so you can find the first block by
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
978 adding that adjustment. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
979 while (--blocks > 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
980 _heapinfo[block + blocks].busy.info.size = -blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
981 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
982
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
983 PROTECT_MALLOC_STATE (1);
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
984 out:
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
985 return result;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
986 }
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
987
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
988 __ptr_t
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
989 _malloc_internal (size)
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
990 __malloc_size_t size;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
991 {
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
992 __ptr_t result;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
993
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
994 LOCK ();
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
995 result = _malloc_internal_nolock (size);
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
996 UNLOCK ();
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
997
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
998 return result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
999 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1000
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1001 __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1002 malloc (size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1003 __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1004 {
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1005 __ptr_t (*hook) (__malloc_size_t);
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1006
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1007 if (!__malloc_initialized && !__malloc_initialize ())
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1008 return NULL;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1009
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1010 /* Copy the value of __malloc_hook to an automatic variable in case
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1011 __malloc_hook is modified in another thread between its
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1012 NULL-check and the use.
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1013
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1014 Note: Strictly speaking, this is not a right solution. We should
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1015 use mutexes to access non-read-only variables that are shared
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1016 among multiple threads. We just leave it for compatibility with
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1017 glibc malloc (i.e., assignments to __malloc_hook) for now. */
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1018 hook = __malloc_hook;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1019 return (hook != NULL ? *hook : _malloc_internal) (size);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1020 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1021
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1022 #ifndef _LIBC
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1023
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1024 /* On some ANSI C systems, some libc functions call _malloc, _free
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1025 and _realloc. Make them use the GNU functions. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1026
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1027 __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1028 _malloc (size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1029 __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1030 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1031 return malloc (size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1032 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1033
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1034 void
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1035 _free (ptr)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1036 __ptr_t ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1037 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1038 free (ptr);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1039 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1040
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1041 __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1042 _realloc (ptr, size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1043 __ptr_t ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1044 __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1045 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1046 return realloc (ptr, size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1047 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1048
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1049 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1050 /* Free a block of memory allocated by `malloc'.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1051 Copyright 1990, 1991, 1992, 1994, 1995 Free Software Foundation, Inc.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1052 Written May 1989 by Mike Haertel.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1053
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1054 This library is free software; you can redistribute it and/or
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1055 modify it under the terms of the GNU General Public License as
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1056 published by the Free Software Foundation; either version 2 of the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1057 License, or (at your option) any later version.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1058
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1059 This library is distributed in the hope that it will be useful,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1060 but WITHOUT ANY WARRANTY; without even the implied warranty of
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1061 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1062 General Public License for more details.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1063
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1064 You should have received a copy of the GNU General Public
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1065 License along with this library; see the file COPYING. If
64092
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1066 not, write to the Free Software Foundation, Inc., 51 Franklin Street,
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1067 Fifth Floor, Boston, MA 02110-1301, USA.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1068
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1069 The author may be reached (Email) at the address mike@ai.mit.edu,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1070 or (US mail) as Mike Haertel c/o Free Software Foundation. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1071
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1072 #ifndef _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1073 #define _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1074 #include <malloc.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1075 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1076
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1077
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1078 /* Cope with systems lacking `memmove'. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1079 #ifndef memmove
91702
b7a5a89054dc * configure.in (LIBX11_MACHINE, HAVE_XFREE386): Remove code
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82335
diff changeset
1080 #if (!defined(_LIBC) && !defined(STDC_HEADERS) && !defined(USG))
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1081 #ifdef emacs
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1082 #undef __malloc_safe_bcopy
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1083 #define __malloc_safe_bcopy safe_bcopy
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1084 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1085 /* This function is defined in realloc.c. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
1086 extern void __malloc_safe_bcopy PP ((__ptr_t, __ptr_t, __malloc_size_t));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1087 #define memmove(to, from, size) __malloc_safe_bcopy ((from), (to), (size))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1088 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1089 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1090
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1091
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1092 /* Debugging hook for free. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
1093 void (*__free_hook) PP ((__ptr_t __ptr));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1094
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1095 /* List of blocks allocated by memalign. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1096 struct alignlist *_aligned_blocks = NULL;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1097
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1098 /* Return memory to the heap.
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1099 Like `_free_internal' but don't lock mutex. */
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1100 void
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1101 _free_internal_nolock (ptr)
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1102 __ptr_t ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1103 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1104 int type;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1105 __malloc_size_t block, blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1106 register __malloc_size_t i;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1107 struct list *prev, *next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1108 __ptr_t curbrk;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1109 const __malloc_size_t lesscore_threshold
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1110 /* Threshold of free space at which we will return some to the system. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1111 = FINAL_FREE_BLOCKS + 2 * __malloc_extra_blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1112
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1113 register struct alignlist *l;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1114
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1115 if (ptr == NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1116 return;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1117
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
1118 PROTECT_MALLOC_STATE (0);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 40670
diff changeset
1119
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1120 LOCK_ALIGNED_BLOCKS ();
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1121 for (l = _aligned_blocks; l != NULL; l = l->next)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1122 if (l->aligned == ptr)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1123 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1124 l->aligned = NULL; /* Mark the slot in the list as free. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1125 ptr = l->exact;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1126 break;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1127 }
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1128 UNLOCK_ALIGNED_BLOCKS ();
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1129
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1130 block = BLOCK (ptr);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1131
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1132 type = _heapinfo[block].busy.type;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1133 switch (type)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1134 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1135 case 0:
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1136 /* Get as many statistics as early as we can. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1137 --_chunks_used;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1138 _bytes_used -= _heapinfo[block].busy.info.size * BLOCKSIZE;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1139 _bytes_free += _heapinfo[block].busy.info.size * BLOCKSIZE;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1140
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1141 /* Find the free cluster previous to this one in the free list.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1142 Start searching at the last block referenced; this may benefit
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1143 programs with locality of allocation. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1144 i = _heapindex;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1145 if (i > block)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1146 while (i > block)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1147 i = _heapinfo[i].free.prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1148 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1149 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1150 do
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1151 i = _heapinfo[i].free.next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1152 while (i > 0 && i < block);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1153 i = _heapinfo[i].free.prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1154 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1155
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1156 /* Determine how to link this block into the free list. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1157 if (block == i + _heapinfo[i].free.size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1158 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1159 /* Coalesce this block with its predecessor. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1160 _heapinfo[i].free.size += _heapinfo[block].busy.info.size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1161 block = i;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1162 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1163 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1164 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1165 /* Really link this block back into the free list. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1166 _heapinfo[block].free.size = _heapinfo[block].busy.info.size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1167 _heapinfo[block].free.next = _heapinfo[i].free.next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1168 _heapinfo[block].free.prev = i;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1169 _heapinfo[i].free.next = block;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1170 _heapinfo[_heapinfo[block].free.next].free.prev = block;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1171 ++_chunks_free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1172 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1173
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1174 /* Now that the block is linked in, see if we can coalesce it
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1175 with its successor (by deleting its successor from the list
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1176 and adding in its size). */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1177 if (block + _heapinfo[block].free.size == _heapinfo[block].free.next)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1178 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1179 _heapinfo[block].free.size
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1180 += _heapinfo[_heapinfo[block].free.next].free.size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1181 _heapinfo[block].free.next
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1182 = _heapinfo[_heapinfo[block].free.next].free.next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1183 _heapinfo[_heapinfo[block].free.next].free.prev = block;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1184 --_chunks_free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1185 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1186
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1187 /* How many trailing free blocks are there now? */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1188 blocks = _heapinfo[block].free.size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1189
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1190 /* Where is the current end of accessible core? */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1191 curbrk = (*__morecore) (0);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1192
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1193 if (_heaplimit != 0 && curbrk == ADDRESS (_heaplimit))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1194 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1195 /* The end of the malloc heap is at the end of accessible core.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1196 It's possible that moving _heapinfo will allow us to
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1197 return some space to the system. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1198
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1199 __malloc_size_t info_block = BLOCK (_heapinfo);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1200 __malloc_size_t info_blocks = _heapinfo[info_block].busy.info.size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1201 __malloc_size_t prev_block = _heapinfo[block].free.prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1202 __malloc_size_t prev_blocks = _heapinfo[prev_block].free.size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1203 __malloc_size_t next_block = _heapinfo[block].free.next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1204 __malloc_size_t next_blocks = _heapinfo[next_block].free.size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1205
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1206 if (/* Win if this block being freed is last in core, the info table
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1207 is just before it, the previous free block is just before the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1208 info table, and the two free blocks together form a useful
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1209 amount to return to the system. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1210 (block + blocks == _heaplimit &&
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1211 info_block + info_blocks == block &&
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1212 prev_block != 0 && prev_block + prev_blocks == info_block &&
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1213 blocks + prev_blocks >= lesscore_threshold) ||
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1214 /* Nope, not the case. We can also win if this block being
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1215 freed is just before the info table, and the table extends
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1216 to the end of core or is followed only by a free block,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1217 and the total free space is worth returning to the system. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1218 (block + blocks == info_block &&
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1219 ((info_block + info_blocks == _heaplimit &&
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1220 blocks >= lesscore_threshold) ||
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1221 (info_block + info_blocks == next_block &&
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1222 next_block + next_blocks == _heaplimit &&
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1223 blocks + next_blocks >= lesscore_threshold)))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1224 )
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1225 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1226 malloc_info *newinfo;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1227 __malloc_size_t oldlimit = _heaplimit;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1228
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1229 /* Free the old info table, clearing _heaplimit to avoid
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1230 recursion into this code. We don't want to return the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1231 table's blocks to the system before we have copied them to
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1232 the new location. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1233 _heaplimit = 0;
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1234 _free_internal_nolock (_heapinfo);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1235 _heaplimit = oldlimit;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1236
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1237 /* Tell malloc to search from the beginning of the heap for
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1238 free blocks, so it doesn't reuse the ones just freed. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1239 _heapindex = 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1240
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1241 /* Allocate new space for the info table and move its data. */
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1242 newinfo = (malloc_info *) _malloc_internal_nolock (info_blocks
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1243 * BLOCKSIZE);
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
1244 PROTECT_MALLOC_STATE (0);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1245 memmove (newinfo, _heapinfo, info_blocks * BLOCKSIZE);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1246 _heapinfo = newinfo;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1247
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1248 /* We should now have coalesced the free block with the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1249 blocks freed from the old info table. Examine the entire
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1250 trailing free block to decide below whether to return some
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1251 to the system. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1252 block = _heapinfo[0].free.prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1253 blocks = _heapinfo[block].free.size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1254 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1255
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1256 /* Now see if we can return stuff to the system. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1257 if (block + blocks == _heaplimit && blocks >= lesscore_threshold)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1258 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1259 register __malloc_size_t bytes = blocks * BLOCKSIZE;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1260 _heaplimit -= blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1261 (*__morecore) (-bytes);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1262 _heapinfo[_heapinfo[block].free.prev].free.next
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1263 = _heapinfo[block].free.next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1264 _heapinfo[_heapinfo[block].free.next].free.prev
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1265 = _heapinfo[block].free.prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1266 block = _heapinfo[block].free.prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1267 --_chunks_free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1268 _bytes_free -= bytes;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1269 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1270 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1271
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1272 /* Set the next search to begin at this block. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1273 _heapindex = block;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1274 break;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1275
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1276 default:
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1277 /* Do some of the statistics. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1278 --_chunks_used;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1279 _bytes_used -= 1 << type;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1280 ++_chunks_free;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1281 _bytes_free += 1 << type;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1282
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1283 /* Get the address of the first free fragment in this block. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1284 prev = (struct list *) ((char *) ADDRESS (block) +
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1285 (_heapinfo[block].busy.info.frag.first << type));
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1286
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1287 if (_heapinfo[block].busy.info.frag.nfree == (BLOCKSIZE >> type) - 1)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1288 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1289 /* If all fragments of this block are free, remove them
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1290 from the fragment list and free the whole block. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1291 next = prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1292 for (i = 1; i < (__malloc_size_t) (BLOCKSIZE >> type); ++i)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1293 next = next->next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1294 prev->prev->next = next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1295 if (next != NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1296 next->prev = prev->prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1297 _heapinfo[block].busy.type = 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1298 _heapinfo[block].busy.info.size = 1;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1299
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1300 /* Keep the statistics accurate. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1301 ++_chunks_used;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1302 _bytes_used += BLOCKSIZE;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1303 _chunks_free -= BLOCKSIZE >> type;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1304 _bytes_free -= BLOCKSIZE;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1305
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1306 #if defined (GC_MALLOC_CHECK) || defined (USE_PTHREAD)
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1307 _free_internal_nolock (ADDRESS (block));
32693
8223a86fa594 (_malloc_internal) [GC_MALLOC_CHECK]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 29837
diff changeset
1308 #else
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1309 free (ADDRESS (block));
32693
8223a86fa594 (_malloc_internal) [GC_MALLOC_CHECK]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 29837
diff changeset
1310 #endif
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1311 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1312 else if (_heapinfo[block].busy.info.frag.nfree != 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1313 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1314 /* If some fragments of this block are free, link this
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1315 fragment into the fragment list after the first free
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1316 fragment of this block. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1317 next = (struct list *) ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1318 next->next = prev->next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1319 next->prev = prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1320 prev->next = next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1321 if (next->next != NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1322 next->next->prev = next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1323 ++_heapinfo[block].busy.info.frag.nfree;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1324 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1325 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1326 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1327 /* No fragments of this block are free, so link this
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1328 fragment into the fragment list and announce that
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1329 it is the first free fragment of this block. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1330 prev = (struct list *) ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1331 _heapinfo[block].busy.info.frag.nfree = 1;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1332 _heapinfo[block].busy.info.frag.first = (unsigned long int)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1333 ((unsigned long int) ((char *) ptr - (char *) NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1334 % BLOCKSIZE >> type);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1335 prev->next = _fraghead[type].next;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1336 prev->prev = &_fraghead[type];
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1337 prev->prev->next = prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1338 if (prev->next != NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1339 prev->next->prev = prev;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1340 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1341 break;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1342 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 40670
diff changeset
1343
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
1344 PROTECT_MALLOC_STATE (1);
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1345 }
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1346
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1347 /* Return memory to the heap.
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1348 Like `free' but don't call a __free_hook if there is one. */
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1349 void
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1350 _free_internal (ptr)
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1351 __ptr_t ptr;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1352 {
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1353 LOCK ();
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1354 _free_internal_nolock (ptr);
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
1355 UNLOCK ();
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1356 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1357
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1358 /* Return memory to the heap. */
26526
b7438760079b * callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents: 26088
diff changeset
1359
91702
b7a5a89054dc * configure.in (LIBX11_MACHINE, HAVE_XFREE386): Remove code
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82335
diff changeset
1360 void
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1361 free (ptr)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1362 __ptr_t ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1363 {
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1364 void (*hook) (__ptr_t) = __free_hook;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1365
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1366 if (hook != NULL)
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1367 (*hook) (ptr);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1368 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1369 _free_internal (ptr);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1370 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1371
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1372 /* Define the `cfree' alias for `free'. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1373 #ifdef weak_alias
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1374 weak_alias (free, cfree)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1375 #else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1376 void
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1377 cfree (ptr)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1378 __ptr_t ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1379 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1380 free (ptr);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1381 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1382 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1383 /* Change the size of a block allocated by `malloc'.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1384 Copyright 1990, 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1385 Written May 1989 by Mike Haertel.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1386
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1387 This library is free software; you can redistribute it and/or
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1388 modify it under the terms of the GNU General Public License as
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1389 published by the Free Software Foundation; either version 2 of the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1390 License, or (at your option) any later version.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1391
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1392 This library is distributed in the hope that it will be useful,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1393 but WITHOUT ANY WARRANTY; without even the implied warranty of
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1394 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1395 General Public License for more details.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1396
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1397 You should have received a copy of the GNU General Public
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1398 License along with this library; see the file COPYING. If
64092
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1399 not, write to the Free Software Foundation, Inc., 51 Franklin Street,
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1400 Fifth Floor, Boston, MA 02110-1301, USA.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1401
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1402 The author may be reached (Email) at the address mike@ai.mit.edu,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1403 or (US mail) as Mike Haertel c/o Free Software Foundation. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1404
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1405 #ifndef _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1406 #define _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1407 #include <malloc.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1408 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1409
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1410
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1411
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1412 /* Cope with systems lacking `memmove'. */
91702
b7a5a89054dc * configure.in (LIBX11_MACHINE, HAVE_XFREE386): Remove code
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82335
diff changeset
1413 #if (!defined(_LIBC) && !defined(STDC_HEADERS) && !defined(USG))
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1414
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1415 #ifdef emacs
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1416 #undef __malloc_safe_bcopy
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1417 #define __malloc_safe_bcopy safe_bcopy
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1418 #else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1419
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1420 /* Snarfed directly from Emacs src/dispnew.c:
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1421 XXX Should use system bcopy if it handles overlap. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1422
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1423 /* Like bcopy except never gets confused by overlap. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1424
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1425 void
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1426 __malloc_safe_bcopy (afrom, ato, size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1427 __ptr_t afrom;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1428 __ptr_t ato;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1429 __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1430 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1431 char *from = afrom, *to = ato;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1432
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1433 if (size <= 0 || from == to)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1434 return;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1435
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1436 /* If the source and destination don't overlap, then bcopy can
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1437 handle it. If they do overlap, but the destination is lower in
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1438 memory than the source, we'll assume bcopy can handle that. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1439 if (to < from || from + size <= to)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1440 bcopy (from, to, size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1441
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1442 /* Otherwise, we'll copy from the end. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1443 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1444 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1445 register char *endf = from + size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1446 register char *endt = to + size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1447
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1448 /* If TO - FROM is large, then we should break the copy into
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1449 nonoverlapping chunks of TO - FROM bytes each. However, if
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1450 TO - FROM is small, then the bcopy function call overhead
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1451 makes this not worth it. The crossover point could be about
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1452 anywhere. Since I don't think the obvious copy loop is too
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1453 bad, I'm trying to err in its favor. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1454 if (to - from < 64)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1455 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1456 do
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1457 *--endt = *--endf;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1458 while (endf != from);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1459 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1460 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1461 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1462 for (;;)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1463 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1464 endt -= (to - from);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1465 endf -= (to - from);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1466
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1467 if (endt < to)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1468 break;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1469
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1470 bcopy (endf, endt, to - from);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1471 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1472
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1473 /* If SIZE wasn't a multiple of TO - FROM, there will be a
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1474 little left over. The amount left over is
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1475 (endt + (to - from)) - to, which is endt - from. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1476 bcopy (from, to, endt - from);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1477 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1478 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1479 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1480 #endif /* emacs */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1481
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1482 #ifndef memmove
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
1483 extern void __malloc_safe_bcopy PP ((__ptr_t, __ptr_t, __malloc_size_t));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1484 #define memmove(to, from, size) __malloc_safe_bcopy ((from), (to), (size))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1485 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1486
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1487 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1488
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1489
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1490 #define min(A, B) ((A) < (B) ? (A) : (B))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1491
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1492 /* Debugging hook for realloc. */
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
1493 __ptr_t (*__realloc_hook) PP ((__ptr_t __ptr, __malloc_size_t __size));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1494
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1495 /* Resize the given region to the new size, returning a pointer
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1496 to the (possibly moved) region. This is optimized for speed;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1497 some benchmarks seem to indicate that greater compactness is
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1498 achieved by unconditionally allocating and copying to a
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1499 new region. This module has incestuous knowledge of the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1500 internals of both free and malloc. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1501 __ptr_t
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1502 _realloc_internal_nolock (ptr, size)
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1503 __ptr_t ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1504 __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1505 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1506 __ptr_t result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1507 int type;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1508 __malloc_size_t block, blocks, oldlimit;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1509
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1510 if (size == 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1511 {
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1512 _free_internal_nolock (ptr);
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1513 return _malloc_internal_nolock (0);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1514 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1515 else if (ptr == NULL)
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1516 return _malloc_internal_nolock (size);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1517
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1518 block = BLOCK (ptr);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1519
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
1520 PROTECT_MALLOC_STATE (0);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 40670
diff changeset
1521
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1522 type = _heapinfo[block].busy.type;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1523 switch (type)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1524 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1525 case 0:
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1526 /* Maybe reallocate a large block to a small fragment. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1527 if (size <= BLOCKSIZE / 2)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1528 {
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1529 result = _malloc_internal_nolock (size);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1530 if (result != NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1531 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1532 memcpy (result, ptr, size);
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1533 _free_internal_nolock (ptr);
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
1534 goto out;
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1535 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1536 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1537
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1538 /* The new size is a large allocation as well;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1539 see if we can hold it in place. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1540 blocks = BLOCKIFY (size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1541 if (blocks < _heapinfo[block].busy.info.size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1542 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1543 /* The new size is smaller; return
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1544 excess memory to the free list. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1545 _heapinfo[block + blocks].busy.type = 0;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1546 _heapinfo[block + blocks].busy.info.size
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1547 = _heapinfo[block].busy.info.size - blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1548 _heapinfo[block].busy.info.size = blocks;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1549 /* We have just created a new chunk by splitting a chunk in two.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1550 Now we will free this chunk; increment the statistics counter
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1551 so it doesn't become wrong when _free_internal decrements it. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1552 ++_chunks_used;
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1553 _free_internal_nolock (ADDRESS (block + blocks));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1554 result = ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1555 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1556 else if (blocks == _heapinfo[block].busy.info.size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1557 /* No size change necessary. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1558 result = ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1559 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1560 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1561 /* Won't fit, so allocate a new region that will.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1562 Free the old region first in case there is sufficient
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1563 adjacent free space to grow without moving. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1564 blocks = _heapinfo[block].busy.info.size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1565 /* Prevent free from actually returning memory to the system. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1566 oldlimit = _heaplimit;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1567 _heaplimit = 0;
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1568 _free_internal_nolock (ptr);
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1569 result = _malloc_internal_nolock (size);
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
1570 PROTECT_MALLOC_STATE (0);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1571 if (_heaplimit == 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1572 _heaplimit = oldlimit;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1573 if (result == NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1574 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1575 /* Now we're really in trouble. We have to unfree
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1576 the thing we just freed. Unfortunately it might
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1577 have been coalesced with its neighbors. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1578 if (_heapindex == block)
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1579 (void) _malloc_internal_nolock (blocks * BLOCKSIZE);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1580 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1581 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1582 __ptr_t previous
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1583 = _malloc_internal_nolock ((block - _heapindex) * BLOCKSIZE);
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1584 (void) _malloc_internal_nolock (blocks * BLOCKSIZE);
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1585 _free_internal_nolock (previous);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1586 }
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
1587 goto out;
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1588 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1589 if (ptr != result)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1590 memmove (result, ptr, blocks * BLOCKSIZE);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1591 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1592 break;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1593
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1594 default:
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1595 /* Old size is a fragment; type is logarithm
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1596 to base two of the fragment size. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1597 if (size > (__malloc_size_t) (1 << (type - 1)) &&
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1598 size <= (__malloc_size_t) (1 << type))
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1599 /* The new size is the same kind of fragment. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1600 result = ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1601 else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1602 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1603 /* The new size is different; allocate a new space,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1604 and copy the lesser of the new size and the old. */
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1605 result = _malloc_internal_nolock (size);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1606 if (result == NULL)
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
1607 goto out;
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1608 memcpy (result, ptr, min (size, (__malloc_size_t) 1 << type));
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1609 _free_internal_nolock (ptr);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1610 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1611 break;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1612 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1613
32821
08e5ab6d998f (state_protected_p, last_state_size, last_heapinfo)
Gerd Moellmann <gerd@gnu.org>
parents: 32693
diff changeset
1614 PROTECT_MALLOC_STATE (1);
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
1615 out:
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1616 return result;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1617 }
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1618
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1619 __ptr_t
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1620 _realloc_internal (ptr, size)
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1621 __ptr_t ptr;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1622 __malloc_size_t size;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1623 {
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1624 __ptr_t result;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1625
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1626 LOCK();
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1627 result = _realloc_internal_nolock (ptr, size);
76776
2bb28b957639 [HAVE_GTK_AND_PTHREAD]: Define USE_PTHREAD.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
1628 UNLOCK ();
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1629
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1630 return result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1631 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1632
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1633 __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1634 realloc (ptr, size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1635 __ptr_t ptr;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1636 __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1637 {
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1638 __ptr_t (*hook) (__ptr_t, __malloc_size_t);
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1639
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1640 if (!__malloc_initialized && !__malloc_initialize ())
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1641 return NULL;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1642
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1643 hook = __realloc_hook;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1644 return (hook != NULL ? *hook : _realloc_internal) (ptr, size);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1645 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1646 /* Copyright (C) 1991, 1992, 1994 Free Software Foundation, Inc.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1647
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1648 This library is free software; you can redistribute it and/or
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1649 modify it under the terms of the GNU General Public License as
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1650 published by the Free Software Foundation; either version 2 of the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1651 License, or (at your option) any later version.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1652
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1653 This library is distributed in the hope that it will be useful,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1654 but WITHOUT ANY WARRANTY; without even the implied warranty of
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1655 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1656 General Public License for more details.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1657
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1658 You should have received a copy of the GNU General Public
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1659 License along with this library; see the file COPYING. If
64092
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1660 not, write to the Free Software Foundation, Inc., 51 Franklin Street,
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1661 Fifth Floor, Boston, MA 02110-1301, USA.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1662
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1663 The author may be reached (Email) at the address mike@ai.mit.edu,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1664 or (US mail) as Mike Haertel c/o Free Software Foundation. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1665
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1666 #ifndef _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1667 #define _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1668 #include <malloc.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1669 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1670
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1671 /* Allocate an array of NMEMB elements each SIZE bytes long.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1672 The entire array is initialized to zeros. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1673 __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1674 calloc (nmemb, size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1675 register __malloc_size_t nmemb;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1676 register __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1677 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1678 register __ptr_t result = malloc (nmemb * size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1679
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1680 if (result != NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1681 (void) memset (result, 0, nmemb * size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1682
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1683 return result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1684 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1685 /* Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1686 This file is part of the GNU C Library.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1687
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1688 The GNU C Library is free software; you can redistribute it and/or modify
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1689 it under the terms of the GNU General Public License as published by
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1690 the Free Software Foundation; either version 2, or (at your option)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1691 any later version.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1692
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1693 The GNU C Library is distributed in the hope that it will be useful,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1694 but WITHOUT ANY WARRANTY; without even the implied warranty of
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1695 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1696 GNU General Public License for more details.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1697
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1698 You should have received a copy of the GNU General Public License
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1699 along with the GNU C Library; see the file COPYING. If not, write to
64092
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1700 the Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston,
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1701 MA 02110-1301, USA. */
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1702
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1703 #ifndef _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1704 #define _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1705 #include <malloc.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1706 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1707
98455
876b289a899e * gmalloc.c (__sbrk): Also define for uClibc.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 95236
diff changeset
1708 /* uClibc defines __GNU_LIBRARY__, but it is not completely
876b289a899e * gmalloc.c (__sbrk): Also define for uClibc.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 95236
diff changeset
1709 compatible. */
876b289a899e * gmalloc.c (__sbrk): Also define for uClibc.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 95236
diff changeset
1710 #if !defined(__GNU_LIBRARY__) || defined(__UCLIBC__)
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1711 #define __sbrk sbrk
98455
876b289a899e * gmalloc.c (__sbrk): Also define for uClibc.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 95236
diff changeset
1712 #else /* __GNU_LIBRARY__ && ! defined (__UCLIBC__) */
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1713 /* It is best not to declare this and cast its result on foreign operating
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1714 systems with potentially hostile include files. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1715
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1716 #include <stddef.h>
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
1717 extern __ptr_t __sbrk PP ((ptrdiff_t increment));
98455
876b289a899e * gmalloc.c (__sbrk): Also define for uClibc.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 95236
diff changeset
1718 #endif /* __GNU_LIBRARY__ && ! defined (__UCLIBC__) */
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1719
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1720 #ifndef NULL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1721 #define NULL 0
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1722 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1723
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1724 /* Allocate INCREMENT more bytes of data space,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1725 and return the start of data space, or NULL on errors.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1726 If INCREMENT is negative, shrink data space. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1727 __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1728 __default_morecore (increment)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1729 __malloc_ptrdiff_t increment;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1730 {
54824
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1731 __ptr_t result;
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1732 #if defined(CYGWIN)
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1733 if (!bss_sbrk_did_unexec)
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1734 {
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1735 return bss_sbrk (increment);
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1736 }
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1737 #endif
54395b0b6779 (__default_morecore): Use bss_sbrk(), not __sbrk(), before Cygwin unexec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1738 result = (__ptr_t) __sbrk (increment);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1739 if (result == (__ptr_t) -1)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1740 return NULL;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1741 return result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1742 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1743 /* Copyright (C) 1991, 92, 93, 94, 95, 96 Free Software Foundation, Inc.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1744
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1745 This library is free software; you can redistribute it and/or
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1746 modify it under the terms of the GNU General Public License as
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1747 published by the Free Software Foundation; either version 2 of the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1748 License, or (at your option) any later version.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1749
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1750 This library is distributed in the hope that it will be useful,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1751 but WITHOUT ANY WARRANTY; without even the implied warranty of
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1752 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1753 General Public License for more details.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1754
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1755 You should have received a copy of the GNU General Public
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1756 License along with this library; see the file COPYING. If
64092
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1757 not, write to the Free Software Foundation, Inc., 51 Franklin Street,
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1758 Fifth Floor, Boston, MA 02110-1301, USA. */
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1759
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1760 #ifndef _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1761 #define _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1762 #include <malloc.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1763 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1764
37372
46942d9e7537 (__malloc_size_t) [__GNUC__]: If STDC_HEADERS is not
Eli Zaretskii <eliz@gnu.org>
parents: 37268
diff changeset
1765 __ptr_t (*__memalign_hook) PP ((__malloc_size_t __size,
46942d9e7537 (__malloc_size_t) [__GNUC__]: If STDC_HEADERS is not
Eli Zaretskii <eliz@gnu.org>
parents: 37268
diff changeset
1766 __malloc_size_t __alignment));
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1767
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1768 __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1769 memalign (alignment, size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1770 __malloc_size_t alignment;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1771 __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1772 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1773 __ptr_t result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1774 unsigned long int adj, lastadj;
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1775 __ptr_t (*hook) (__malloc_size_t, __malloc_size_t) = __memalign_hook;
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1776
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1777 if (hook)
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1778 return (*hook) (alignment, size);
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1779
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1780 /* Allocate a block with enough extra space to pad the block with up to
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1781 (ALIGNMENT - 1) bytes if necessary. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1782 result = malloc (size + alignment - 1);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1783 if (result == NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1784 return NULL;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1785
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1786 /* Figure out how much we will need to pad this particular block
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1787 to achieve the required alignment. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1788 adj = (unsigned long int) ((char *) result - (char *) NULL) % alignment;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1789
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1790 do
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1791 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1792 /* Reallocate the block with only as much excess as it needs. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1793 free (result);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1794 result = malloc (adj + size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1795 if (result == NULL) /* Impossible unless interrupted. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1796 return NULL;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1797
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1798 lastadj = adj;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1799 adj = (unsigned long int) ((char *) result - (char *) NULL) % alignment;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1800 /* It's conceivable we might have been so unlucky as to get a
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1801 different block with weaker alignment. If so, this block is too
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1802 short to contain SIZE after alignment correction. So we must
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1803 try again and get another block, slightly larger. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1804 } while (adj > lastadj);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1805
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1806 if (adj != 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1807 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1808 /* Record this block in the list of aligned blocks, so that `free'
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1809 can identify the pointer it is passed, which will be in the middle
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1810 of an allocated block. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1811
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1812 struct alignlist *l;
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1813 LOCK_ALIGNED_BLOCKS ();
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1814 for (l = _aligned_blocks; l != NULL; l = l->next)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1815 if (l->aligned == NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1816 /* This slot is free. Use it. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1817 break;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1818 if (l == NULL)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1819 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1820 l = (struct alignlist *) malloc (sizeof (struct alignlist));
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1821 if (l != NULL)
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1822 {
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1823 l->next = _aligned_blocks;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1824 _aligned_blocks = l;
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1825 }
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1826 }
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1827 if (l != NULL)
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1828 {
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1829 l->exact = result;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1830 result = l->aligned = (char *) result + alignment - adj;
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1831 }
81615
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1832 UNLOCK_ALIGNED_BLOCKS ();
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1833 if (l == NULL)
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1834 {
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1835 free (result);
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1836 result = NULL;
059caeb1f502 [HAVE_GTK_AND_PTHREAD] Check this after including config.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 81500
diff changeset
1837 }
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1838 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1839
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1840 return result;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1841 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1842
82335
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1843 #ifndef ENOMEM
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1844 #define ENOMEM 12
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1845 #endif
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1846
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1847 #ifndef EINVAL
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1848 #define EINVAL 22
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1849 #endif
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1850
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1851 int
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1852 posix_memalign (memptr, alignment, size)
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1853 __ptr_t *memptr;
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1854 __malloc_size_t alignment;
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1855 __malloc_size_t size;
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1856 {
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1857 __ptr_t mem;
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1858
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1859 if (alignment == 0
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1860 || alignment % sizeof (__ptr_t) != 0
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1861 || (alignment & (alignment - 1)) != 0)
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1862 return EINVAL;
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1863
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1864 mem = memalign (alignment, size);
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1865 if (mem == NULL)
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1866 return ENOMEM;
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1867
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1868 *memptr = mem;
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1869
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1870 return 0;
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1871 }
310b4cdcc703 (posix_memalign): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 82308
diff changeset
1872
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1873 /* Allocate memory on a page boundary.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1874 Copyright (C) 1991, 92, 93, 94, 96 Free Software Foundation, Inc.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1875
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1876 This library is free software; you can redistribute it and/or
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1877 modify it under the terms of the GNU General Public License as
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1878 published by the Free Software Foundation; either version 2 of the
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1879 License, or (at your option) any later version.
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1880
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1881 This library is distributed in the hope that it will be useful,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1882 but WITHOUT ANY WARRANTY; without even the implied warranty of
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1883 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1884 General Public License for more details.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1885
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1886 You should have received a copy of the GNU General Public
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1887 License along with this library; see the file COPYING. If
64092
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1888 not, write to the Free Software Foundation, Inc., 51 Franklin Street,
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1889 Fifth Floor, Boston, MA 02110-1301, USA.
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1890
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1891 The author may be reached (Email) at the address mike@ai.mit.edu,
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1892 or (US mail) as Mike Haertel c/o Free Software Foundation. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1893
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1894 #if defined (_MALLOC_INTERNAL) && defined (GMALLOC_INHIBIT_VALLOC)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1895
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1896 /* Emacs defines GMALLOC_INHIBIT_VALLOC to avoid this definition
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1897 on MSDOS, where it conflicts with a system header file. */
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1898
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1899 #define ELIDE_VALLOC
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1900
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1901 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1902
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1903 #ifndef ELIDE_VALLOC
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1904
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1905 #if defined (__GNU_LIBRARY__) || defined (_LIBC)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1906 #include <stddef.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1907 #include <sys/cdefs.h>
17131
6ff1e0aec51e [__GLIBC__ >= 2]: Don't declare __getpagesize.
Karl Heuer <kwzh@gnu.org>
parents: 17130
diff changeset
1908 #if defined (__GLIBC__) && __GLIBC__ >= 2
6ff1e0aec51e [__GLIBC__ >= 2]: Don't declare __getpagesize.
Karl Heuer <kwzh@gnu.org>
parents: 17130
diff changeset
1909 /* __getpagesize is already declared in <unistd.h> with return type int */
6ff1e0aec51e [__GLIBC__ >= 2]: Don't declare __getpagesize.
Karl Heuer <kwzh@gnu.org>
parents: 17130
diff changeset
1910 #else
18667
d4f53287fc5b Rename macro __P to PP.
Richard M. Stallman <rms@gnu.org>
parents: 17131
diff changeset
1911 extern size_t __getpagesize PP ((void));
17131
6ff1e0aec51e [__GLIBC__ >= 2]: Don't declare __getpagesize.
Karl Heuer <kwzh@gnu.org>
parents: 17130
diff changeset
1912 #endif
17130
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1913 #else
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1914 #include "getpagesize.h"
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1915 #define __getpagesize() getpagesize()
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1916 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1917
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1918 #ifndef _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1919 #define _MALLOC_INTERNAL
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1920 #include <malloc.h>
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1921 #endif
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1922
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1923 static __malloc_size_t pagesize;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1924
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1925 __ptr_t
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1926 valloc (size)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1927 __malloc_size_t size;
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1928 {
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1929 if (pagesize == 0)
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1930 pagesize = __getpagesize ();
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1931
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1932 return memalign (pagesize, size);
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1933 }
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1934
533840a0a5ae Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1935 #endif /* Not ELIDE_VALLOC. */
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1936
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1937 #ifdef GC_MCHECK
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1938
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1939 /* Standard debugging hooks for `malloc'.
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1940 Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1941 Written May 1989 by Mike Haertel.
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1942
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1943 This library is free software; you can redistribute it and/or
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1944 modify it under the terms of the GNU General Public License as
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1945 published by the Free Software Foundation; either version 2 of the
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1946 License, or (at your option) any later version.
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1947
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1948 This library is distributed in the hope that it will be useful,
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1949 but WITHOUT ANY WARRANTY; without even the implied warranty of
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1950 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1951 General Public License for more details.
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1952
72951
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1953 You should have received a copy of the GNU General Public
751c24f0ec88 Replace "GNU Library General Public License" by "GNU General Public
Jay Belanger <jay.p.belanger@gmail.com>
parents: 68651
diff changeset
1954 License along with this library; see the file COPYING. If
64092
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1955 not, write to the Free Software Foundation, Inc., 51 Franklin Street,
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54824
diff changeset
1956 Fifth Floor, Boston, MA 02110-1301, USA.
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1957
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1958 The author may be reached (Email) at the address mike@ai.mit.edu,
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1959 or (US mail) as Mike Haertel c/o Free Software Foundation. */
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1960
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1961 #ifdef emacs
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1962 #include <stdio.h>
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1963 #else
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1964 #ifndef _MALLOC_INTERNAL
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1965 #define _MALLOC_INTERNAL
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1966 #include <malloc.h>
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1967 #include <stdio.h>
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1968 #endif
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1969 #endif
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1970
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1971 /* Old hook values. */
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108860
diff changeset
1972 static void (*old_free_hook) (__ptr_t ptr);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108860
diff changeset
1973 static __ptr_t (*old_malloc_hook) (__malloc_size_t size);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108860
diff changeset
1974 static __ptr_t (*old_realloc_hook) (__ptr_t ptr, __malloc_size_t size);
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1975
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1976 /* Function to call when something awful happens. */
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108860
diff changeset
1977 static void (*abortfunc) (enum mcheck_status);
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1978
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1979 /* Arbitrary magical numbers. */
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1980 #define MAGICWORD 0xfedabeeb
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1981 #define MAGICFREE 0xd8675309
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1982 #define MAGICBYTE ((char) 0xd7)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1983 #define MALLOCFLOOD ((char) 0x93)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1984 #define FREEFLOOD ((char) 0x95)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1985
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1986 struct hdr
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1987 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1988 __malloc_size_t size; /* Exact size requested by user. */
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1989 unsigned long int magic; /* Magic number to check header integrity. */
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1990 };
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1991
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1992 #if defined(_LIBC) || defined(STDC_HEADERS) || defined(USG)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1993 #define flood memset
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1994 #else
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108860
diff changeset
1995 static void flood (__ptr_t, int, __malloc_size_t);
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1996 static void
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1997 flood (ptr, val, size)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1998 __ptr_t ptr;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
1999 int val;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2000 __malloc_size_t size;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2001 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2002 char *cp = ptr;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2003 while (size--)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2004 *cp++ = val;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2005 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2006 #endif
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2007
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108860
diff changeset
2008 static enum mcheck_status checkhdr (const struct hdr *);
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2009 static enum mcheck_status
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2010 checkhdr (hdr)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2011 const struct hdr *hdr;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2012 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2013 enum mcheck_status status;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2014 switch (hdr->magic)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2015 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2016 default:
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2017 status = MCHECK_HEAD;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2018 break;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2019 case MAGICFREE:
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2020 status = MCHECK_FREE;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2021 break;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2022 case MAGICWORD:
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2023 if (((char *) &hdr[1])[hdr->size] != MAGICBYTE)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2024 status = MCHECK_TAIL;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2025 else
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2026 status = MCHECK_OK;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2027 break;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2028 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2029 if (status != MCHECK_OK)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2030 (*abortfunc) (status);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2031 return status;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2032 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2033
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108860
diff changeset
2034 static void freehook (__ptr_t);
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2035 static void
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2036 freehook (ptr)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2037 __ptr_t ptr;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2038 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2039 struct hdr *hdr;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 40670
diff changeset
2040
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2041 if (ptr)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2042 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2043 hdr = ((struct hdr *) ptr) - 1;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2044 checkhdr (hdr);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2045 hdr->magic = MAGICFREE;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2046 flood (ptr, FREEFLOOD, hdr->size);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2047 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2048 else
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2049 hdr = NULL;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 40670
diff changeset
2050
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2051 __free_hook = old_free_hook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2052 free (hdr);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2053 __free_hook = freehook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2054 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2055
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108860
diff changeset
2056 static __ptr_t mallochook (__malloc_size_t);
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2057 static __ptr_t
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2058 mallochook (size)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2059 __malloc_size_t size;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2060 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2061 struct hdr *hdr;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2062
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2063 __malloc_hook = old_malloc_hook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2064 hdr = (struct hdr *) malloc (sizeof (struct hdr) + size + 1);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2065 __malloc_hook = mallochook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2066 if (hdr == NULL)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2067 return NULL;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2068
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2069 hdr->size = size;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2070 hdr->magic = MAGICWORD;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2071 ((char *) &hdr[1])[size] = MAGICBYTE;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2072 flood ((__ptr_t) (hdr + 1), MALLOCFLOOD, size);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2073 return (__ptr_t) (hdr + 1);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2074 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2075
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108860
diff changeset
2076 static __ptr_t reallochook (__ptr_t, __malloc_size_t);
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2077 static __ptr_t
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2078 reallochook (ptr, size)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2079 __ptr_t ptr;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2080 __malloc_size_t size;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2081 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2082 struct hdr *hdr = NULL;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2083 __malloc_size_t osize = 0;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 40670
diff changeset
2084
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2085 if (ptr)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2086 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2087 hdr = ((struct hdr *) ptr) - 1;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2088 osize = hdr->size;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2089
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2090 checkhdr (hdr);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2091 if (size < osize)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2092 flood ((char *) ptr + size, FREEFLOOD, osize - size);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2093 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 40670
diff changeset
2094
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2095 __free_hook = old_free_hook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2096 __malloc_hook = old_malloc_hook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2097 __realloc_hook = old_realloc_hook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2098 hdr = (struct hdr *) realloc ((__ptr_t) hdr, sizeof (struct hdr) + size + 1);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2099 __free_hook = freehook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2100 __malloc_hook = mallochook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2101 __realloc_hook = reallochook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2102 if (hdr == NULL)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2103 return NULL;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2104
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2105 hdr->size = size;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2106 hdr->magic = MAGICWORD;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2107 ((char *) &hdr[1])[size] = MAGICBYTE;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2108 if (size > osize)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2109 flood ((char *) (hdr + 1) + osize, MALLOCFLOOD, size - osize);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2110 return (__ptr_t) (hdr + 1);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2111 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2112
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2113 static void
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2114 mabort (status)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2115 enum mcheck_status status;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2116 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2117 const char *msg;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2118 switch (status)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2119 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2120 case MCHECK_OK:
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2121 msg = "memory is consistent, library is buggy";
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2122 break;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2123 case MCHECK_HEAD:
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2124 msg = "memory clobbered before allocated block";
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2125 break;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2126 case MCHECK_TAIL:
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2127 msg = "memory clobbered past end of allocated block";
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2128 break;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2129 case MCHECK_FREE:
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2130 msg = "block freed twice";
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2131 break;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2132 default:
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2133 msg = "bogus mcheck_status, library is buggy";
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2134 break;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2135 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2136 #ifdef __GNU_LIBRARY__
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2137 __libc_fatal (msg);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2138 #else
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2139 fprintf (stderr, "mcheck: %s\n", msg);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2140 fflush (stderr);
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2141 abort ();
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2142 #endif
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2143 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2144
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2145 static int mcheck_used = 0;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2146
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2147 int
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2148 mcheck (func)
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 108860
diff changeset
2149 void (*func) (enum mcheck_status);
32973
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2150 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2151 abortfunc = (func != NULL) ? func : &mabort;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2152
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2153 /* These hooks may not be safely inserted if malloc is already in use. */
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2154 if (!__malloc_initialized && !mcheck_used)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2155 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2156 old_free_hook = __free_hook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2157 __free_hook = freehook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2158 old_malloc_hook = __malloc_hook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2159 __malloc_hook = mallochook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2160 old_realloc_hook = __realloc_hook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2161 __realloc_hook = reallochook;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2162 mcheck_used = 1;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2163 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2164
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2165 return mcheck_used ? 0 : -1;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2166 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2167
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2168 enum mcheck_status
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2169 mprobe (__ptr_t ptr)
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2170 {
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2171 return mcheck_used ? checkhdr (ptr) : MCHECK_DISABLED;
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2172 }
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2173
c3f68b4d9e37 Add code from mcheck.c of glibc-1.09.1.
Gerd Moellmann <gerd@gnu.org>
parents: 32821
diff changeset
2174 #endif /* GC_MCHECK */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
2175
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
2176 /* arch-tag: 93dce5c0-f49a-41b5-86b1-f91c4169c02e
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
2177 (do not change this comment) */