Update lape + mORMot mm

Author: ollydev

Source/script/imports/simba.import_target.pas

@@ -1243,7 +1243,7 @@ procedure ImportTarget(Script: TSimbaScript);
     addGlobalFunc('function TTarget.KeyCodeFromChar(C: Char): EKeyCode', @_LapeTarget_KeyCodeFromChar);
 
     // FINDER
-    addGlobalFunc('function TTarget.MatchColor(Color: TColor; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox= [-1,-1,-1,-1]): TSingleMatrix;', @_LapeTarget_MatchColor);
+    addGlobalFunc('function TTarget.MatchColor(Color: TColor; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox = [-1,-1,-1,-1]): TSingleMatrix;', @_LapeTarget_MatchColor);
 
     addGlobalFunc('function TTarget.FindColor(Color: TColor; Tolerance: Single; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; overload', @_LapeTarget_FindColor1);
     addGlobalFunc('function TTarget.FindColor(Color: TColorTolerance; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; overload', @_LapeTarget_FindColor3);

Source/script/simba.script_genericbase.pas

@@ -105,7 +105,7 @@ procedure TLapeMethodBuilder.Build(DoReset: Boolean);
       OldState := getTempTokenizerState(FuncBody, '!' + FObjectType.ClassName + '::' + FuncName);
       Options := [lcoShortCircuit, lcoAlwaysInitialize, lcoLooseSyntax, lcoRangeCheck];
 
-      IncStackInfo();
+      IncStackInfo([]);
       try
         if (FuncHeader is TLapeType_MethodOfType) then
           FStackInfo.addSelfVar(TLapeType_MethodOfType(FuncHeader).SelfParam, TLapeType_MethodOfType(FuncHeader).ObjectType);
@@ -120,7 +120,7 @@ procedure TLapeMethodBuilder.Build(DoReset: Boolean);
         CheckAfterCompile();
         addDelayedExpression(Result, True, True);
       finally
-        DecStackInfo(True, False, (Result = nil));
+        DecStackInfo([lsfFunction], Result = nil);
       end;
 
       resetTokenizerState(OldState);