Pad needed a free. Ran all test cases.

usgs-coupled · May 10, 2024 · ff5876b · ff5876b
1 parent 6c90534
commit ff5876b
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/PBasic.cpp b/src/PBasic.cpp
@@ -3211,13 +3211,15 @@ factor(struct LOC_exec * LINK)
 	case tokpad_:
 	case tokpad:
 	{
+		char* str;
 		n.stringval = true;
 		require(toklp, LINK);
-		string1 = strexpr(LINK);
+		str = strexpr(LINK);
 		require(tokcomma, LINK);
 		i = intexpr(LINK);
 		require(tokrp, LINK);
-		n.UU.sval = PhreeqcPtr->string_pad(string1, i);
+		n.UU.sval = PhreeqcPtr->string_pad(str, i);
+		PhreeqcPtr->PHRQ_free(str);
 	}
 	break;