summaryrefslogtreecommitdiffstats
path: root/otherlibs/unix/termios.c
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/unix/termios.c')
-rw-r--r--otherlibs/unix/termios.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/otherlibs/unix/termios.c b/otherlibs/unix/termios.c
index 00138e029..9a8b58616 100644
--- a/otherlibs/unix/termios.c
+++ b/otherlibs/unix/termios.c
@@ -229,7 +229,7 @@ static void decode_terminal_status(value *src)
}
}
-value unix_tcgetattr(value fd)
+value unix_tcgetattr(value fd) /* ML */
{
value res;
@@ -244,7 +244,7 @@ static int when_flag_table[] = {
TCSANOW, TCSADRAIN, TCSAFLUSH
};
-value unix_tcsetattr(value fd, value when, value arg)
+value unix_tcsetattr(value fd, value when, value arg) /* ML */
{
if (tcgetattr(Int_val(fd), &terminal_status) == -1)
uerror("tcsetattr", Nothing);
@@ -256,14 +256,14 @@ value unix_tcsetattr(value fd, value when, value arg)
return Val_unit;
}
-value unix_tcsendbreak(value fd, value delay)
+value unix_tcsendbreak(value fd, value delay) /* ML */
{
if (tcsendbreak(Int_val(fd), Int_val(delay)) == -1)
uerror("tcsendbreak", Nothing);
return Val_unit;
}
-value unix_tcdrain(value fd)
+value unix_tcdrain(value fd) /* ML */
{
if (tcdrain(Int_val(fd)) == -1) uerror("tcdrain", Nothing);
return Val_unit;
@@ -273,7 +273,7 @@ static int queue_flag_table[] = {
TCIFLUSH, TCOFLUSH, TCIOFLUSH
};
-value unix_tcflush(value fd, value queue)
+value unix_tcflush(value fd, value queue) /* ML */
{
if (tcflush(Int_val(fd), queue_flag_table[Int_val(queue)]) == -1)
uerror("tcflush", Nothing);
@@ -284,7 +284,7 @@ static int action_flag_table[] = {
TCOOFF, TCOON, TCIOFF, TCION
};
-value unix_tcflow(value fd, value action)
+value unix_tcflow(value fd, value action) /* ML */
{
if (tcflow(Int_val(fd), action_flag_table[Int_val(action)]) == -1)
uerror("tcflow", Nothing);