paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 15:47:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* serial handles higher baudrates if constants are available

Browse Source 
git-svn-id: trunk@49575 -
This commit is contained in:
florian 2021-07-02 20:00:33 +00:00
parent f0543ad8d5
commit b463d511bf
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
packages/rtl-extra/src/unix/serial.pp
View File

@ -190,6 +190,39 @@ begin
{$ifndef BSD}
460800: tios.c_cflag := B460800;
{$endif}
{$if declared(B500000)}
500000: tios.c_cflag := B500000;
{$endif declared(B500000)}
{$if declared(B576000)}
576000: tios.c_cflag := B576000;
{$endif declared(B576000)}
{$if declared(B921600)}
921600: tios.c_cflag := B921600;
{$endif declared(B921600)}
{$if declared(B1000000)}
1000000: tios.c_cflag := B1000000;
{$endif declared(B1000000)}
{$if declared(B1152000)}
1152000: tios.c_cflag := B1152000;
{$endif declared(B1152000)}
{$if declared(B1500000)}
1500000: tios.c_cflag := B1500000;
{$endif declared(B1500000)}
{$if declared(B2000000)}
2000000: tios.c_cflag := B2000000;
{$endif declared(B2000000)}
{$if declared(B2500000)}
2500000: tios.c_cflag := B2500000;
{$endif declared(B2500000)}
{$if declared(B3000000)}
3000000: tios.c_cflag := B3000000;
{$endif declared(B3000000)}
{$if declared(B3500000)}
3500000: tios.c_cflag := B3500000;
{$endif declared(B3500000)}
{$if declared(B4000000)}
4000000: tios.c_cflag := B4000000;
{$endif declared(B4000000)}
else tios.c_cflag := B9600;
end;
{$ifndef SOLARIS}