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

Disable nested proc vars in MPLC/MPL_compile due to I think a FPC bug?

This commit is contained in:
mysticbbs 2012-07-02 15:53:52 -04:00
parent 807db609df
commit 46f7fa92f1
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/mpl_compile.pas
View File

@ -2,6 +2,8 @@ Unit MPL_Compile;
{$I M_OPS.PAS} {$I M_OPS.PAS}
{$MODESWITCH NESTEDPROCVARS-}
Interface Interface
Uses Uses
@ -2007,7 +2009,6 @@ Begin
If UpdateInfo.ErrorType <> 0 Then Exit; If UpdateInfo.ErrorType <> 0 Then Exit;
// create proc var
Inc (CurVarNum); Inc (CurVarNum);
New (VarData[CurVarNum]); New (VarData[CurVarNum]);
@ -2284,8 +2285,6 @@ Begin
TargetType := ParseElementType(VarNum, True); TargetType := ParseElementType(VarNum, True);
OutString(Char(Byte(TargetType))); OutString(Char(Byte(TargetType)));
//asf
//asdf
Case TargetType of Case TargetType of
iString : ParseVarString; iString : ParseVarString;