From 1192202b2c9c008baabc1dd8646650e37938b6e5 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 18 Jun 2012 04:18:15 -0400
Subject: [PATCH] More record bugfixes

---
 mystic/mpl_common.pas  | 6 +++---
 mystic/mpl_execute.pas | 2 ++
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/mystic/mpl_common.pas b/mystic/mpl_common.pas
index 02cdc95..920b2f0 100644
--- a/mystic/mpl_common.pas
+++ b/mystic/mpl_common.pas
@@ -243,8 +243,8 @@ Begin
           AddProc    ({$IFDEF MPLPARSER} 'strippipe',      {$ENDIF} 's',      iString);  // 88
           AddProc    ({$IFDEF MPLPARSER} 'sizeof',         {$ENDIF} '*',      iLongInt); // 89
           AddProc    ({$IFDEF MPLPARSER} 'fillchar',       {$ENDIF} '*lc',    iNone);    // 90
-          AddProc    ({$IFDEF MPLPARSER} 'fwriterec',      {$ENDIF} 'fx',     iNone);    // 91
-          AddProc    ({$IFDEF MPLPARSER} 'freadrec',       {$ENDIF} 'fx',     iNone);    // 92
+          AddProc    ({$IFDEF MPLPARSER} 'fwriterec',      {$ENDIF} 'Fx',     iNone);    // 91
+          AddProc    ({$IFDEF MPLPARSER} 'freadrec',       {$ENDIF} 'Fx',     iNone);    // 92
 
           IW := 500; // BEGIN BBS-SPECIFIC STUFF
 
@@ -312,7 +312,7 @@ Begin
     1 : Begin
           {$IFNDEF MPLPARSER} TInterpEngine(S).IdxVarUser := X + 1; {$ENDIF}
 
-          AddVar ({$IFDEF MPLPARSER} 'userpermidx',   {$ENDIF} iLongInt);
+          AddVar ({$IFDEF MPLPARSER} 'userindex',     {$ENDIF} iLongInt);
           AddStr ({$IFDEF MPLPARSER} 'username',      {$ENDIF} iString, 30);
           AddStr ({$IFDEF MPLPARSER} 'useralias',     {$ENDIF} iString, 30);
           AddStr ({$IFDEF MPLPARSER} 'useraddress',   {$ENDIF} iString, 30);
diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas
index 97eff1b..b73a09c 100644
--- a/mystic/mpl_execute.pas
+++ b/mystic/mpl_execute.pas
@@ -1610,6 +1610,7 @@ Begin
     67  : Begin
             TempBool := Eof(File(Pointer(Param[1].vData)^));
             IoError  := IoResult;
+
             Store (TempBool, 1);
           End;
     68  : Begin
@@ -1703,6 +1704,7 @@ Begin
     92  : Begin
             BlockRead (File(Pointer(Param[1].vData)^), VarData[Param[2].vID]^.Data^, VarData[Param[2].vID]^.DataSize);
             IoError := IoResult;
+//            session.io.outfullln('pos: ' + stri2s(filepos(file(pointer(param[1].vdata)^))));
           End;
     500 : Begin
             TempStr := Session.io.GetInput(Param[1].B, Param[2].B, Param[3].B, Param[4].S);