mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-16 10:08:36 +03:00
0024300: Remove unused class MMgt_StackManager
This commit is contained in:
abv
bugmaster
parent
06c13a57cf
commit
2b3ac0cf2d
@ -22,21 +22,14 @@
|
|||||||
package MMgt
|
package MMgt
|
||||||
|
|
||||||
---Purpose:
|
---Purpose:
|
||||||
-- The package <MMgt> provides storage management facilities, and classes
|
-- The package MMgt provides single class TShared which is second in hierarchy
|
||||||
-- which can manage their own storage.
|
-- of inheritance from Standard_Transient, kept for historic reasons
|
||||||
--
|
|
||||||
|
|
||||||
uses Standard
|
uses Standard
|
||||||
|
|
||||||
is
|
is
|
||||||
class StackManager;
|
|
||||||
---Purpose:
|
|
||||||
-- Facility for stack-based storage management.
|
|
||||||
--
|
|
||||||
deferred class TShared;
|
deferred class TShared;
|
||||||
---Purpose:
|
---Purpose:
|
||||||
-- Abstract base class providing reference counting for storage
|
-- Intermediate class between Standard_Transient and descendants.
|
||||||
-- allocation and deallocation.
|
|
||||||
--
|
|
||||||
|
|
||||||
end MMgt;
|
end MMgt;
|
||||||
|
|||||||
@ -1,94 +0,0 @@
|
|||||||
-- Created on: 1992-10-13
|
|
||||||
-- Created by: Ramin BARRETO
|
|
||||||
-- Copyright (c) 1992-1999 Matra Datavision
|
|
||||||
-- Copyright (c) 1999-2012 OPEN CASCADE SAS
|
|
||||||
--
|
|
||||||
-- The content of this file is subject to the Open CASCADE Technology Public
|
|
||||||
-- License Version 6.5 (the "License"). You may not use the content of this file
|
|
||||||
-- except in compliance with the License. Please obtain a copy of the License
|
|
||||||
-- at http://www.opencascade.org and read it completely before using this file.
|
|
||||||
--
|
|
||||||
-- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
|
|
||||||
-- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
|
|
||||||
--
|
|
||||||
-- The Original Code and all software distributed under the License is
|
|
||||||
-- distributed on an "AS IS" basis, without warranty of any kind, and the
|
|
||||||
-- Initial Developer hereby disclaims all such warranties, including without
|
|
||||||
-- limitation, any warranties of merchantability, fitness for a particular
|
|
||||||
-- purpose or non-infringement. Please see the License for the specific terms
|
|
||||||
-- and conditions governing the rights and limitations under the License.
|
|
||||||
|
|
||||||
|
|
||||||
class StackManager from MMgt
|
|
||||||
---Purpose:
|
|
||||||
-- The class <StackManager> provides primitive facilities for managing
|
|
||||||
-- stack-based storage.
|
|
||||||
--
|
|
||||||
|
|
||||||
uses
|
|
||||||
Integer from Standard
|
|
||||||
,Address from Standard
|
|
||||||
|
|
||||||
raises
|
|
||||||
OutOfMemory from Standard
|
|
||||||
,ProgramError from Standard
|
|
||||||
|
|
||||||
is
|
|
||||||
Create returns StackManager;
|
|
||||||
---Purpose:
|
|
||||||
-- Constructs a StackManager with an empty free stack.
|
|
||||||
--
|
|
||||||
---Level: Advanced
|
|
||||||
|
|
||||||
Allocate(me: in out; size: Integer) returns Address
|
|
||||||
---Purpose:
|
|
||||||
-- Returns the address of a storage of the given size located on
|
|
||||||
-- the top of the free stack.
|
|
||||||
---Level: Advanced
|
|
||||||
raises OutOfMemory
|
|
||||||
-- If the allocation fails
|
|
||||||
is static;
|
|
||||||
|
|
||||||
Free(me: in out; aStack: in out Address; aSize: Integer)
|
|
||||||
---Purpose:
|
|
||||||
-- Deallocates the storage of the given size from the free stack
|
|
||||||
-- and nullify the address.
|
|
||||||
---Level: Advanced
|
|
||||||
raises ProgramError
|
|
||||||
-- If the storage is not on the top of the stack.
|
|
||||||
is static;
|
|
||||||
|
|
||||||
ShallowCopy (me) returns StackManager;
|
|
||||||
---Purpose:
|
|
||||||
-- There is no way to have a "ShallowCopy" of a "StackManager"
|
|
||||||
---Level: Advanced
|
|
||||||
---Warning:
|
|
||||||
-- A ProgramError will be raised with a message.
|
|
||||||
--
|
|
||||||
---C++: function call
|
|
||||||
|
|
||||||
Purge(me: in out)
|
|
||||||
---Purpose:
|
|
||||||
-- Deallocates the storage associated to stack.
|
|
||||||
---Level: Advanced
|
|
||||||
is static private;
|
|
||||||
|
|
||||||
ShallowDump (me; S: in out OStream);
|
|
||||||
---Purpose:
|
|
||||||
-- Prints the contents of <me> on the stream <s>.
|
|
||||||
---Level: Advanced
|
|
||||||
---C++: function call
|
|
||||||
|
|
||||||
Destructor(me: in out);
|
|
||||||
---Purpose:
|
|
||||||
-- Deallocates the storage associated to stack.
|
|
||||||
-- Delete <me>.
|
|
||||||
---Level: Advanced
|
|
||||||
---C++: alias ~
|
|
||||||
|
|
||||||
fields
|
|
||||||
myFreeListSize: Integer;
|
|
||||||
myFreeList: Address;
|
|
||||||
|
|
||||||
end StackManager;
|
|
||||||
|
|
||||||
@ -1,178 +0,0 @@
|
|||||||
// Copyright (c) 1998-1999 Matra Datavision
|
|
||||||
// Copyright (c) 1999-2012 OPEN CASCADE SAS
|
|
||||||
//
|
|
||||||
// The content of this file is subject to the Open CASCADE Technology Public
|
|
||||||
// License Version 6.5 (the "License"). You may not use the content of this file
|
|
||||||
// except in compliance with the License. Please obtain a copy of the License
|
|
||||||
// at http://www.opencascade.org and read it completely before using this file.
|
|
||||||
//
|
|
||||||
// The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
|
|
||||||
// main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
|
|
||||||
//
|
|
||||||
// The Original Code and all software distributed under the License is
|
|
||||||
// distributed on an "AS IS" basis, without warranty of any kind, and the
|
|
||||||
// Initial Developer hereby disclaims all such warranties, including without
|
|
||||||
// limitation, any warranties of merchantability, fitness for a particular
|
|
||||||
// purpose or non-infringement. Please see the License for the specific terms
|
|
||||||
// and conditions governing the rights and limitations under the License.
|
|
||||||
|
|
||||||
#ifdef HAVE_CONFIG_H
|
|
||||||
# include <config.h>
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#include <MMgt_StackManager.ixx>
|
|
||||||
#include <Standard_ProgramError.hxx>
|
|
||||||
|
|
||||||
#ifdef HAVE_MALLOC_H
|
|
||||||
# include <malloc.h>
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#ifdef TRACE
|
|
||||||
#define SHALLOWDUMP ShallowDump(cout)
|
|
||||||
#else
|
|
||||||
#define SHALLOWDUMP
|
|
||||||
#endif
|
|
||||||
|
|
||||||
static class _Element
|
|
||||||
{
|
|
||||||
public:
|
|
||||||
_Element() {};
|
|
||||||
|
|
||||||
Standard_Address myNext;
|
|
||||||
|
|
||||||
} *anElement = new _Element;
|
|
||||||
|
|
||||||
//============================================================================
|
|
||||||
|
|
||||||
//============================================================================
|
|
||||||
MMgt_StackManager::MMgt_StackManager()
|
|
||||||
{
|
|
||||||
myFreeListSize = sizeof(_Element);
|
|
||||||
myFreeList = (Standard_Address)calloc((int)(myFreeListSize+1),
|
|
||||||
sizeof(myFreeList));
|
|
||||||
}
|
|
||||||
|
|
||||||
//============================================================================
|
|
||||||
void MMgt_StackManager::Destructor()
|
|
||||||
{
|
|
||||||
SHALLOWDUMP;
|
|
||||||
|
|
||||||
Purge();
|
|
||||||
free((char*) myFreeList);
|
|
||||||
myFreeListSize = 0;
|
|
||||||
|
|
||||||
SHALLOWDUMP;
|
|
||||||
}
|
|
||||||
|
|
||||||
//============================================================================
|
|
||||||
void MMgt_StackManager::ShallowDump(Standard_OStream& s) const
|
|
||||||
{
|
|
||||||
Standard_Address aFree;
|
|
||||||
Standard_Integer i, NbFree;
|
|
||||||
|
|
||||||
s << "Begin class MMgt_StackManager\n" << endl
|
|
||||||
<< "\t... Size:" << myFreeListSize << endl;
|
|
||||||
|
|
||||||
//==== A loop for Dumping all the storage in the Free List ===========
|
|
||||||
for(i=sizeof(Standard_Address); i<= myFreeListSize; i++){
|
|
||||||
aFree = ((Standard_Address *)myFreeList)[i];
|
|
||||||
|
|
||||||
NbFree = 0;
|
|
||||||
//==== A loop for deallocating all the storage with the same size =======
|
|
||||||
while(aFree){
|
|
||||||
aFree = ((_Element *)aFree)->myNext;
|
|
||||||
NbFree++;
|
|
||||||
}
|
|
||||||
if(NbFree) s<< "\t... ["<< i<< "]: ("<< NbFree<< ") Free Block "<< endl;
|
|
||||||
}
|
|
||||||
s << "End class MMgt_StackManager" << endl;
|
|
||||||
}
|
|
||||||
|
|
||||||
//============================================================================
|
|
||||||
MMgt_StackManager MMgt_StackManager::ShallowCopy() const
|
|
||||||
{
|
|
||||||
Standard_ProgramError::Raise
|
|
||||||
("Attempt to make a ShallowCopy of a 'MMgt_StackManager'");
|
|
||||||
return *this;
|
|
||||||
}
|
|
||||||
|
|
||||||
//============================================================================
|
|
||||||
Standard_Address MMgt_StackManager::Allocate(const Standard_Integer aSize)
|
|
||||||
{
|
|
||||||
Standard_Address aStack;
|
|
||||||
|
|
||||||
if(aSize <= myFreeListSize && ((void* *)myFreeList)[aSize] != NULL){
|
|
||||||
|
|
||||||
//==== There is the free storage in the Free List, so we use it ==========
|
|
||||||
aStack = ((Standard_Address *)myFreeList)[aSize];
|
|
||||||
((Standard_Address *)myFreeList)[aSize] = ((_Element *)aStack)->myNext;
|
|
||||||
|
|
||||||
//==== The storage is set to 0 ===========================================
|
|
||||||
memset(aStack,0,(int)aSize);
|
|
||||||
|
|
||||||
} else {
|
|
||||||
|
|
||||||
//==== There is no storage to be used, so we allocated it from "heap" ====
|
|
||||||
aStack = (void *)calloc((int)aSize, sizeof(char));
|
|
||||||
}
|
|
||||||
|
|
||||||
return aStack;
|
|
||||||
}
|
|
||||||
|
|
||||||
//============================================================================
|
|
||||||
void MMgt_StackManager::Free(Standard_Address& aStack,
|
|
||||||
const Standard_Integer aSize)
|
|
||||||
{
|
|
||||||
//==== Only the Storage large than a 'Element' can be used ================
|
|
||||||
if((unsigned int ) aSize > sizeof(_Element)){
|
|
||||||
|
|
||||||
if(aSize > myFreeListSize) {
|
|
||||||
|
|
||||||
//==== If there is no storage of this size in FreeList ================
|
|
||||||
myFreeList=(Standard_Address)realloc((char *)myFreeList,
|
|
||||||
(int)(aSize+1)*sizeof(myFreeList));
|
|
||||||
|
|
||||||
//==== Initialize to "NULL" the new case of FreeList =================
|
|
||||||
for(Standard_Integer i=myFreeListSize+1; i<=aSize; i++){
|
|
||||||
((Standard_Address *)myFreeList)[i] = NULL;
|
|
||||||
}
|
|
||||||
|
|
||||||
myFreeListSize = aSize;
|
|
||||||
}
|
|
||||||
|
|
||||||
//==== Recycling the storage in the Free List ===========================
|
|
||||||
anElement->myNext = ((Standard_Address *)myFreeList)[aSize];
|
|
||||||
|
|
||||||
memcpy((char *)aStack, (char *)anElement, sizeof(_Element));
|
|
||||||
((Standard_Address *)myFreeList)[aSize] = aStack;
|
|
||||||
} else {
|
|
||||||
//==== The littles storgas will be managed by system ====================
|
|
||||||
free((char *) aStack);
|
|
||||||
}
|
|
||||||
|
|
||||||
//==== Nullify ============================================================
|
|
||||||
aStack = NULL;
|
|
||||||
}
|
|
||||||
|
|
||||||
void MMgt_StackManager::Purge()
|
|
||||||
{
|
|
||||||
Standard_Address aFree;
|
|
||||||
Standard_Address aOther;
|
|
||||||
|
|
||||||
Standard_Integer i;
|
|
||||||
|
|
||||||
//==== A loop for deallocating all the storage in the Free List ===========
|
|
||||||
for(i=sizeof(Standard_Address); i<= myFreeListSize; i++){
|
|
||||||
aFree = ((Standard_Address *)myFreeList)[i];
|
|
||||||
|
|
||||||
//==== A loop for deallocating all the storage with the same size =======
|
|
||||||
while(aFree){
|
|
||||||
aOther = aFree;
|
|
||||||
aFree = ((_Element *)aFree)->myNext;
|
|
||||||
free((char *)aOther);
|
|
||||||
}
|
|
||||||
|
|
||||||
((Standard_Address *)myFreeList)[i] = NULL;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
Loading…
x
Reference in New Issue
Block a user