only test asm KW if tok is tkKeywd

This commit is contained in:
Basile Burg 2015-03-24 07:40:33 +01:00
parent 6d7193877c
commit dfbe175866
1 changed files with 3 additions and 2 deletions

View File

@ -814,8 +814,9 @@ begin
if fLineBuf[FTokStart..fTokStop-1] = fCurrIdent then
fTokKind := tkCurrI;
//check asm range
if fLineBuf[FTokStart..fTokStop-1] = 'asm' then
fCurrRange.rangeKinds += [rkAsm];
if fTokKind = tkKeywd then
if fLineBuf[FTokStart..fTokStop-1] = 'asm' then
fCurrRange.rangeKinds += [rkAsm];
exit;
end;