* patch by Alexander Shishkin to clean up $ifopt usage by $push/$pop, resolves #20346

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@19256 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 6 insertions, 6 deletions

diff --git a/packages/ncurses/examples/edit_demo.pp b/packages/ncurses/examples/edit_demo.pp
index 63ae884df8..9533ce1fa3 100644
--- a/packages/ncurses/examples/edit_demo.pp
+++ b/packages/ncurses/examples/edit_demo.pp
@@ -192,9 +192,9 @@ Begin
    End;
    If ret = nkEnter Then Begin
       Assign(tst,s);
-      {$I-}
+      {$push}{$I-}
       Reset(tst);
-      {$I+}
+      {$pop}
       If IoResult = 0 Then Begin
          Close(tst);
          Assign(f,s);
@@ -220,7 +220,7 @@ Begin
    ClearLines(hdr);
    lines := 0;
    win := nShowMessage('Reading "'+fnam+'"...',47,' Open File ',46,false);
-   {$I-}
+   {$push}{$I-}
    Repeat
       If Not Eof(f) Then Begin
          Readln(f,s);
@@ -229,7 +229,7 @@ Begin
       End;
    Until Eof(f) or err;
    Close(f);
-   {$I+}
+   {$pop}
    win^.Hide;
    win^.Done;
    line1 := hdr^.next;
@@ -256,7 +256,7 @@ Begin
    Assign(tmp,tnam);
    Assign(f,fnam);
    win := nShowMessage('Saving "'+fnam+'"...',47,' Save File ',46,false);
-   {$I-}
+   {$push}{$I-}
    Reset(tmp);
    If IoResult = 0 Then Begin
       Close(tmp);
@@ -271,7 +271,7 @@ Begin
       cur := cur^.next;
    Until cur = hdr;
    Close(f);
-   {$I+}
+   {$pop}
    win^.Hide;
    win^.Done;
 End;