From 4577751bad1a2421921eb8c9bf40a4961daceb78 Mon Sep 17 00:00:00 2001
From: Araq <rumpf_a@web.de>
Date: Fri, 21 Sep 2012 22:07:26 +0200
Subject: [PATCH] bugfix: code generator can deal with ftpclient.nim

---
 compiler/ccgtypes.nim | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/ccgtypes.nim b/compiler/ccgtypes.nim
index 7a254e8672..88c589a0c1 100755
--- a/compiler/ccgtypes.nim
+++ b/compiler/ccgtypes.nim
@@ -721,6 +721,10 @@ proc genTypeInfoAux(m: BModule, typ: PType, name: PRope) =
   genTypeInfoAuxBase(m, typ, name, base)
 
 proc discriminatorTableName(m: BModule, objtype: PType, d: PSym): PRope = 
+  # bugfix: we need to search the type that contains the discriminator:
+  var objtype = objtype
+  while lookupInRecord(objtype.n, d.name) == nil:
+    objtype = objtype.sons[0]
   if objType.sym == nil: 
     InternalError(d.info, "anonymous obj with discriminator")
   result = ropef("NimDT_$1_$2", [