MPGORunner and TestRunner modified

pascalabcnet · May 15, 2015 · e11ebef · e11ebef
1 parent f07f775
commit e11ebef
Show file tree

Hide file tree

Showing 7 changed files with 4 additions and 2 deletions.
diff --git a/Release/empty → OptimizedAssemblies/.gitignore b/Release/empty → OptimizedAssemblies/.gitignore
diff --git a/bin/Temp/.empty → Release/.gitignore b/bin/Temp/.empty → Release/.gitignore
diff --git a/TestSuite/exe/.gitignore b/TestSuite/exe/.gitignore
diff --git a/bin/MPGORunner.exe b/bin/MPGORunner.exe
diff --git a/bin/MPGORunner.pas b/bin/MPGORunner.pas
@@ -6,7 +6,8 @@
   var files := Directory.GetFiles(Path.Combine(pabcpath, 'OptimizedAssemblies'));
   foreach var s in files do
   begin
-    &File.Delete(s);
+    if Path.GetFileName(s) <> '.gitignore' then
+      &File.Delete(s);
   end;
   var mpgo := Path.Combine(pabcpath,'Utils\Performance Tools\mpgo.exe');
   psi.FileName := mpgo;

diff --git a/bin/TestRunner.exe b/bin/TestRunner.exe
diff --git a/bin/TestRunner.pas b/bin/TestRunner.pas
@@ -219,7 +219,8 @@ procedure ClearDirByPattern(dir, pattern: string);
   for var i := 0 to files.Length - 1 do
   begin
     try
-      &File.Delete(files[i]);
+      if Path.GetFileName(files[i]) <> '.gitignore' then
+        &File.Delete(files[i]);
     except
     end;
   end;