Fix a memory leak when selecting a font using FONTSELECT protocol

th-otto · th-otto · commit 399f7a6e0ee2 · 2025-04-02T12:13:39.000+02:00
This is always the case for Teradesk, which is used as the server
diff --git a/fontsel.c b/fontsel.c
@@ -344,6 +344,10 @@ _WORD do_fontsel(_WORD flags, char *title, _WORD *id, _WORD *pts)
 
 	else if ((flags & FS_M_FPROT) && (i = check_for_fprot()) >= 0)
 	{
+		if (gl_gdos)
+			vst_unload_fonts(fs_handle, 0);
+
+		v_clsvwk(fs_handle);
 		do_fprotokoll(i, *id, *pts);
 		return FALSE;				/* immer so, da neuer Font per Message kommt! */
 	}		

Original file line number	Diff line number	Diff line change
`@@ -344,6 +344,10 @@ _WORD do_fontsel(_WORD flags, char title, _WORD id, _WORD *pts)`
`344`	`344`
`345`	`345`	`else if ((flags & FS_M_FPROT) && (i = check_for_fprot()) >= 0)`
`346`	`346`	`{`
	`347`	`+ if (gl_gdos)`
	`348`	`+ vst_unload_fonts(fs_handle, 0);`
	`349`	`+`
	`350`	`+ v_clsvwk(fs_handle);`
`347`	`351`	`do_fprotokoll(i, id, pts);`
`348`	`352`	`return FALSE; /* immer so, da neuer Font per Message kommt! */`
`349`	`353`	`}`