fix fuzzifier errors

Author: slobodan-ilic

src/spss/readstat_sav_parse_mr_name.c

@@ -512,5 +512,23 @@ readstat_error_t parse_mr_string(const char *line, mr_set_t **mr_sets, size_t *n
     (void)mr_parser_en_main;
 
 cleanup:
+    if (retval != READSTAT_OK && *mr_sets != NULL) {
+        // Free all successfully parsed MR sets
+        for (size_t i = 0; i < *n_mr_lines; i++) {
+            if ((*mr_sets)[i].name != NULL) free((*mr_sets)[i].name);
+            if ((*mr_sets)[i].label != NULL) free((*mr_sets)[i].label);
+            if ((*mr_sets)[i].subvariables != NULL) {
+                for (size_t j = 0; j < (*mr_sets)[i].num_subvars; j++) {
+                    if ((*mr_sets)[i].subvariables[j] != NULL) {
+                        free((*mr_sets)[i].subvariables[j]);
+                    }
+                }
+                free((*mr_sets)[i].subvariables);
+            }
+        }
+        free(*mr_sets);
+        *mr_sets = NULL;
+        *n_mr_lines = 0;
+    }
     return retval;
 }

src/spss/readstat_sav_parse_mr_name.rl

@@ -235,5 +235,23 @@ readstat_error_t parse_mr_string(const char *line, mr_set_t **mr_sets, size_t *n
     (void)mr_parser_en_main;
 
 cleanup:
+    if (retval != READSTAT_OK && *mr_sets != NULL) {
+        // Free all successfully parsed MR sets
+        for (size_t i = 0; i < *n_mr_lines; i++) {
+            if ((*mr_sets)[i].name != NULL) free((*mr_sets)[i].name);
+            if ((*mr_sets)[i].label != NULL) free((*mr_sets)[i].label);
+            if ((*mr_sets)[i].subvariables != NULL) {
+                for (size_t j = 0; j < (*mr_sets)[i].num_subvars; j++) {
+                    if ((*mr_sets)[i].subvariables[j] != NULL) {
+                        free((*mr_sets)[i].subvariables[j]);
+                    }
+                }
+                free((*mr_sets)[i].subvariables);
+            }
+        }
+        free(*mr_sets);
+        *mr_sets = NULL;
+        *n_mr_lines = 0;
+    }
     return retval;
 }

src/spss/readstat_sav_read.c

@@ -1383,14 +1383,21 @@ static readstat_error_t sav_parse_records_pass1(sav_ctx_t *ctx) {
                     ctx->multiple_response_sets_length = 0;
 
                     retval = sav_read_multiple_response_sets(data_len, ctx);
-                    if (retval != READSTAT_OK)
+                    if (retval != READSTAT_OK) {
+                        // Restore old MR sets to context so they get cleaned up properly
+                        ctx->mr_sets = old_mr_sets;
+                        ctx->multiple_response_sets_length = old_count;
                         goto cleanup;
+                    }
 
                     // Merge with existing MR sets if any
                     if (old_mr_sets != NULL && old_count > 0) {
                         size_t total_count = old_count + ctx->multiple_response_sets_length;
                         mr_set_t *merged = readstat_realloc(old_mr_sets, total_count * sizeof(mr_set_t));
                         if (merged == NULL) {
+                            // Restore old MR sets to context so they get cleaned up properly
+                            ctx->mr_sets = old_mr_sets;
+                            ctx->multiple_response_sets_length = old_count;
                             retval = READSTAT_ERROR_MALLOC;
                             goto cleanup;
                         }