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

fix, module name get be retrieved "std.string"

This commit is contained in:
Basile Burg 2014-12-06 08:14:53 +01:00
parent 5d777a850f
commit f14b48da75
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ce_dlang.pas
View File

@ -886,15 +886,16 @@ begin
mtok := false; mtok := false;
for ltk in aTokenList do for ltk in aTokenList do
begin begin
if mtok then if mtok then begin
begin case ltk.kind of
if ltk.kind = ltkIdentifier then ltkIdentifier, ltkKeyword:
result += ltk.data; result += ltk.data;
if ltk.kind = ltkSymbol then ltkSymbol:
case ltk.data of case ltk.data of
'.': result += ltk.data; '.': result += ltk.data;
';': exit; ';': exit;
end; end;
end;
end end
else else
if ltk.kind = ltkKeyword then if ltk.kind = ltkKeyword then