From e0f9abb8434e0918bdc4ba600324c9c0069e71e0 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 11 Jan 2019 21:53:55 +0100
Subject: [PATCH] add support for new DCD member kinds

---
 src/u_dcd.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/u_dcd.pas b/src/u_dcd.pas
index ca6a4041..d7a9eb0d 100644
--- a/src/u_dcd.pas
+++ b/src/u_dcd.pas
@@ -560,7 +560,9 @@ begin
   begin
     updateServerlistening;
     exit;
-  end;
+  end
+  else if fTempLines.Count = 1 then
+    exit;
   if not (fTempLines[0] = 'identifiers') then exit;
 
   list.Clear;
@@ -587,6 +589,8 @@ begin
       'l': kindObj := TObject(PtrUint(dckAlias));
       't': kindObj := TObject(PtrUint(dckTemplate));
       'T': kindObj := TObject(PtrUint(dckMixin));
+      'h': kindObj := TObject(PtrUint(dckMember));
+      'p': kindObj := TObject(PtrUint(dckMember));
       // internal DCD stuff, Should not to happen...report bug if it does.
       '*', '?': continue;
     end;