|
@@ -3,7 +3,7 @@
|
|
Program GParMake;
|
|
Program GParMake;
|
|
|
|
|
|
Uses
|
|
Uses
|
|
- Classes;
|
|
|
|
|
|
+ SysUtils, Classes;
|
|
|
|
|
|
procedure Usage;
|
|
procedure Usage;
|
|
begin
|
|
begin
|
|
@@ -176,7 +176,7 @@ Function ProcessArgs: longint;
|
|
nexttestname:=''
|
|
nexttestname:=''
|
|
else
|
|
else
|
|
nexttestname:=filelist[i+1];
|
|
nexttestname:=filelist[i+1];
|
|
- if lowercase(copy(testname,1,length(testname)-4))<>lowercase(copy(nexttestname,1,length(nexttestname)-4)) then
|
|
|
|
|
|
+ if not SameText(copy(testname,1,length(testname)-4),copy(nexttestname,1,length(nexttestname)-4)) then
|
|
FlushChunk;
|
|
FlushChunk;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|