Tcl Source Code

Check-in [d74d7bb013]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:remove one level of allocator indirection in non-memdebug builds, imported from mig-alloc-reform.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: d74d7bb0139b82bdb46f3cc9fc240933a1148ded
User & Date: mig 2011-03-21 14:42:36
Context
2011-03-22
10:14
[Bug #3216070] Loading extension libraries from embedded Tcl applications. check-in: 58a4f59ea3 user: jan.nijtmans tags: trunk, potential incompatibility
2011-03-21
14:42
remove one level of allocator indirection in non-memdebug builds, imported from mig-alloc-reform. check-in: d74d7bb013 user: mig tags: trunk
14:38
fix last commit check-in: 54811e2ece user: mig tags: mig-alloc-reform
2011-03-20
11:40
changelog entry check-in: 292737732e user: mig tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.







1
2
3
4
5
6
7






2011-03-20  Miguel Sofer  <[email protected]>

	* generic/tclThreadAlloc.c: imported HAVE_FAST_TSD support from
	mig-alloc-reform. The feature has to be enabled by hand: no
	autoconf support has been added. It is not clear how universal
	a build using this will be: it also requires some loader support.

>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
2011-03-21  Miguel Sofer  <[email protected]>

	* generic/tclCkAlloc.c:
	* generic/tclInt.h: remove one level of allocator indirection in
	non memdebug builds, imported from mig-alloc-reform.

2011-03-20  Miguel Sofer  <[email protected]>

	* generic/tclThreadAlloc.c: imported HAVE_FAST_TSD support from
	mig-alloc-reform. The feature has to be enabled by hand: no
	autoconf support has been added. It is not clear how universal
	a build using this will be: it also requires some loader support.

Changes to generic/tclCkalloc.c.

16
17
18
19
20
21
22






23
24
25
26
27
28
29
 */

#include "tclInt.h"

#define FALSE	0
#define TRUE	1







#ifdef TCL_MEM_DEBUG

/*
 * One of the following structures is allocated each time the
 * "memory tag" command is invoked, to hold the current tag.
 */








>
>
>
>
>
>







16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 */

#include "tclInt.h"

#define FALSE	0
#define TRUE	1

#undef Tcl_Alloc
#undef Tcl_Free
#undef Tcl_Realloc
#undef Tcl_AttemptAlloc
#undef Tcl_AttemptRealloc

#ifdef TCL_MEM_DEBUG

/*
 * One of the following structures is allocated each time the
 * "memory tag" command is invoked, to hold the current tag.
 */

732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
 *
 * Side effects:
 *	Same as the debug versions.
 *
 *----------------------------------------------------------------------
 */

#undef Tcl_Alloc
#undef Tcl_Free
#undef Tcl_Realloc
#undef Tcl_AttemptAlloc
#undef Tcl_AttemptRealloc

char *
Tcl_Alloc(
    unsigned int size)
{
    return Tcl_DbCkalloc(size, "unknown", 0);
}








<
<
<
<
<
<







738
739
740
741
742
743
744






745
746
747
748
749
750
751
 *
 * Side effects:
 *	Same as the debug versions.
 *
 *----------------------------------------------------------------------
 */







char *
Tcl_Alloc(
    unsigned int size)
{
    return Tcl_DbCkalloc(size, "unknown", 0);
}

Changes to generic/tclInt.h.

4623
4624
4625
4626
4627
4628
4629






4630
4631
4632
4633
4634
4635
4636
#else
#define NRE_ASSERT(expr)
#endif

#include "tclIntDecls.h"
#include "tclIntPlatDecls.h"
#include "tclTomMathDecls.h"







#endif /* _TCLINT */

/*
 * Local Variables:
 * mode: c
 * c-basic-offset: 4







>
>
>
>
>
>







4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
#else
#define NRE_ASSERT(expr)
#endif

#include "tclIntDecls.h"
#include "tclIntPlatDecls.h"
#include "tclTomMathDecls.h"

#if !defined(USE_TCL_STUBS) && !defined(TCL_MEM_DEBUG)
#define Tcl_AttemptAlloc(size)        TclpAlloc(size)
#define Tcl_AttemptRealloc(ptr, size) TclpRealloc((ptr), (size))
#define Tcl_Free(ptr)                 TclpFree(ptr)
#endif

#endif /* _TCLINT */

/*
 * Local Variables:
 * mode: c
 * c-basic-offset: 4