Fix memory bug in DlvShowEpisode.

I forgot to call PL_new_term_ref for tValue.

1 files changed, 9 insertions, 0 deletions

diff --git a/c/main.c b/c/main.c
index 045d31c..d2ae07b 100644
--- a/c/main.c
+++ b/c/main.c
@@ -23,6 +23,7 @@ WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
 	HWND hWnd;
 	MSG msg;
 	INITCOMMONCONTROLSEX icc;
+	//term_t t;
 	WNDCLASSEX wc;
 
 	/* Initialize Prolog. */
@@ -33,6 +34,14 @@ WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
 	if (!PL_initialise(1, rgArgs))
 		PL_halt(1);
 
+	//t = PL_new_term_refs(1);
+	//if (!PL_put_atom_chars(t+0, "false"))
+	//	return 0;
+	//if (!PL_call_predicate(NULL, PL_Q_NORMAL,
+	//	PL_predicate("set_prolog_gc_thread", 1, "user"),
+	//	t))
+	//	return 0;
+
 	Attach();
 
 	/* Create window. */