diff --git a/src/systemc/core/sc_module.cc b/src/systemc/core/sc_module.cc
index 6bbb9dca6a..646916fac8 100644
--- a/src/systemc/core/sc_module.cc
+++ b/src/systemc/core/sc_module.cc
@@ -27,6 +27,9 @@
  * Authors: Gabe Black
  */
 
+#include <memory>
+#include <vector>
+
 #include "base/logging.hh"
 #include "systemc/ext/core/sc_module.hh"
 
@@ -539,4 +542,12 @@ sc_end_of_simulation_invoked()
     return false;
 }
 
+sc_module *
+sc_module_sc_new(sc_module *mod)
+{
+    static std::vector<std::unique_ptr<sc_module> > modules;
+    modules.emplace_back(mod);
+    return mod;
+}
+
 } // namespace sc_core
diff --git a/src/systemc/ext/core/sc_module.hh b/src/systemc/ext/core/sc_module.hh
index 0600aa6e63..68d2174b32 100644
--- a/src/systemc/ext/core/sc_module.hh
+++ b/src/systemc/ext/core/sc_module.hh
@@ -244,6 +244,12 @@ typedef sc_module sc_channel;
 bool sc_start_of_simulation_invoked();
 bool sc_end_of_simulation_invoked();
 
+// Nonstandard
+// Allocates a module of type x and records a pointer to it so that it gets
+// destructed automatically at the end of the simulation.
+sc_module *sc_module_sc_new(sc_module *);
+#define SC_NEW(x) ::sc_core::sc_module_sc_new(new x);
+
 } // namespace sc_core
 
 #endif  //__SYSTEMC_EXT_CORE_SC_MODULE_HH__