testfilenames lowercase

git-svn-id: branches/tg74/avx512@39723 -
This commit is contained in:
tg74 2018-09-10 08:14:22 +00:00
parent 38ab34978b
commit 5224393bbb

View File

@ -3807,7 +3807,7 @@ begin
while sl.Count < 8 do sl.Add('');
NewOpCode := sl[0];
NewOpCode := ansilowercase(sl[0]);
if NewOpCode <> '' then
begin
if NewOpCode <> LastOpCode then