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

Fix for USES MBASE crashing

This commit is contained in:
mysticbbs 2012-03-03 21:30:18 -05:00
parent 14a82d5674
commit cc4b41d468
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mystic/mpl_common.pas
View File

@ -313,8 +313,8 @@ Begin
AddVar ({$IFDEF MPLPARSER} 'userlaston', {$ENDIF} iLongInt); AddVar ({$IFDEF MPLPARSER} 'userlaston', {$ENDIF} iLongInt);
AddVar ({$IFDEF MPLPARSER} 'userdatetype', {$ENDIF} iByte); AddVar ({$IFDEF MPLPARSER} 'userdatetype', {$ENDIF} iByte);
AddVar ({$IFDEF MPLPARSER} 'usercalls', {$ENDIF} iLongInt); AddVar ({$IFDEF MPLPARSER} 'usercalls', {$ENDIF} iLongInt);
AddVar ({$IFDEF MPLPARSER} 'userpassword', {$ENDIF} iString); AddStr ({$IFDEF MPLPARSER} 'userpassword', {$ENDIF} iString, 15);
AddVar ({$IFDEF MPLPARSER} 'userflags', {$ENDIF} iByte); AddVar ({$IFDEF MPLPARSER} 'userflags', {$ENDIF} iLongInt);
End; End;
2 : Begin 2 : Begin
AddPointer ({$IFDEF MPLPARSER} 'cfgsyspath', {$ENDIF} iString, mysMaxPathSize, {$IFNDEF MPLPARSER} @Config.SystemPath {$ELSE} NIL {$ENDIF}); AddPointer ({$IFDEF MPLPARSER} 'cfgsyspath', {$ENDIF} iString, mysMaxPathSize, {$IFNDEF MPLPARSER} @Config.SystemPath {$ELSE} NIL {$ENDIF});
@ -336,10 +336,10 @@ Begin
AddVar ({$IFDEF MPLPARSER} 'mbaseindex', {$ENDIF} iInteger); AddVar ({$IFDEF MPLPARSER} 'mbaseindex', {$ENDIF} iInteger);
AddStr ({$IFDEF MPLPARSER} 'mbasename', {$ENDIF} iString, 40); AddStr ({$IFDEF MPLPARSER} 'mbasename', {$ENDIF} iString, 40);
AddStr ({$IFDEF MPLPARSER} 'mbaseacs', {$ENDIF} iString, 20); AddStr ({$IFDEF MPLPARSER} 'mbaseacs', {$ENDIF} iString, 30);
AddStr ({$IFDEF MPLPARSER} 'mbaseracs', {$ENDIF} iString, 20); AddStr ({$IFDEF MPLPARSER} 'mbaseracs', {$ENDIF} iString, 30);
AddStr ({$IFDEF MPLPARSER} 'mbasepacs', {$ENDIF} iString, 20); AddStr ({$IFDEF MPLPARSER} 'mbasepacs', {$ENDIF} iString, 30);
AddStr ({$IFDEF MPLPARSER} 'mbasesacs', {$ENDIF} iString, 20); AddStr ({$IFDEF MPLPARSER} 'mbasesacs', {$ENDIF} iString, 30);
End; End;
4 : Begin 4 : Begin
{$IFNDEF MPLPARSER} TInterpEngine(S).IdxVarMGroup := X + 1; {$ENDIF} {$IFNDEF MPLPARSER} TInterpEngine(S).IdxVarMGroup := X + 1; {$ENDIF}