check upper bound limit on FD set operations

[lcore.git] / lserial.pas

diff --git a/lserial.pas b/lserial.pas
old mode 100755 (executable)
new mode 100644 (file)
index e7b6d27..4f13fce
--- a/lserial.pas
+++ b/lserial.pas
@@ -1,4 +1,4 @@
-{$mode delphi}
+{$mode delphi}\r

 unit lserial;\r
 interface\r
 uses \r
 unit lserial;\r
 interface\r
 uses \r


@@ -26,7 +26,7 @@ var
   config : termios;\r
   baudrateos : longint;\r
 begin\r
   config : termios;\r
   baudrateos : longint;\r
 begin\r

-  fd := fpopen(device,O_RDWR or O_NOCTTY);\r
+  fd := fpopen(device,O_RDWR or O_NOCTTY or O_NONBLOCK);\r

   \r
   if isatty(fd)=0 then begin\r
     writeln('not a tty');\r
   \r
   if isatty(fd)=0 then begin\r
     writeln('not a tty');\r


@@ -68,4 +68,4 @@ begin
   dup(fd);\r
   closehandles := true;\r
 end;\r
   dup(fd);\r
   closehandles := true;\r
 end;\r

-end.
\ No newline at end of file
+end.\r