diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-06-16 07:39:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-06-16 07:39:37 (GMT) |
| commit | dda7ee5603bfed26364783231cedbed74a4fb600 (patch) | |
| tree | 73300d1767b4bec2cba36fc2fd441be977544968 | |
| parent | f5b6f91e7a334f96572f303116009f8d1304bed4 (diff) | |
| parent | 2eafca4f84dee0db9ffa749bca6218c6bf1c3e21 (diff) | |
| download | tcl-dda7ee5603bfed26364783231cedbed74a4fb600.zip tcl-dda7ee5603bfed26364783231cedbed74a4fb600.tar.gz tcl-dda7ee5603bfed26364783231cedbed74a4fb600.tar.bz2 | |
Fix [e770d92d76]: Add support for higher baud rates in Tcl
| -rw-r--r-- | unix/tclUnixChan.c | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index 89c9a27..a0d9811 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -1153,6 +1153,39 @@ static CONST struct {int baud; unsigned long speed;} speeds[] = { #ifdef B460800 {460800, B460800}, #endif +#ifdef B500000 + {500000, B500000}, +#endif +#ifdef B576000 + {576000, B576000}, +#endif +#ifdef B921600 + {921600, B921600}, +#endif +#ifdef B1000000 + {1000000, B1000000}, +#endif +#ifdef B1152000 + {1152000, B1152000}, +#endif +#ifdef B1500000 + {1500000,B1500000}, +#endif +#ifdef B2000000 + {2000000, B2000000}, +#endif +#ifdef B2500000 + {2500000,B2500000}, +#endif +#ifdef B3000000 + {3000000,B3000000}, +#endif +#ifdef B3500000 + {3500000,B3500000}, +#endif +#ifdef B4000000 + {4000000,B4000000}, +#endif {-1, 0} }; |