mirror of https://gitlab.com/basile.b/dexed.git
address a few compiler warnings
This commit is contained in:
parent
514ffb967a
commit
541ceb240f
|
@ -838,7 +838,7 @@ end;
|
||||||
procedure TNativeProject.checkSemantics;
|
procedure TNativeProject.checkSemantics;
|
||||||
var
|
var
|
||||||
i: integer;
|
i: integer;
|
||||||
s: string;
|
s: string = '';
|
||||||
d: DCompiler;
|
d: DCompiler;
|
||||||
begin
|
begin
|
||||||
i := currentConfiguration.otherOptions.customOptions.Count;
|
i := currentConfiguration.otherOptions.customOptions.Count;
|
||||||
|
|
|
@ -1928,7 +1928,7 @@ var
|
||||||
gdb: string;
|
gdb: string;
|
||||||
i: integer;
|
i: integer;
|
||||||
b: TPersistentBreakPoint;
|
b: TPersistentBreakPoint;
|
||||||
o: TDebugeeOption;
|
o: TDebugeeOption = nil;
|
||||||
const
|
const
|
||||||
asmFlavorStr: array[TAsmSyntax] of string = ('intel','att');
|
asmFlavorStr: array[TAsmSyntax] of string = ('intel','att');
|
||||||
begin
|
begin
|
||||||
|
|
|
@ -118,7 +118,7 @@ end;
|
||||||
procedure TToolInfo.refreshStatus;
|
procedure TToolInfo.refreshStatus;
|
||||||
var
|
var
|
||||||
pth: string;
|
pth: string;
|
||||||
cmp: DCompiler;
|
cmp: DCompiler = DCompiler.dmd;
|
||||||
begin
|
begin
|
||||||
if fLabel.isNotAssigned or fStatus.isNotAssigned then
|
if fLabel.isNotAssigned or fStatus.isNotAssigned then
|
||||||
exit;
|
exit;
|
||||||
|
|
|
@ -372,8 +372,10 @@ begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
destructor TMiniExplorerWidget.destroy;
|
destructor TMiniExplorerWidget.destroy;
|
||||||
|
{$if lcl_fullversion >= 2020000}
|
||||||
var
|
var
|
||||||
i: integer;
|
i: integer;
|
||||||
|
{$endif}
|
||||||
begin
|
begin
|
||||||
|
|
||||||
fMnxSubj.free;
|
fMnxSubj.free;
|
||||||
|
|
|
@ -3998,6 +3998,7 @@ end;
|
||||||
|
|
||||||
function gutterIconKindToColumn(value: TGutterIcon): integer;
|
function gutterIconKindToColumn(value: TGutterIcon): integer;
|
||||||
begin
|
begin
|
||||||
|
result := 0;
|
||||||
case value of
|
case value of
|
||||||
giBreakSet : result := 1;
|
giBreakSet : result := 1;
|
||||||
giBulletGreen : result := 2;
|
giBulletGreen : result := 2;
|
||||||
|
|
Loading…
Reference in New Issue