paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix Mantis #21665 for net/free/openbsd

Browse Source 
git-svn-id: trunk@21232 -
This commit is contained in:
marco 2012-05-05 15:03:12 +00:00
parent 6f0861e666
commit 2213b67134
3 changed files with 47 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/freebsd/termiosproc.inc
View File

@ -109,9 +109,23 @@ begin
end; end;
end; end;
Function TCFlush(fd,qsel:cint):cint; {$ifdef VER2_0}inline;{$endif} const FREAD = 1; // marked "BSD visible"
FWRITE = 2;
Function TCFlush(fd,qsel:cint):cint; {$ifdef VER2_0}inline;{$endif}
var comval : cint;
begin begin
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(qsel)); case qsel of
TCIFlush : comval:=FREAD;
TCOFlush : comval:=FWRITE;
TCIOFlush : comval:=FREAD or FWRITE;
else
begin
errno:=ESysEINVAL;
exit(-1);
end;
end;
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(@comval));
end; end;
Function IsATTY (Handle:cint):cint; Function IsATTY (Handle:cint):cint;

18
rtl/netbsd/termiosproc.inc
View File

@ -105,9 +105,23 @@ begin
end; end;
end; end;
Function TCFlush(fd,qsel:cint):cint; const FREAD = 1; // marked "BSD visible"
FWRITE = 2;
Function TCFlush(fd,qsel:cint):cint; {$ifdef VER2_0}inline;{$endif}
var comval : cint;
begin begin
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(qsel)); case qsel of
TCIFlush : comval:=FREAD;
TCOFlush : comval:=FWRITE;
TCIOFlush : comval:=FREAD or FWRITE;
else
begin
errno:=ESysEINVAL;
exit(-1);
end;
end;
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(@comval));
end; end;
Function IsATTY (Handle:cint):cint; Function IsATTY (Handle:cint):cint;

16
rtl/openbsd/termiosproc.inc
View File

@ -105,9 +105,23 @@ begin
end; end;
end; end;
const FREAD = 1; // marked "BSD visible"
FWRITE = 2;
Function TCFlush(fd,qsel:cint):cint; {$ifdef VER2_0}inline;{$endif} Function TCFlush(fd,qsel:cint):cint; {$ifdef VER2_0}inline;{$endif}
var comval : cint;
begin begin
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(qsel)); case qsel of
TCIFlush : comval:=FREAD;
TCOFlush : comval:=FWRITE;
TCIOFlush : comval:=FREAD or FWRITE;
else
begin
errno:=ESysEINVAL;
exit(-1);
end;
end;
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(@comval));
end; end;
Function IsATTY (Handle:cint):cint; Function IsATTY (Handle:cint):cint;