paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 11:43:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

debuggergdbmi: use errno of baseunix

Browse Source 
git-svn-id: trunk@44178 -
This commit is contained in:
mattias 2014-02-20 00:07:09 +00:00
parent f9ba490c53
commit 730a24305c
2 changed files with 1 additions and 8 deletions
components/lazdebuggergdbmi
gdbmimiscclasses.ppideminilibc.pas

2
components/lazdebuggergdbmi/gdbmimiscclasses.pp
View File

@ -34,7 +34,7 @@ interface
uses
SysUtils,
{$IFDEF DBG_ENABLE_TERMINAL}
IDEMiniLibC, Classes,
IDEMiniLibC, BaseUnix, Classes,
{$ENDIF}
DebugUtils, DbgIntfDebuggerBase;

7
components/lazdebuggergdbmi/ideminilibc.pas
View File

@ -61,8 +61,6 @@ type
c_ospeed : speed_t;
end;
function __errno_location: pcint; cdecl;external clib name '__errno_location';
function errno : error_t;
function tcgetattr(__fd:cint; __termios_p: Ptermios):cint;cdecl;external clib name 'tcgetattr';
function tcsetattr(__fd:cint; __optional_actions:cint; __termios_p: Ptermios):cint;cdecl;external clib name 'tcsetattr';
function __read(Handle: cint; var Buffer; Count: size_t): ssize_t; cdecl;external clib name 'read';
@ -76,10 +74,5 @@ function fcntl(Handle: cint; Command: cint; Arg: clong): cint; cdecl;external cl
implementation
function errno : error_t;
begin
Result:=__errno_location()^;
end;
end.