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 b264748278
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.appveyor.yml
View File

@ -13,9 +13,9 @@ artifacts:
#- path: setup\output\dexed.%APPVEYOR_REPO_TAG_NAME%.win64.setup.zip #- path: setup\output\dexed.%APPVEYOR_REPO_TAG_NAME%.win64.setup.zip
# name: zipped-installer # name: zipped-installer
branches: #branches:
only: # only:
- /v\d*\.\d*\.\d*/ # - /v\d*\.\d*\.\d*/
install: install:
- ps: | - ps: |

14
src/u_gdb.pas
View File

@ -7,8 +7,8 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, RegExpr, ComCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, RegExpr, ComCtrls,
PropEdits, GraphPropEdits, RTTIGrids, Dialogs, ExtCtrls, Menus, Buttons, PropEdits, GraphPropEdits, RTTIGrids, Dialogs, ExtCtrls, Menus, Buttons,
StdCtrls, process, fpjson, typinfo, Unix, ListViewFilterEdit, SynEdit, StdCtrls, process, fpjson, typinfo, {$IFDEF UNIX}Unix,{$ELSE} Windows,{$ENDIF}
ObjectInspector, math, ListViewFilterEdit, SynEdit, ObjectInspector, math,
u_common, u_interfaces, u_widget, u_processes, u_observer, u_synmemo, u_common, u_interfaces, u_widget, u_processes, u_observer, u_synmemo,
u_sharedres, u_stringrange, u_dsgncontrols, u_dialogs, u_dbgitf, u_sharedres, u_stringrange, u_dsgncontrols, u_dialogs, u_dbgitf,
u_ddemangle, u_writableComponent, EditBtn, strutils, u_controls; u_ddemangle, u_writableComponent, EditBtn, strutils, u_controls;
@ -1330,7 +1330,7 @@ procedure TGdbWidget.updateMenu;
var var
mnu: IMainMenu; mnu: IMainMenu;
itm: TMenuItem; itm: TMenuItem;
bmp: TBitmap; bmp: Graphics.TBitmap;
begin begin
mnu := getMainMenu; mnu := getMainMenu;
if mnu.isNotAssigned then if mnu.isNotAssigned then
@ -1343,7 +1343,7 @@ begin
end; end;
fMenu.Clear; fMenu.Clear;
bmp := TBitmap.Create; bmp := Graphics.TBitmap.Create;
itm := TMenuItem.Create(fMenu); itm := TMenuItem.Create(fMenu);
itm.ShortCut:=fOptions.shortcuts.start; itm.ShortCut:=fOptions.shortcuts.start;
@ -1967,7 +1967,7 @@ begin
end; end;
if fInputName.fileExists then if fInputName.fileExists then
deletefile(fInputName); SysUtils.deletefile(fInputName);
fInput:= TFileStream.Create(fInputName, fmCreate or fmShareExclusive); fInput:= TFileStream.Create(fInputName, fmCreate or fmShareExclusive);
subjDebugStart(fSubj, self as IDebugger); subjDebugStart(fSubj, self as IDebugger);
case fDebugTargetKind of case fDebugTargetKind of
@ -2103,9 +2103,9 @@ begin
if fOptions.keepRedirectedStreams then if fOptions.keepRedirectedStreams then
exit; exit;
if fOutputName.fileExists then if fOutputName.fileExists then
deleteFile(fOutputName); SysUtils.deleteFile(fOutputName);
if fInputName.fileExists then if fInputName.fileExists then
deleteFile(fInputName); SysUtils.deleteFile(fInputName);
end; end;
{$ENDREGION} {$ENDREGION}