paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 22:11:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix problem with tcsetattr overloadwith const parameter

Browse Source 
git-svn-id: trunk@14348 -
This commit is contained in:
pierre 2009-12-07 11:07:55 +00:00
parent f34978bf7b
commit c7179f243b
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/solaris/termios.inc
View File

@ -67,13 +67,13 @@
function tcgetattr(_para1:cint; var _para2:termios):cint;cdecl;external; function tcgetattr(_para1:cint; var _para2:termios):cint;cdecl;external;
(* Const before type ignored *)
function tcsetattr(_para1:cint; _para2:cint; const _para3:termios):cint;cdecl;external;
function tcgetattr(_para1:cint; _para2:Ptermios):cint;cdecl;external; function tcgetattr(_para1:cint; _para2:Ptermios):cint;cdecl;external;
(* Const before type ignored *) (* Const before type ignored *)
function tcsetattr(_para1:cint; _para2:cint; _para3:Ptermios):cint;cdecl;external; function tcsetattr(_para1:cint; _para2:cint; _para3:Ptermios):cint;cdecl;external;
(* Const before type ignored *)
function tcsetattr(_para1:cint; _para2:cint; const _para3:termios):cint;cdecl;
// function tcsendbreak(_para1:cint; _para2:cint):cint;cdecl; // function tcsendbreak(_para1:cint; _para2:cint):cint;cdecl;

8
rtl/solaris/termiosproc.inc
View File

@ -18,6 +18,14 @@
IOCtl and Termios calls IOCtl and Termios calls
******************************************************************************} ******************************************************************************}
{ Old version directly called the C code but
this is wrong if the constant is pusehd directly on stack,
without passing the address as is done for i386 code generator PM }
function tcsetattr(_para1:cint; _para2:cint; const _para3:termios):cint;cdecl;
begin
tcsetattr:=tcsetattr(_para1,_para2,@_para3);
end;
Procedure CFMakeRaw(var tios:TermIOS); Procedure CFMakeRaw(var tios:TermIOS);