ChangeLogTag: Wed Aug 23 11:53:43 2000 Jeff Parsons <parsons@cs.wustl.edu>

1 files changed, 32 insertions, 5 deletions

diff --git a/TAO/TAO_IDL/be/be_scope.cpp b/TAO/TAO_IDL/be/be_scope.cpp
index 16dfb2defe9..3f26593323e 100644
--- a/TAO/TAO_IDL/be/be_scope.cpp
+++ b/TAO/TAO_IDL/be/be_scope.cpp
@@ -8,13 +8,13 @@
 ACE_RCSID(be, be_scope, "$Id$")
 
 
-// Default Constructor
+// Default Constructor.
 be_scope::be_scope (void)
   : comma_ (0)
 {
 }
 
-// Constructor
+// Constructor.
 be_scope::be_scope (AST_Decl::NodeType type)
   : UTL_Scope (type),
     comma_ (0)
@@ -25,7 +25,8 @@ be_scope::~be_scope (void)
 {
 }
 
-// Code generation methods
+// Code generation methods.
+
 void
 be_scope::comma (unsigned short comma)
 {
@@ -38,7 +39,7 @@ be_scope::comma (void) const
   return this->comma_;
 }
 
-// return the scope created by this node (if one exists, else NULL)
+// Return the scope created by this node (if one exists, else NULL).
 be_decl *
 be_scope::decl (void)
 {
@@ -65,12 +66,38 @@ be_scope::decl (void)
     }
 }
 
+void
+be_scope::destroy (void)
+{
+  AST_Decl *i = 0;
+  UTL_ScopeActiveIterator *iter = 0;
+  
+  ACE_NEW (iter,
+           UTL_ScopeActiveIterator (this,
+                                    IK_decls));
+
+  while (!iter->is_done ())
+    {
+      i = iter->item ();
+      i->destroy ();
+      delete i;
+      i = 0;
+      iter->next ();
+    }
+
+  delete iter;
+
+// Still some glitches, but the call should eventually
+// be made here.
+//  UTL_Scope::destroy ();
+}
+
 int
 be_scope::accept (be_visitor *visitor)
 {
   return visitor->visit_scope (this);
 }
 
-// narrowing methods
+// Narrowing methods.
 IMPL_NARROW_METHODS1 (be_scope, UTL_Scope)
 IMPL_NARROW_FROM_SCOPE (be_scope)