paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 13:29:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Canged Linux derective to unit, so it will work on xxxbsd?

Browse Source 
git-svn-id: trunk@4284 -
This commit is contained in:
marc 2003-06-17 23:13:06 +00:00
parent 8ac455ac96
commit 357f6a4213
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
debugger/cmdlinedebugger.pp
View File

@ -79,7 +79,8 @@ implementation
//////////////////////////////////////////////////
uses
{$IFDEF Linux}
{.$IFDEF Linux}
{$IFDEF UNIX}
{$IFDEF Ver1_0}
Linux,
{$ELSE}
@ -95,7 +96,8 @@ uses
------------------------------------------------------------------------------}
procedure SendBreak(const AHandle: Integer);
begin
{$IFDEF Linux}
{.$IFDEF Linux}
{$IFDEF UNIX}
if AHandle <> 0
then Kill(AHandle, SIGINT);
{$ENDIF}
@ -107,7 +109,8 @@ end;
Returns: BitArray of handles set, 0 when an error ocoured
------------------------------------------------------------------------------}
function WaitForHandles(const AHandles: array of Integer): Integer;
{$IFDEF Linux}
{.$IFDEF Linux}
{$IFDEF UNIX}
var
n, R, Max, Count: Integer;
TimeOut: Integer;
@ -366,6 +369,9 @@ end;
end.
{ =============================================================================
$Log$
Revision 1.16 2003/06/17 23:13:06 marc
* Canged Linux derective to unit, so it will work on xxxbsd?
Revision 1.15 2003/05/27 20:58:12 mattias
implemented enable and deleting breakpoint in breakpoint dlg