mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 18:29:09 +02:00
testfilenames lowercase
git-svn-id: branches/tg74/avx512@39723 -
This commit is contained in:
parent
38ab34978b
commit
5224393bbb
@ -3807,7 +3807,7 @@ begin
|
|||||||
|
|
||||||
while sl.Count < 8 do sl.Add('');
|
while sl.Count < 8 do sl.Add('');
|
||||||
|
|
||||||
NewOpCode := sl[0];
|
NewOpCode := ansilowercase(sl[0]);
|
||||||
if NewOpCode <> '' then
|
if NewOpCode <> '' then
|
||||||
begin
|
begin
|
||||||
if NewOpCode <> LastOpCode then
|
if NewOpCode <> LastOpCode then
|
||||||
|
Loading…
Reference in New Issue
Block a user