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

style, push/pop temp directive

This commit is contained in:
Basile Burg 2016-02-06 18:28:24 +01:00
parent 2c2909c447
commit 76edd5214e
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_gdb.pas
View File

@ -234,10 +234,10 @@ begin
nme := doc.fileName; nme := doc.fileName;
if not nme.fileExists then if not nme.fileExists then
continue; continue;
{$WARNINGS OFF} {$PUSH}{$WARNINGS OFF}{$HINTS OFF}
for j := 0 to doc.breakPointsCount-1 do for j := 0 to doc.breakPointsCount-1 do
fFileLineBrks.AddObject(nme, TObject(pointer(doc.BreakPointLine(j)))); fFileLineBrks.AddObject(nme, TObject(pointer(doc.BreakPointLine(j))));
{$WARNINGS ON} {$POP}
end; end;
end; end;

12
src/ce_symlist.pas
View File

@ -641,9 +641,9 @@ begin
if Tree.Selected.isNil then exit; if Tree.Selected.isNil then exit;
if Tree.Selected.Data.isNil then exit; if Tree.Selected.Data.isNil then exit;
// //
{$HINTS OFF} {$PUSH}{$WARNINGS OFF}{$HINTS OFF}
line := NativeUInt(Tree.Selected.Data); line := NativeUInt(Tree.Selected.Data);
{$HINTS ON} {$POP}
fDoc.CaretY := line; fDoc.CaretY := line;
fDoc.SelectLine; fDoc.SelectLine;
end; end;
@ -727,9 +727,9 @@ var
i: Integer; i: Integer;
begin begin
cat := getCatNode(origin, sym.symType); cat := getCatNode(origin, sym.symType);
{$HINTS OFF} {$PUSH}{$WARNINGS OFF}{$HINTS OFF}
node := tree.Items.AddChildObject(cat, sym.name, Pointer(sym.fline)); node := tree.Items.AddChildObject(cat, sym.name, Pointer(sym.fline));
{$HINTS ON} {$POP}
if not fShowChildCategories then node := nil; if not fShowChildCategories then node := nil;
cat.Visible:=true; cat.Visible:=true;
for i := 0 to sym.subs.Count-1 do for i := 0 to sym.subs.Count-1 do
@ -796,9 +796,9 @@ var
'Alias', 'Enum', 'Import', 'Variable': 'Alias', 'Enum', 'Import', 'Variable':
continue; continue;
end; end;
{$HINTS OFF} {$PUSH}{$WARNINGS OFF}{$HINTS OFF}
line := NativeUInt(root.Items[i].Data); line := NativeUInt(root.Items[i].Data);
{$HINTS ON} {$POP}
if line > target then if line > target then
continue; continue;
if line > nearest then if line > nearest then