diff options
| author | John Ankarström <john@ankarstrom.se> | 2022-02-15 19:42:23 +0100 |
|---|---|---|
| committer | John Ankarström <john@ankarstrom.se> | 2022-02-15 19:42:23 +0100 |
| commit | 3b05844d760424859912d3d673dd8fc2be73d96f (patch) | |
| tree | ec7c764889a741424c3531e82afd4bd894503e02 /c/datalistview.c | |
| parent | c1eee2b46cd5643ba8efb98b2cd598ef47c4daf6 (diff) | |
| download | EpisodeBrowser-3b05844d760424859912d3d673dd8fc2be73d96f.tar.gz | |
Fix memory bug in DlvShowEpisode.
I forgot to call PL_new_term_ref for tValue.
Diffstat (limited to 'c/datalistview.c')
| -rw-r--r-- | c/datalistview.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/c/datalistview.c b/c/datalistview.c index 4a0208d..208ef22 100644 --- a/c/datalistview.c +++ b/c/datalistview.c @@ -34,8 +34,8 @@ DlvCreate(HWND hWnd) void DlvShowEpisode(int iEpisode) { + fid_t f; HWND hListView; - int r; LVITEM lviKey, lviValue; term_t t; @@ -45,14 +45,15 @@ DlvShowEpisode(int iEpisode) lviKey.mask = LVIF_TEXT; lviValue.mask = LVIF_TEXT; + f = PL_open_foreign_frame(); t = PL_new_term_refs(3); + if(!PL_put_integer(t+0, iEpisode)) return; - r = PL_call_predicate(NULL, PL_Q_NORMAL, + if (!PL_call_predicate(NULL, PL_Q_NORMAL, PL_predicate("lookup_episode_local", 3, "episode_data"), - t); - if (!r) + t)) return; /* The episode data is a list of unary compounds, @@ -78,6 +79,7 @@ DlvShowEpisode(int iEpisode) if (!szKey) continue; + tValue = PL_new_term_ref(); if (!PL_get_arg(1, tHead, tValue)) continue; if (!PL_get_atom_chars(tValue, &szValue)) @@ -106,4 +108,6 @@ DlvShowEpisode(int iEpisode) free(tszValue); } } + + PL_close_foreign_frame(f); } |