0024300: Remove unused class MMgt_StackManager

diff --git a/src/MMgt/MMgt.cdl b/src/MMgt/MMgt.cdl
index bf12329ef2990cf4d0b582afa1f1d61f87bf0db7..ff761780a613fa267e84ae37519eb086ee7b7967 100755 (executable)
--- a/src/MMgt/MMgt.cdl
+++ b/src/MMgt/MMgt.cdl
@@ -22,21 +22,14 @@
 package MMgt 
 
 ---Purpose:
---   The package <MMgt> provides storage management facilities, and classes
---   which can manage their own storage. 
---
+--   The package MMgt provides single class TShared which is second in hierarchy
+--   of inheritance from Standard_Transient, kept for historic reasons
 
 uses Standard
 
 is
-    class StackManager;
-    ---Purpose:
-    --   Facility for stack-based storage management.
-    --   
     deferred class TShared;
     ---Purpose:
-    --   Abstract base class providing reference counting for storage 
-    --   allocation and deallocation.
-    --   
+    --   Intermediate class between Standard_Transient and descendants.
 
 end MMgt;

diff --git a/src/MMgt/MMgt_StackManager.cdl b/src/MMgt/MMgt_StackManager.cdl
deleted file mode 100755 (executable)
index aa3bb42..0000000
--- a/src/MMgt/MMgt_StackManager.cdl
+++ /dev/null
@@ -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;
-    

diff --git a/src/MMgt/MMgt_StackManager.cxx b/src/MMgt/MMgt_StackManager.cxx
deleted file mode 100755 (executable)
index a19d589..0000000
--- a/src/MMgt/MMgt_StackManager.cxx
+++ /dev/null
@@ -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;
-  }
-}
-