From d10b524c9a52c1d13ca175ac9781c85fad22b0f7 Mon Sep 17 00:00:00 2001
From: Zahary Karadjov <zahary@gmail.com>
Date: Wed, 6 Jun 2012 18:34:35 +0300
Subject: generate default destructors

---
 lib/system/assign.nim | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/system')

diff --git a/lib/system/assign.nim b/lib/system/assign.nim
index 59c44a6cc..f29dc547c 100755
--- a/lib/system/assign.nim
+++ b/lib/system/assign.nim
@@ -139,6 +139,10 @@ proc objectInit(dest: Pointer, typ: PNimType) =
   
 # ---------------------- assign zero -----------------------------------------
 
+proc nimDestroyRange*[T](r: T) =
+  # internal proc used for destroying sequences and arrays
+  for i in countup(0, r.len - 1): destroy(r[i])
+
 proc genericReset(dest: Pointer, mt: PNimType) {.compilerProc.}
 proc genericResetAux(dest: Pointer, n: ptr TNimNode) =
   var d = cast[TAddress](dest)
-- 
cgit 1.4.1-2-gfad0