moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-26 03:02:15 -05:00
Code Issues Releases Wiki Activity

Setting for CPascal or PascalScript.

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

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

@ -511,6 +511,7 @@ var
AppPath : string; AppPath : string;
pluginspath: string; pluginspath: string;
ScriptPath : string; ScriptPath : string;
UseCPascal: String;
loadFontsOnScriptStart: String; loadFontsOnScriptStart: String;
begin begin
@ -533,8 +534,11 @@ 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); UseCPascal := LoadSettingDef('Settings/Interpreter/UseCPascal', 'True');
//ScriptThread := TPSThread.Create(True,@CurrentSyncInfo,PluginsPath); if lowercase(UseCPascal) = 'true' then
ScriptThread := TCPThread.Create('libcpascal',True,@CurrentSyncInfo,PluginsPath)
else
ScriptThread := TPSThread.Create(True,@CurrentSyncInfo,PluginsPath);
{$IFNDEF TERMINALWRITELN} {$IFNDEF TERMINALWRITELN}
ScriptThread.SetDebug(@formWriteln); ScriptThread.SetDebug(@formWriteln);
ScriptThread.DebugMemo := Self.Memo1; ScriptThread.DebugMemo := Self.Memo1;

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

@ -187,7 +187,6 @@ uses
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}