paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 23:18:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideminilibc defer O_NONBLOCK to BaseUnix.O_NONBLOCK; Issue #0020314

Browse Source 
git-svn-id: trunk@58523 -
This commit is contained in:
martin 2018-07-14 21:09:11 +00:00
parent 62434fa788
commit 81b75932ab
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/debuggerintf/ideminilibc.pas
View File

@ -8,6 +8,7 @@
Always use types from the ctypes unit.
}
unit IDEMiniLibC;
{$IFDEF linux} {$DEFINE DBG_ENABLE_TERMINAL} {$ENDIF}
{$mode objfpc}{$H+}
@ -17,6 +18,9 @@ interface
uses
ctypes
{$IFDEF DBG_ENABLE_TERMINAL}
, BaseUnix
{$ENDIF}
//,libc
;
@ -33,11 +37,9 @@ const
F_SETFD = 2;
F_GETFL = 3;
F_SETFL = 4;
{$ifdef cpusparc}
O_NONBLOCK = $4000;
{$else}
O_NONBLOCK = &04000;
{$endif}
{$IFDEF DBG_ENABLE_TERMINAL}
O_NONBLOCK = BaseUnix.O_NONBLOCK;
{$ENDIF}
EINTR = 4;
NCCS = 32;