mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 13:29:37 +02:00
replaced LinuxThreading with Unix, since it works now again with darwin
git-svn-id: trunk@8278 -
This commit is contained in:
parent
b89096b887
commit
f55bc9ffb0
@ -25,10 +25,6 @@ unit AsyncProcess;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
{$IFDEF Linux}
|
||||
{$DEFINE UseLinuxThreading}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
@ -83,9 +79,7 @@ begin
|
||||
// FIONREAD -> bytes available for reading without blocking
|
||||
// FIONSPACE -> bytes available for writing without blocking
|
||||
// does not work on all platforms (not defined on linux e.g.)
|
||||
{$ifdef UseLinuxThreading}
|
||||
if fpioctl(Output.Handle, FIONREAD, @Result) = -1 then
|
||||
{$ENDIF}
|
||||
Result := 0;
|
||||
end;
|
||||
end;
|
||||
|
@ -50,10 +50,6 @@ interface
|
||||
|
||||
{off $Define Disable_GC_SysColors}
|
||||
|
||||
{$IFDEF Linux}
|
||||
{$DEFINE UseLinuxThreading}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF gtk2}
|
||||
{$IFDEF NoGdkPixbufLib}
|
||||
{$UNDEF NoGdkPixbufLib}
|
||||
@ -135,7 +131,7 @@ type
|
||||
procedure FreeStockItems; virtual;
|
||||
procedure PassCmdLineOptions; override;
|
||||
|
||||
{$ifdef UseLinuxThreading}
|
||||
{$ifdef Unix}
|
||||
procedure InitSynchronizeSupport;
|
||||
procedure ProcessChildSignal;
|
||||
procedure PrepareSynchronize(AObject: TObject);
|
||||
|
@ -129,7 +129,7 @@ begin
|
||||
|
||||
end;
|
||||
|
||||
{$ifdef UseLinuxThreading}
|
||||
{$ifdef Unix}
|
||||
|
||||
// TThread.Synchronize support
|
||||
var
|
||||
@ -237,7 +237,7 @@ begin
|
||||
ClipboardTypeAtoms[ctSecondarySelection]:=GDK_SELECTION_SECONDARY;
|
||||
ClipboardTypeAtoms[ctClipboard]:=gdk_atom_intern('CLIPBOARD',GdkFalse);
|
||||
|
||||
{$ifdef UseLinuxThreading}
|
||||
{$ifdef Unix}
|
||||
InitSynchronizeSupport;
|
||||
InstallSignalHandler;
|
||||
{$endif}
|
||||
@ -522,7 +522,7 @@ begin
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
{$ifdef UseLinuxThreading}
|
||||
{$ifdef Unix}
|
||||
|
||||
procedure TGtkWidgetSet.PrepareSynchronize(AObject: TObject);
|
||||
begin
|
||||
|
Loading…
Reference in New Issue
Block a user