From 8c3e397c5920444fc9c1a5c44747708acf1e0467 Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Sat, 5 Jan 2019 21:59:17 +0300
Subject: [PATCH] fix packmap on win32

---
 src/editor/f_packmap.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/editor/f_packmap.pas b/src/editor/f_packmap.pas
index f9bb418..0c361c5 100644
--- a/src/editor/f_packmap.pas
+++ b/src/editor/f_packmap.pas
@@ -129,8 +129,14 @@ begin
 
 // Не перезаписывать WAD, а дополнить:
   if not cbAdd.Checked then
+  begin
     if FileExists(eWAD.Text) then
-      ASSERT(RenameFile(eWAD.Text, eWAD.Text + '.bak0'));
+    begin
+      if FileExists(eWAD.Text + '.bak0') then
+        ASSERT(DeleteFile(eWAD.Text + '.bak0'));
+      ASSERT(RenameFile(eWAD.Text, eWAD.Text + '.bak0'))
+    end
+  end;
 
 // Читаем карту из памяти:
   mr := TMapReader_1.Create();
-- 
2.29.2