From 5151983c7f0faf00facba5dfaf6d17947337aa42 Mon Sep 17 00:00:00 2001 From: John Darrington Date: Wed, 16 Dec 2009 20:52:33 +0100 Subject: [PATCH] Fix bug in ROC parsing long string variables --- src/language/stats/roc.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/language/stats/roc.c b/src/language/stats/roc.c index 1d61a55c..86aee1f9 100644 --- a/src/language/stats/roc.c +++ b/src/language/stats/roc.c @@ -112,6 +112,7 @@ cmd_roc (struct lexer *lexer, struct dataset *ds) goto error; } + value_init (&roc.state_value, var_get_width (roc.state_var)); parse_value (lexer, &roc.state_value, var_get_width (roc.state_var)); @@ -271,10 +272,12 @@ cmd_roc (struct lexer *lexer, struct dataset *ds) if ( ! run_roc (ds, &roc)) goto error; + value_destroy (&roc.state_value, var_get_width (roc.state_var)); free (roc.vars); return CMD_SUCCESS; error: + value_destroy (&roc.state_value, var_get_width (roc.state_var)); free (roc.vars); return CMD_FAILURE; } -- 2.30.2