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

More record bugfixes

This commit is contained in:
mysticbbs 2012-06-18 04:18:15 -04:00
parent 61a896c343
commit 1192202b2c
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/mpl_common.pas
View File

@ -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);

2
mystic/mpl_execute.pas
View File

@ -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);