From 932e4950d374d94eddf6458bc2d93fed3a8362dc Mon Sep 17 00:00:00 2001
From: "John P (Dgby714)" <Dgby714@aol.com>
Date: Sat, 18 Dec 2010 14:35:27 -0500
Subject: [PATCH] MML: Increase function limit from 400 to 500.

---
 Units/MMLAddon/mmlpsthread.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Units/MMLAddon/mmlpsthread.pas b/Units/MMLAddon/mmlpsthread.pas
index cabc474..f6228f0 100644
--- a/Units/MMLAddon/mmlpsthread.pas
+++ b/Units/MMLAddon/mmlpsthread.pas
@@ -539,7 +539,7 @@ end;
 
 procedure AddFunction( Ptr : Pointer; DeclStr : String);
 begin;
-  if c >= 400 then
+  if c >= 500 then
     raise exception.create('PSThread.LoadMethods: Exported more than 400 functions');
   Result[c].FuncDecl:= DeclStr;
   Result[c].FuncPtr:= Ptr;
@@ -550,7 +550,7 @@ end;
 begin
   c := 0;
   CurrSection := 'Other';
-  SetLength(Result,400);
+  SetLength(Result, 500);
 
   {$i PSInc/psexportedmethods.inc}