ocamlmerlin.c: we're going to need a bigger buffer

MisterDA · MisterDA · commit 4e51ecbc428e · 2025-12-01T17:08:00.000+01:00
diff --git a/src/frontend/ocamlmerlin/ocamlmerlin.c b/src/frontend/ocamlmerlin/ocamlmerlin.c
@@ -336,7 +336,7 @@ static int connect_socket(const char *socketname, bool fail)
 #ifdef _WIN32
 static void start_server(const char *socketname, const char* eventname, const char *exec_path)
 {
-  char buf[PATHSZ], lpSystemDir[PATHSZ];
+  char buf[32767], lpSystemDir[PATHSZ];
   PROCESS_INFORMATION pi;
   STARTUPINFO si;
   HANDLE hEvent = CreateEvent(NULL, FALSE, FALSE, eventname);

Original file line number	Diff line number	Diff line change
`@@ -336,7 +336,7 @@ static int connect_socket(const char *socketname, bool fail)`
`336`	`336`	`#ifdef _WIN32`
`337`	`337`	`static void start_server(const char socketname, const char eventname, const char *exec_path)`
`338`	`338`	`{`
`339`		`- char buf[PATHSZ], lpSystemDir[PATHSZ];`
	`339`	`+ char buf[32767], lpSystemDir[PATHSZ];`
`340`	`340`	`PROCESS_INFORMATION pi;`
`341`	`341`	`STARTUPINFO si;`
`342`	`342`	`HANDLE hEvent = CreateEvent(NULL, FALSE, FALSE, eventname);`