FIX WIP

cobc/tree.c

@@ -3453,7 +3453,7 @@ get_number_in_parentheses (const unsigned char ** p,
 		/* Copy name, CHECKME: Shouldn't we limit that - and can use
 		   a fixed-buffer here instead? */
 		name_length = close_paren - open_paren;
-		name_buff = cobc_malloc (name_length);
+		name_buff = cobc_parse_malloc (name_length); /////// cobc_malloc
 		memcpy (name_buff, open_paren + 1, name_length - 1);
 		name_buff[name_length - 1] = '\0';
 
@@ -3462,7 +3462,7 @@ get_number_in_parentheses (const unsigned char ** p,
 
 		if (item == cb_error_node) {
 			*error_detected = 1;
-			cobc_free (name_buff);
+			cobc_parse_free (name_buff); ////// cobc_free
 			return 1;
 		}
 		if (CB_FIELD_P (item)) {
@@ -3471,7 +3471,7 @@ get_number_in_parentheses (const unsigned char ** p,
 		if (!(f && f->flag_item_78)) {
 			cb_error (_("'%s' is not a constant-name"), name_buff);
 			*error_detected = 1;
-			cobc_free (name_buff);
+			cobc_parse_free (name_buff); ////// cobc_free
 			return 1;
 		}
 
@@ -3484,7 +3484,7 @@ get_number_in_parentheses (const unsigned char ** p,
 		 || l->sign != 0) {
 			cb_error (_("'%s' is not an unsigned positive integer"), name_buff);
 			*error_detected = 1;
-			cobc_free (name_buff);
+			cobc_parse_free (name_buff); ////// cobc_free
 			return 1;
 		}