Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
bat	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
t	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
testnlm	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
CLIBsdio.h	5.53 KB	-r--r--r--	2014-12-27 11:48
CLIBstr.h	3.45 KB	-r--r--r--	2014-12-27 11:48
CLIBstuf.c	6.1 KB	-r--r--r--	2014-12-27 11:48
CLIBstuf.h	810 B	-r--r--r--	2014-12-27 11:48
MP.imp	141 B	-r--r--r--	2014-12-27 11:48
Main.c	6.79 KB	-r--r--r--	2014-12-27 11:48
Makefile	39.24 KB	-rw-r--r--	2015-01-28 21:08
NWTInfo.c	13.66 KB	-r--r--r--	2014-12-27 11:48
NWUtil.c	21.45 KB	-r--r--r--	2014-12-27 11:48
Nwmain.c	34.43 KB	-r--r--r--	2014-12-27 11:48
Nwpipe.c	15.59 KB	-r--r--r--	2014-12-27 11:48
config.wc	21.06 KB	-r--r--r--	2014-12-27 11:49
config_H.wc	104.08 KB	-rw-r--r--	2015-01-28 21:08
config_h.PL	2.35 KB	-r--r--r--	2014-12-27 11:48
config_sh.PL	2.04 KB	-r--r--r--	2014-12-27 11:48
deb.h	916 B	-r--r--r--	2014-12-27 11:48
dl_netware.xs	4.48 KB	-r--r--r--	2014-12-27 11:48
intdef.h	2.15 KB	-r--r--r--	2014-12-27 11:48
interface.c	4.01 KB	-r--r--r--	2014-12-27 11:48
interface.cpp	4.47 KB	-r--r--r--	2014-12-27 11:48
interface.h	957 B	-r--r--r--	2014-12-27 11:48
iperlhost.h	1.04 KB	-r--r--r--	2014-12-27 11:48
netware.h	2.32 KB	-r--r--r--	2014-12-27 11:48
nw5.c	18.5 KB	-r--r--r--	2014-12-27 11:48
nw5iop.h	4.54 KB	-r--r--r--	2014-12-27 11:48
nw5sck.c	5.02 KB	-r--r--r--	2014-12-27 11:48
nw5sck.h	4.29 KB	-r--r--r--	2014-12-27 11:48
nw5thread.c	1.45 KB	-r--r--r--	2014-12-27 11:48
nw5thread.h	4.88 KB	-r--r--r--	2014-12-27 11:48
nwhashcls.cpp	5.09 KB	-r--r--r--	2014-12-27 11:48
nwhashcls.h	1.35 KB	-r--r--r--	2014-12-27 11:48
nwperlhost.h	35.25 KB	-r--r--r--	2014-12-27 11:48
nwperlsys.c	4.87 KB	-r--r--r--	2014-12-27 11:48
nwperlsys.h	25.81 KB	-r--r--r--	2014-12-27 11:48
nwpipe.h	1.11 KB	-r--r--r--	2014-12-27 11:48
nwplglob.c	2.19 KB	-r--r--r--	2014-12-27 11:48
nwplglob.h	468 B	-r--r--r--	2014-12-27 11:48
nwstdio.h	4.22 KB	-r--r--r--	2014-12-27 11:48
nwtinfo.h	1.81 KB	-r--r--r--	2014-12-27 11:48
nwutil.h	2.06 KB	-r--r--r--	2014-12-27 11:48
nwvmem.h	6.71 KB	-r--r--r--	2014-12-27 11:48
perllib.cpp	6.2 KB	-r--r--r--	2014-12-27 11:48
splittree.pl	527 B	-r--r--r--	2014-12-27 11:48
sv_nw.c	572 B	-r--r--r--	2014-12-27 11:48
win32ish.h	666 B	-r--r--r--	2014-12-27 11:48

Rename

/*
 * Copyright © 2001 Novell, Inc. All Rights Reserved.
 *
 * You may distribute under the terms of either the GNU General Public
 * License or the Artistic License, as specified in the README file.
 *
 */

/*
 * FILENAME		:	NWVMem.h
 * DESCRIPTION	:	Memory management for Perl Interpreter on NetWare.
 *                  Watcom's hash table is used to store memory pointers.
 *                  All malloc's, realloc's, free's go through this.
 * Author		:	HYAK, SGP
 * Date			:	January 2001.
 *
 */

#ifndef ___NWVMEM_H_INC___
#define ___NWVMEM_H_INC___

#include "win32ish.h"		// For "BOOL", "TRUE" and "FALSE"
#include <nwhashcls.h>		// CW changes
#include <nwmalloc.h>
#include "string.h"

class VMem
{
public:
    VMem();
    virtual ~VMem();
    virtual void* Malloc(size_t size);
    virtual void* Realloc(void* pMem, size_t size);
    virtual void Free(void* pMem);
	virtual void* Calloc(size_t num, size_t size);

protected:
	BOOL					m_dontTouchHashLists;
//	WCValHashTable<void*>*	m_allocList;		
	NWPerlHashList *m_allocList;			// CW changes
};

/*============================================================================================

Function		:	fnAllocListHash

Description	:	Hashing function for hash table of memory allocations.

Parameters 	:	invalue	(IN).

Returns		:	unsigned.

==============================================================================================*/

