1
0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-11 05:38:00 -05:00

Fix for linux.

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

View File

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