Fix gnutls crashes on MPS Windows builds

A more general mechanism to pin pointers used for external callbacks is
needed.

* src/process.h (struct Lisp_Process): Add 'gnutls_pproc' pointer to a
pointer to ourselves.
* src/alloc.c (cleanup_vector): Free 'gnutls_pproc'.
* src/gnutls.c (emacs_gnutls_handshake): Allocate 'gnutls_pproc', and
use it.
* src/w32.c (emacs_gnutls_pull):
(emacs_gnutls_push): Use indirection through 'gnutls_pproc'.

1 files changed, 7 insertions, 1 deletions

diff --git a/src/alloc.c b/src/alloc.c
index f41cef9516a..4074adf3e6b 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -44,6 +44,7 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 #include "frame.h"
 #include "blockinput.h"
 #include "pdumper.h"
+#include "process.h"
 #include "termhooks.h"          /* For struct terminal.  */
 #include "itree.h"
 #ifdef HAVE_WINDOW_SYSTEM
@@ -3569,12 +3570,17 @@ cleanup_vector (struct Lisp_Vector *vector)
         hash_table_allocated_bytes -= bytes;
       }
       break;
+    case PVEC_PROCESS:
+      {
+        struct Lisp_Process *p = PSEUDOVEC_STRUCT (vector, Lisp_Process);
+        xfree (p->gnutls_pproc);
+      }
+      break;
     /* Keep the switch exhaustive.  */
     case PVEC_NORMAL_VECTOR:
     case PVEC_FREE:
     case PVEC_SYMBOL_WITH_POS:
     case PVEC_MISC_PTR:
-    case PVEC_PROCESS:
     case PVEC_FRAME:
     case PVEC_WINDOW:
     case PVEC_BOOL_VECTOR: