1 files changed, 49 insertions, 0 deletions
diff --git a/src/Runtime/NMWException.cpp b/src/Runtime/NMWException.cpp
new file mode 100644
index 0000000..1ccbad1
--- /dev/null
+++ b/src/Runtime/NMWException.cpp
@@ -0,0 +1,49 @@
+#include <NMWException.h>
+#pragma exceptions on
+
+class __partial_array_destructor {
+private:
+  void* p;
+  size_t size;
+  size_t n;
+  void* dtor;
+
+public:
+  size_t i;
+
+  __partial_array_destructor(void* array, size_t elementsize, size_t nelements, void* destructor) {
+    p = array;
+    size = elementsize;
+    n = nelements;
+    dtor = destructor;
+    i = n;
+  }
+
+  ~__partial_array_destructor() {
+    char* ptr;
+
+    if (i < n && dtor) {
+      for (ptr = (char*)p + size * i; i > 0; i--) {
+        ptr -= size;
+        DTORCALL_COMPLETE(dtor, ptr);
+      }
+    }
+  }
+};
+
+extern "C" void __construct_array(void* ptr, void* ctor, void* dtor, size_t size, size_t n) {
+  __partial_array_destructor pad(ptr, size, n, dtor);
+  char* p;
+
+  for (pad.i = 0, p = (char*)ptr; pad.i < n; pad.i++, p += size)
+    CTORCALL_COMPLETE(ctor, p);
+}
+
+extern "C" void __destroy_arr(void* block, void* dtor, size_t size, size_t n) {
+  char* p;
+
+  for (p = (char*)block + size * n; n > 0; n--) {
+    p -= size;
+    DTORCALL_COMPLETE(dtor, p);
+  }
+}