From 010f5c3041c3c39c9e265d20105f277107af75af Mon Sep 17 00:00:00 2001
From: Michalis Kamburelis <michalis.kambi@gmail.com>
Date: Thu, 6 Apr 2017 03:16:52 +0200
Subject: [PATCH] Fix compilation (ForceDirectories instead of ForceDirectory)

---
 tools/common/crossfiles.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/common/crossfiles.pas b/tools/common/crossfiles.pas
index 2321f32..c73baca 100644
--- a/tools/common/crossfiles.pas
+++ b/tools/common/crossfiles.pas
@@ -513,7 +513,7 @@ procedure TFileExtractThread.Execute;
   A, B: string;
 begin
   try
-    ForceDirectory(IncludeTrailingPathDelimiter(FLocation));
+    ForceDirectories(IncludeTrailingPathDelimiter(FLocation));
     Path := ExtractFilePath(FFileName);
     FileName := ExtractFileName(FFileName);
     Folder := StrFirstOf(FileName, '.');