From 2d67b42fa69adbb8e71a7cf54906f275fb1502ff Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Tue, 24 Jul 2012 16:29:00 -0400
Subject: [PATCH] Nestedproc disable to fix listing buf caused by FPC bug

---
 mystic/bbs_filebase.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas
index 499663a..aa40808 100644
--- a/mystic/bbs_filebase.pas
+++ b/mystic/bbs_filebase.pas
@@ -1,6 +1,7 @@
 Unit bbs_FileBase;
 
 {$I M_OPS.PAS}
+{$MODESWITCH NESTEDPROCVARS-}
 
 Interface
 
@@ -1548,7 +1549,7 @@ Begin
   End;
 End;
 
-Function TFileBase.ListFiles (Mode : Byte; Data : String) : Byte;
+Function TFileBase.ListFiles (Mode: Byte; Data : String) : Byte;
 Var
   ListType  : Byte;    { 0 = ascii, 1 = ansi }
   DataFile  : File;
@@ -1745,9 +1746,9 @@ Var
   Begin
     If Session.io.ScreenInfo[4].X = 0 Then Exit;
 
-    Session.io.AnsiGotoXY   (Session.io.ScreenInfo[4].X, Session.io.ScreenInfo[4].Y);
-    Session.io.AnsiColor (Session.io.ScreenInfo[4].A);
-    Session.io.OutRaw        (strZero(BatchNum));
+    Session.io.AnsiGotoXY (Session.io.ScreenInfo[4].X, Session.io.ScreenInfo[4].Y);
+    Session.io.AnsiColor  (Session.io.ScreenInfo[4].A);
+    Session.io.OutRaw     (strZero(BatchNum));
   End;
 
   Procedure FullReDraw;