From c4f57298d53f50a197af1d98ebeb0439e102d1bc Mon Sep 17 00:00:00 2001
From: Wizzup? <Wizzup?@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Wed, 27 Jan 2010 13:01:37 +0000
Subject: [PATCH] Commit so I can add setting for interpreter ;ater.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@489 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 trunk/Projects/SAMufasaGUI/project1.lpr | 2 ++
 trunk/Projects/SAMufasaGUI/testunit.pas | 4 ++--
 trunk/Units/MMLAddon/mmlpsthread.pas    | 4 +++-
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/trunk/Projects/SAMufasaGUI/project1.lpr b/trunk/Projects/SAMufasaGUI/project1.lpr
index 5b244b4..fe2dc32 100644
--- a/trunk/Projects/SAMufasaGUI/project1.lpr
+++ b/trunk/Projects/SAMufasaGUI/project1.lpr
@@ -25,6 +25,8 @@ program project1;
 
 {$mode objfpc}{$H+}
 
+{$DEFINE SIMBA}
+
 uses
   {$IFDEF UNIX}{$IFDEF UseCThreads}
   cthreads, cmem,
diff --git a/trunk/Projects/SAMufasaGUI/testunit.pas b/trunk/Projects/SAMufasaGUI/testunit.pas
index 56f7cd2..9941a8a 100644
--- a/trunk/Projects/SAMufasaGUI/testunit.pas
+++ b/trunk/Projects/SAMufasaGUI/testunit.pas
@@ -533,8 +533,8 @@ begin
     PluginsPath := LoadSettingDef('Settings/Plugins/Path', ExpandFileName(MainDir + DS + '..' + DS + '..'+ DS + 'Plugins'+ DS));
     ScriptErrorLine:= -1;
     CurrentSyncInfo.SyncMethod:= @Self.SafeCallThread;
-    //ScriptThread := TCPThread.Create('libcpascal',True,@CurrentSyncInfo,PluginsPath);
-    ScriptThread := TPSThread.Create(True,@CurrentSyncInfo,PluginsPath);
+    ScriptThread := TCPThread.Create('libcpascal',True,@CurrentSyncInfo,PluginsPath);
+    //ScriptThread := TPSThread.Create(True,@CurrentSyncInfo,PluginsPath);
     {$IFNDEF TERMINALWRITELN}
     ScriptThread.SetDebug(@formWriteln);
     ScriptThread.DebugMemo := Self.Memo1;
diff --git a/trunk/Units/MMLAddon/mmlpsthread.pas b/trunk/Units/MMLAddon/mmlpsthread.pas
index 4a5d2ac..ba64b11 100644
--- a/trunk/Units/MMLAddon/mmlpsthread.pas
+++ b/trunk/Units/MMLAddon/mmlpsthread.pas
@@ -186,7 +186,9 @@ uses
   strutils,
   tpa, //Tpa stuff
   forms,//Forms
-  lclintf; // for GetTickCount and others.
+  lclintf  // for GetTickCount and others.
+  {$IFDEF SIMBA} ,testunit {$ENDIF}
+  ;
 
 {$define PS_StdCall}
 {$MACRO ON}