From 46f7fa92f177245a0ec28fcab35a3b39654dc45d Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 2 Jul 2012 15:53:52 -0400
Subject: [PATCH] Disable nested proc vars in MPLC/MPL_compile due to I think a
 FPC bug?

---
 mystic/mpl_compile.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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