fix for delphi

[lcore.git] / lserial.pas

diff --git a/lserial.pas b/lserial.pas
index e7b6d2743d9900971e7ed6c74e804f2e09ade38b..4f13fce4c51208cde9738df7a9f98d760de164db 100755 (executable)
--- a/lserial.pas
+++ b/lserial.pas
@@ -1,4 +1,4 @@
-{$mode delphi}
+{$mode delphi}\r
 unit lserial;\r
 interface\r
 uses \r
@@ -26,7 +26,7 @@ var
   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
@@ -68,4 +68,4 @@ begin
   dup(fd);\r
   closehandles := true;\r
 end;\r
-end.
\ No newline at end of file
+end.\r