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;
if not nme.fileExists then
continue;
{$WARNINGS OFF}
{$PUSH}{$WARNINGS OFF}{$HINTS OFF}
for j := 0 to doc.breakPointsCount-1 do
fFileLineBrks.AddObject(nme, TObject(pointer(doc.BreakPointLine(j))));
{$WARNINGS ON}
{$POP}
end;
end;

12
src/ce_symlist.pas
View File

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