unsigned fnAllocListHash(void* const& invalue)
{
    return (((unsigned) invalue & 0x0000ff00) >> 8);
}

/*============================================================================================

Function		:	fnFreeMemEntry

Description	:	Called for each outstanding memory allocation at the end of a script run.
					Frees the outstanding allocations

Parameters 	:	ptr	(IN).
					context (IN)

Returns		:	Nothing.

==============================================================================================*/

void fnFreeMemEntry(void* ptr, void* context)
{
	VMem* pVMem = (VMem*) context;

if(ptr && pVMem)
	{
		pVMem->Free(ptr);
		ptr=NULL;
		pVMem = NULL;
		context = NULL;
	}
}

/*============================================================================================

Function		:	VMem Constructor

Description	:

Parameters 	:

Returns		:

==============================================================================================*/

VMem::VMem()
{
	//Constructor
	m_dontTouchHashLists = FALSE;
	m_allocList = NULL;
	// m_allocList = new WCValHashTable<void*> (fnAllocListHash, 256);  
	m_allocList = new NWPerlHashList();			// CW changes
}

/*============================================================================================

Function		:	VMem Destructor

Description	:

Parameters 	:

Returns		:

==============================================================================================*/

VMem::~VMem(void)
{
	//Destructor
	m_dontTouchHashLists = TRUE;
	if (m_allocList)
	{
		m_allocList->forAll(fnFreeMemEntry, (void*) this);

delete m_allocList;
		m_allocList = NULL;
	}
	m_dontTouchHashLists = FALSE;
}

/*============================================================================================

Function		:	VMem::Malloc

Description	:	Allocates memory.

Parameters 	:	size	(IN)	-	Size of memory to be allocated.

Returns		:	Pointer to the allocated memory block.

==============================================================================================*/

void* VMem::Malloc(size_t size)
{
	void *ptr = NULL;

if (size <= 0)
		return NULL;

ptr = malloc(size);
	if (ptr)
	{
		if(m_allocList)
			m_allocList->insert(ptr);
	}
	else
	{
		m_dontTouchHashLists = TRUE;
		if (m_allocList)
		{
			m_allocList->forAll(fnFreeMemEntry, (void*) this);
			delete m_allocList;
			m_allocList = NULL;
		}
		m_dontTouchHashLists = FALSE;

// Serious error since memory allocation falied. So, exiting...
		ExitThread(TSR_THREAD, 1);
	}

return(ptr);
}

/*============================================================================================

Function		:	VMem::Realloc

Description	:	Reallocates block of memory.

Parameters 	:	block	(IN)	-	Points to a previously allocated memory block.
					size	(IN)	-	Size of memory to be allocated.

Returns		:	Pointer to the allocated memory block.

==============================================================================================*/

void* VMem::Realloc(void* block, size_t size)
{
	void *ptr = NULL;

if (size <= 0)
		return NULL;

ptr = realloc(block, size);
	if (ptr)
	{
		if (block)
		{
			if (m_allocList)
				m_allocList->remove(block);
		}
		if (m_allocList)
			m_allocList->insert(ptr);
	}
	else
	{
		m_dontTouchHashLists = TRUE;
		if (m_allocList)
		{
			m_allocList->forAll(fnFreeMemEntry, (void*) this);
			delete m_allocList;
			m_allocList = NULL;
		}
		m_dontTouchHashLists = FALSE;

// Serious error since memory allocation falied. So, exiting...
		ExitThread(TSR_THREAD, 1);
	}

return(ptr);
}

/*============================================================================================

Function		:	VMem::Calloc

Description	:	Allocates and clears memory space for an array of objects.

Parameters 	:	num	(IN)	-	Specifies the number of objects.
					size	(IN)	-	Size of each object.

Returns		:	Pointer to the allocated memory block.

==============================================================================================*/

void* VMem::Calloc(size_t num, size_t size)
{
	void *ptr = NULL;

if (size <= 0)
		return NULL;

ptr = calloc(num, size);
	if (ptr)
	{
		if(m_allocList)
			m_allocList->insert(ptr);
	}
	else
	{
		m_dontTouchHashLists = TRUE;
		if (m_allocList)
		{
			m_allocList->forAll(fnFreeMemEntry, (void*) this);
			delete m_allocList;
			m_allocList = NULL;
		}
		m_dontTouchHashLists = FALSE;

// Serious error since memory allocation falied. So, exiting...
		ExitThread(TSR_THREAD, 1);
	}

return(ptr);
}

/*============================================================================================

Function		:	VMem::Free

Description	:	Frees allocated memory.

Parameters 	:	p	(IN)	-	Points to the allocated memory.

Returns		:	Nothing.

==============================================================================================*/

void VMem::Free(void* p)
{
	// Final clean up, free all the nodes from the hash list
	if (m_dontTouchHashLists)
	{
		if(p)
		{
			free(p);
			p = NULL;
		}
	}
	else
	{
		if(p && m_allocList)
		{
			if (m_allocList->remove(p))
			{
				free(p);
				p = NULL;
			}
			else
			{
				// If it comes here, that means that the memory pointer is not contained in the hash list.
				// But no need to free now, since if is deleted here, it will result in an abend!!
				// If the memory is still there, it will be cleaned during final cleanup anyway.
			}
		}
	}

return;
}

#endif		//___NWVMEM_H_INC___