forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix building gdb commander on windows

This commit is contained in:
Basile Burg 2020-10-13 13:58:54 +02:00
parent 7c783e3eb9
commit a070a21165
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/u_gdb.pas
View File

@ -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}