From b264748278f2fa2ebe2b0553e6066fc09f410e4a Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Tue, 13 Oct 2020 13:58:54 +0200
Subject: [PATCH] fix building gdb commander on windows

---
 .appveyor.yml |  6 +++---
 src/u_gdb.pas | 14 +++++++-------
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/.appveyor.yml b/.appveyor.yml
index e6c1ffb3..c33f6119 100644
--- a/.appveyor.yml
+++ b/.appveyor.yml
@@ -13,9 +13,9 @@ artifacts:
   #- path: setup\output\dexed.%APPVEYOR_REPO_TAG_NAME%.win64.setup.zip
   #  name: zipped-installer
 
-branches:
-  only:
-    - /v\d*\.\d*\.\d*/
+#branches:
+#  only:
+#    - /v\d*\.\d*\.\d*/
 
 install:
   - ps: |
diff --git a/src/u_gdb.pas b/src/u_gdb.pas
index 4f7cb9e6..9a44cee1 100644
--- a/src/u_gdb.pas
+++ b/src/u_gdb.pas
@@ -7,8 +7,8 @@ interface
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, RegExpr, ComCtrls,
   PropEdits, GraphPropEdits, RTTIGrids, Dialogs, ExtCtrls, Menus, Buttons,
-  StdCtrls, process, fpjson, typinfo, Unix, ListViewFilterEdit, SynEdit,
-  ObjectInspector, math,
+  StdCtrls, process, fpjson, typinfo, {$IFDEF UNIX}Unix,{$ELSE} Windows,{$ENDIF}
+  ListViewFilterEdit, SynEdit, ObjectInspector, math,
   u_common, u_interfaces, u_widget, u_processes, u_observer, u_synmemo,
   u_sharedres, u_stringrange, u_dsgncontrols, u_dialogs, u_dbgitf,
   u_ddemangle, u_writableComponent, EditBtn, strutils, u_controls;
@@ -1330,7 +1330,7 @@ procedure TGdbWidget.updateMenu;
 var
   mnu: IMainMenu;
   itm: TMenuItem;
-  bmp: TBitmap;
+  bmp: Graphics.TBitmap;
 begin
   mnu := getMainMenu;
   if mnu.isNotAssigned then
@@ -1343,7 +1343,7 @@ begin
   end;
   fMenu.Clear;
 
-  bmp := TBitmap.Create;
+  bmp := Graphics.TBitmap.Create;
 
   itm := TMenuItem.Create(fMenu);
   itm.ShortCut:=fOptions.shortcuts.start;
@@ -1967,7 +1967,7 @@ begin
   end;
 
   if fInputName.fileExists then
-    deletefile(fInputName);
+    SysUtils.deletefile(fInputName);
   fInput:= TFileStream.Create(fInputName, fmCreate or fmShareExclusive);
   subjDebugStart(fSubj, self as IDebugger);
   case fDebugTargetKind of
@@ -2103,9 +2103,9 @@ begin
   if fOptions.keepRedirectedStreams then
     exit;
   if fOutputName.fileExists then
-    deleteFile(fOutputName);
+    SysUtils.deleteFile(fOutputName);
   if fInputName.fileExists then
-    deleteFile(fInputName);
+    SysUtils.deleteFile(fInputName);
 end;
 {$ENDREGION}