Tcl Source Code

Check-in [8f55251fdd]
Login

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

Overview
Comment:getting aPURIFY to build?
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | mig-alloc-reform
Files: files | file ages | folders
SHA1: 8f55251fddaed6eeb38e42a74c25005e3b320fea
User & Date: mig 2011-03-18 23:04:03
Context
2011-03-19
12:24
get purify and native to build by removing ref to ckalloc and friends check-in: 505625c2e2 user: mig tags: mig-alloc-reform
2011-03-18
23:04
getting aPURIFY to build? check-in: 8f55251fdd user: mig tags: mig-alloc-reform
22:57
remove TclpAlloc and friends from internal stubs check-in: 28384cbc01 user: mig tags: mig-alloc-reform
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclInt.h.

3873
3874
3875
3876
3877
3878
3879

3880
3881
3882
3883
3884
3885
3886
#endif

#if TCL_ALLOCATOR == aPURIFY
#  define TclSmallAlloc() ckalloc(sizeof(Tcl_Obj))
#  define TclSmallFree(ptr) ckfree(ptr)
#  define TclInitAlloc()
#  define TclFinalizeAlloc()

#else
   MODULE_SCOPE void * TclSmallAlloc();
   MODULE_SCOPE void   TclSmallFree(void *ptr);
   MODULE_SCOPE void   TclInitAlloc(void);
   MODULE_SCOPE void   TclFinalizeAlloc(void);
#endif








>







3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
#endif

#if TCL_ALLOCATOR == aPURIFY
#  define TclSmallAlloc() ckalloc(sizeof(Tcl_Obj))
#  define TclSmallFree(ptr) ckfree(ptr)
#  define TclInitAlloc()
#  define TclFinalizeAlloc()
#  define TclFreeAllocCache(ptr)
#else
   MODULE_SCOPE void * TclSmallAlloc();
   MODULE_SCOPE void   TclSmallFree(void *ptr);
   MODULE_SCOPE void   TclInitAlloc(void);
   MODULE_SCOPE void   TclFinalizeAlloc(void);
#endif