paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 16:00:16 +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. Always use types from the ctypes unit.
} }
unit IDEMiniLibC; unit IDEMiniLibC;
{$IFDEF linux} {$DEFINE DBG_ENABLE_TERMINAL} {$ENDIF}
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -17,6 +18,9 @@ interface
uses uses
ctypes ctypes
{$IFDEF DBG_ENABLE_TERMINAL}
, BaseUnix
{$ENDIF}
//,libc //,libc
; ;
@ -33,11 +37,9 @@ const
F_SETFD = 2; F_SETFD = 2;
F_GETFL = 3; F_GETFL = 3;
F_SETFL = 4; F_SETFL = 4;
{$ifdef cpusparc} {$IFDEF DBG_ENABLE_TERMINAL}
O_NONBLOCK = $4000; O_NONBLOCK = BaseUnix.O_NONBLOCK;
{$else} {$ENDIF}
O_NONBLOCK = &04000;
{$endif}
EINTR = 4; EINTR = 4;
NCCS = 32; NCCS = 32;