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

View File

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