aboutsummaryrefslogtreecommitdiffstats
path: root/erts
diff options
context:
space:
mode:
authorLukas Larsson <[email protected]>2015-08-18 16:18:42 +0200
committerLukas Larsson <[email protected]>2015-08-18 16:21:18 +0200
commitd2bb1ca56dcd0ab8e5b43c4368409317c3ddd4db (patch)
treef0870810d5bc2ec4fa372c879b297f775f98c5b7 /erts
parent61828f77ca2542109ece006d730a4f8fe3300616 (diff)
downloadotp-d2bb1ca56dcd0ab8e5b43c4368409317c3ddd4db.tar.gz
otp-d2bb1ca56dcd0ab8e5b43c4368409317c3ddd4db.tar.bz2
otp-d2bb1ca56dcd0ab8e5b43c4368409317c3ddd4db.zip
erts: Fix binary memory leak in ttsl driver
Diffstat (limited to 'erts')
-rw-r--r--erts/emulator/drivers/unix/ttsl_drv.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/erts/emulator/drivers/unix/ttsl_drv.c b/erts/emulator/drivers/unix/ttsl_drv.c
index 0f773b69fb..53146e71f0 100644
--- a/erts/emulator/drivers/unix/ttsl_drv.c
+++ b/erts/emulator/drivers/unix/ttsl_drv.c
@@ -720,6 +720,7 @@ static void ttysl_from_erlang(ErlDrvData ttysl_data, char* buf, ErlDrvSizeT coun
}
driver_enq_bin(ttysl_port,putcbuf,0,putcpos);
+ driver_free_binary(putcbuf);
if (sz == 0) {
for (;;) {
@@ -1207,6 +1208,7 @@ static int outc(int c)
putcbuf->orig_bytes[putcpos++] = c;
if (putcpos == putclen) {
driver_enq_bin(ttysl_port,putcbuf,0,putclen);
+ driver_free_binary(putcbuf);
putcpos = 0;
putclen = TTY_BUFFSIZE;
putcbuf = driver_alloc_binary(BUFSIZ);