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

Fix for linux.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@137 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-10-17 22:54:08 +00:00
parent 85bb6c6e1d
commit 3220330c90
1 changed files with 318 additions and 311 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Units/MMLAddon/mmlpsthread.pas
View File

@ -79,6 +79,7 @@ threadvar
{Some General PS Functions here} {Some General PS Functions here}
procedure psWriteln(str : string); procedure psWriteln(str : string);
{$IFDEF WINDOWS}
var var
CriticalSec : TRTLCriticalSection; CriticalSec : TRTLCriticalSection;
begin begin
@ -94,6 +95,12 @@ begin
System.LeaveCriticalSection(CriticalSec); System.LeaveCriticalSection(CriticalSec);
end; end;
end; end;
{$ELSE}
begin
writeln(str);
end;
{$ENDIF}
function ThreadSafeCall(ProcName: string; var V: TVariantArray): Variant; function ThreadSafeCall(ProcName: string; var V: TVariantArray): Variant;