eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Nestedproc disable to fix listing buf caused by FPC bug

This commit is contained in:
mysticbbs 2012-07-24 16:29:00 -04:00
parent 429c1e564b
commit 2d67b42fa6
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mystic/bbs_filebase.pas
View File

@ -1,6 +1,7 @@
Unit bbs_FileBase; Unit bbs_FileBase;
{$I M_OPS.PAS} {$I M_OPS.PAS}
{$MODESWITCH NESTEDPROCVARS-}
Interface Interface
@ -1548,7 +1549,7 @@ Begin
End; End;
End; End;
Function TFileBase.ListFiles (Mode : Byte; Data : String) : Byte; Function TFileBase.ListFiles (Mode: Byte; Data : String) : Byte;
Var Var
ListType : Byte; { 0 = ascii, 1 = ansi } ListType : Byte; { 0 = ascii, 1 = ansi }
DataFile : File; DataFile : File;