1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
?RCS: $Id$
?RCS:
?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
?RCS:
?RCS: You may redistribute only under the terms of the Artistic License,
?RCS: as specified in the README file that comes with the distribution.
?RCS: You may reuse parts of this distribution only within the terms of
?RCS: that same Artistic License; a copy of which may be found at the root
?RCS: of the source tree for dist 4.0.
?RCS:
?RCS: $Log: mallocsrc.U,v $
?RCS: Revision 3.0.1.2 1997/02/28 16:10:26 ram
?RCS: patch61: added support for Free_t, the type of free()
?RCS: patch61: replaced .o with $_o all over the place
?RCS:
?RCS: Revision 3.0.1.1 1994/05/06 15:10:46 ram
?RCS: patch23: added support for MYMALLOC, mainly for perl5 (ADO)
?RCS:
?RCS: Revision 3.0 1993/08/18 12:09:12 ram
?RCS: Baseline for dist 3.0 netwide release.
?RCS:
?MAKE:mallocsrc mallocobj usemymalloc malloctype d_mymalloc \
freetype: Myread \
Oldconfig package spackage Guess Setvar rm cat +cc +ccflags Findhdr \
i_malloc i_stdlib sed libs _o ptrsize
?MAKE: -pick add $@ %<
?X: Put near top so that other tests don't erroneously include
?X: -lmalloc. --AD 22 June 1998
?Y:TOP
?S:usemymalloc:
?S: This variable contains y if the malloc that comes with this package
?S: is desired over the system's version of malloc. People often include
?S: special versions of malloc for efficiency, but such versions are often
?S: less portable. See also mallocsrc and mallocobj.
?S: If this is 'y', then -lmalloc is removed from $libs.
?S:.
?S:mallocsrc:
?S: This variable contains the name of the malloc.c that comes with
?S: the package, if that malloc.c is preferred over the system malloc.
?S: Otherwise the value is null. This variable is intended for generating
?S: Makefiles.
?S:.
?S:d_mymalloc:
?S: This variable conditionally defines MYMALLOC in case other parts
?S: of the source want to take special action if MYMALLOC is used.
?S: This may include different sorts of profiling or error detection.
?S:.
?S:mallocobj:
?S: This variable contains the name of the malloc.o that this package
?S: generates, if that malloc.o is preferred over the system malloc.
?S: Otherwise the value is null. This variable is intended for generating
?S: Makefiles. See mallocsrc.
?S:.
?S:freetype:
?S: This variable contains the return type of free(). It is usually
?S: void, but occasionally int.
?S:.
?S:malloctype:
?S: This variable contains the kind of ptr returned by malloc and realloc.
?S:.
?C:Free_t:
?C: This variable contains the return type of free(). It is usually
?C: void, but occasionally int.
?C:.
?C:Malloc_t (MALLOCPTRTYPE):
?C: This symbol is the type of pointer returned by malloc and realloc.
?C:.
?H:#define Malloc_t $malloctype /**/
?H:#define Free_t $freetype /**/
?H:.
?C:USE_MY_MALLOC (MYMALLOC):
?C: This symbol, if defined, indicates that we're using our own malloc.
?C:.
?H:#$d_mymalloc USE_MY_MALLOC /**/
?H:.
?LINT:change libs
?X: Cannot test for mallocsrc; it is the unit's name and there is a bug in
?X: the interpreter which defines all the names, even though they are not used.
@if mallocobj || USE_MY_MALLOC
: determine which malloc to compile in
echo " "
case "$usemymalloc" in
[yY]*|true|$define) dflt='y' ;;
[nN]*|false|$undef) dflt='n' ;;
*)
case "$ptrsize" in
4) dflt='y' ;;
*) dflt='n' ;;
esac
;;
esac
$cat <<EOM
$spackage comes with its own malloc() implementation that will supersede
the version included in your C library. Since proper memory allocation is
critical, you may choose to opt out from this specific implementation and
rely on the (hopefully) more thoroughly tested version in the C library.
If you change your mind later, you can always re-run this configuration
script and recompile $package from scratch.
EOM
rp="Do you wish to attempt to use the malloc() that comes with $package?"
. ./myread
usemymalloc="$ans"
case "$ans" in
y*|true)
usemymalloc='y'
mallocsrc='malloc.c'
mallocobj="malloc$_o"
d_mymalloc="$define"
?X: Maybe libs.U should be dependent on mallocsrc.U, but then
?X: most packages that use dist probably don't supply their own
?X: malloc, so this is probably an o.k. compromise
case "$libs" in
*-lmalloc*)
: Remove malloc from list of libraries to use
echo "Removing unneeded -lmalloc from library list" >&4
set `echo X $libs | $sed -e 's/-lmalloc / /' -e 's/-lmalloc$//'`
shift
libs="$*"
echo "libs = $libs" >&4
;;
esac
;;
*)
usemymalloc='n'
mallocsrc=''
mallocobj=''
d_mymalloc="$undef"
;;
esac
@end
@if MALLOCPTRTYPE || Malloc_t || Free_t
: compute the return types of malloc and free
echo " "
$cat >malloc.c <<END
#$i_malloc I_MALLOC
#$i_stdlib I_STDLIB
#include <stdio.h>
#include <sys/types.h>
#ifdef I_MALLOC
#include <malloc.h>
#endif
#ifdef I_STDLIB
#include <stdlib.h>
#endif
#ifdef TRY_MALLOC
void *malloc();
#endif
#ifdef TRY_FREE
void free();
#endif
END
@if MALLOCPTRTYPE || Malloc_t
case "$malloctype" in
'')
if $cc $ccflags -c -DTRY_MALLOC malloc.c >/dev/null 2>&1; then
malloctype='void *'
else
malloctype='char *'
fi
;;
esac
echo "Your system wants malloc to return '$malloctype', it would seem." >&4
@end
@if Free_t
case "$freetype" in
'')
if $cc $ccflags -c -DTRY_FREE malloc.c >/dev/null 2>&1; then
freetype='void'
else
freetype='int'
fi
;;
esac
echo "Your system uses $freetype free(), it would seem." >&4
@end
$rm -f malloc.[co]
@end
|
