Delete packets when we're done with them.

--HG--
extra : convert_revision : b8894d26e1ca7a6c9b736500accdaa53bfb09558

diff --git a/src/mem/cache/cache_impl.hh b/src/mem/cache/cache_impl.hh
index 0d76b6bec4caf5b7704022664c951b959ebc0ca5..320e0be81ca5dc92bdc4c2ee1755a29b9a0d44b4 100644 (file)
--- a/src/mem/cache/cache_impl.hh
+++ b/src/mem/cache/cache_impl.hh
@@ -705,6 +705,8 @@ Cache<TagStore>::handleResponse(PacketPtr pkt)
         deallocate = true;
     }
 
+    delete pkt;
+
     if (deallocate) {
         mq->deallocate(mshr);
         if (wasFull && !mq->isFull()) {
@@ -1242,6 +1244,9 @@ Cache<TagStore>::MemSidePort::sendPacket()
             waitingOnRetry = !success;
             if (waitingOnRetry) {
                 DPRINTF(CachePort, "now waiting on a retry\n");
+                if (!mshr->isSimpleForward()) {
+                    delete pkt;
+                }
             } else {
                 myCache()->markInService(mshr);
             }