add linux syscall sys_getrandom to lcorernd

[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
@@ -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