summaryrefslogtreecommitdiff
path: root/TAO/tao/deep_free.cpp
diff options
context:
space:
mode:
authorsbw1 <sbw1@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-07-13 16:52:33 +0000
committersbw1 <sbw1@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-07-13 16:52:33 +0000
commit4dfd61b8016895e75d715abd89c433a7bb407331 (patch)
tree1c527a8acc8db5883a40134ed11c5925f7f5d8fe /TAO/tao/deep_free.cpp
parenta39fd873aeb469b4377af5951144a000d4faec48 (diff)
downloadATCD-4dfd61b8016895e75d715abd89c433a7bb407331.tar.gz
*** empty log message ***
Diffstat (limited to 'TAO/tao/deep_free.cpp')
-rw-r--r--TAO/tao/deep_free.cpp5
1 files changed, 5 insertions, 0 deletions
diff --git a/TAO/tao/deep_free.cpp b/TAO/tao/deep_free.cpp
index a3613efb015..25d7ff37151 100644
--- a/TAO/tao/deep_free.cpp
+++ b/TAO/tao/deep_free.cpp
@@ -71,6 +71,10 @@ DEEP_FREE (CORBA::TypeCode_ptr param,
break;
case CORBA::tk_struct:
retval = TAO_Marshal_Struct::deep_free (param, source, dest, env);
+
+ // @@ It's likely that other types will need their top-level
+ // memory freed as well. --- Carlos (and Seth).
+ delete source;
break;
case CORBA::tk_union:
retval = TAO_Marshal_Union::deep_free (param, source, dest, env);
@@ -96,6 +100,7 @@ DEEP_FREE (CORBA::TypeCode_ptr param,
default:
retval = CORBA::TypeCode::TRAVERSE_STOP;
} // end of switch
+
return retval;
}