From 3b05844d760424859912d3d673dd8fc2be73d96f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Tue, 15 Feb 2022 19:42:23 +0100 Subject: Fix memory bug in DlvShowEpisode. I forgot to call PL_new_term_ref for tValue. --- c/main.c | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'c/main.c') 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. */ -- cgit v1.2.3