moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 09:12:19 -05:00
Code Issues Releases Wiki Activity

Commit so I can add setting for interpreter ;ater.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@489 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-01-27 13:01:37 +00:00
parent e4aa31d3bd
commit c4f57298d5
3 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
trunk/Projects/SAMufasaGUI/project1.lpr
View File

@ -25,6 +25,8 @@ program project1;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{$DEFINE SIMBA}
uses uses
{$IFDEF UNIX}{$IFDEF UseCThreads} {$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads, cmem, cthreads, cmem,

4
trunk/Projects/SAMufasaGUI/testunit.pas
View File

@ -533,8 +533,8 @@ begin
PluginsPath := LoadSettingDef('Settings/Plugins/Path', ExpandFileName(MainDir + DS + '..' + DS + '..'+ DS + 'Plugins'+ DS)); PluginsPath := LoadSettingDef('Settings/Plugins/Path', ExpandFileName(MainDir + DS + '..' + DS + '..'+ DS + 'Plugins'+ DS));
ScriptErrorLine:= -1; ScriptErrorLine:= -1;
CurrentSyncInfo.SyncMethod:= @Self.SafeCallThread; CurrentSyncInfo.SyncMethod:= @Self.SafeCallThread;
//ScriptThread := TCPThread.Create('libcpascal',True,@CurrentSyncInfo,PluginsPath); ScriptThread := TCPThread.Create('libcpascal',True,@CurrentSyncInfo,PluginsPath);
ScriptThread := TPSThread.Create(True,@CurrentSyncInfo,PluginsPath); //ScriptThread := TPSThread.Create(True,@CurrentSyncInfo,PluginsPath);
{$IFNDEF TERMINALWRITELN} {$IFNDEF TERMINALWRITELN}
ScriptThread.SetDebug(@formWriteln); ScriptThread.SetDebug(@formWriteln);
ScriptThread.DebugMemo := Self.Memo1; ScriptThread.DebugMemo := Self.Memo1;

4
trunk/Units/MMLAddon/mmlpsthread.pas
View File

@ -186,7 +186,9 @@ uses
strutils, strutils,
tpa, //Tpa stuff tpa, //Tpa stuff
forms,//Forms forms,//Forms
lclintf; // for GetTickCount and others. lclintf // for GetTickCount and others.
{$IFDEF SIMBA} ,testunit {$ENDIF}
;
{$define PS_StdCall} {$define PS_StdCall}
{$MACRO ON} {$MACRO ON}