From 5684cd6e1b754889c9c4f8b04c1a46ab78240b57 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 14 Sep 1999 08:33:24 +0000 Subject: [PATCH] (Fopen_network_stream): Avoid socket decriptor leak. --- src/process.c | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/src/process.c b/src/process.c index a67aeb329f6..05cb58b5972 100644 --- a/src/process.c +++ b/src/process.c @@ -1834,6 +1834,7 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; int retry = 0; int count = specpdl_ptr - specpdl; + int count1; #ifdef WINDOWSNT /* Ensure socket support is loaded if available. */ @@ -1899,6 +1900,10 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ immediate_quit = 0; } + s = -1; + count1 = specpdl_ptr - specpdl; + record_unwind_protect (close_file_unwind, make_number (s)); + for (lres = res; lres; lres = lres->ai_next) { s = socket (lres->ai_family, lres->ai_socktype, lres->ai_protocol); @@ -1984,6 +1989,9 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ if (s < 0) report_file_error ("error creating socket", Fcons (name, Qnil)); + count1 = specpdl_ptr - specpdl; + record_unwind_protect (close_file_unwind, make_number (s)); + /* Kernel bugs (on Ultrix at least) cause lossage (not just EINTR) when connect is interrupted. So let's not let it get interrupted. Note we do not turn off polling, because polling is only used @@ -2017,6 +2025,9 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ goto loop; } + /* Discard the unwind protect. */ + specpdl_ptr = specpdl + count1; + close (s); if (interrupt_input) @@ -2030,6 +2041,9 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ immediate_quit = 0; + /* Discard the unwind protect. */ + specpdl_ptr = specpdl + count1; + #ifdef POLL_FOR_INPUT unbind_to (count, Qnil); #endif -- 2.39.5