forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

add support for new DCD member kinds

This commit is contained in:
Basile Burg 2019-01-11 21:53:55 +01:00
parent bd93137646
commit e0f9abb843
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/u_dcd.pas
View File

@ -560,7 +560,9 @@ begin
begin begin
updateServerlistening; updateServerlistening;
exit; exit;
end; end
else if fTempLines.Count = 1 then
exit;
if not (fTempLines[0] = 'identifiers') then exit; if not (fTempLines[0] = 'identifiers') then exit;
list.Clear; list.Clear;
@ -587,6 +589,8 @@ begin
'l': kindObj := TObject(PtrUint(dckAlias)); 'l': kindObj := TObject(PtrUint(dckAlias));
't': kindObj := TObject(PtrUint(dckTemplate)); 't': kindObj := TObject(PtrUint(dckTemplate));
'T': kindObj := TObject(PtrUint(dckMixin)); '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. // internal DCD stuff, Should not to happen...report bug if it does.
'*', '?': continue; '*', '?': continue;
end; end;