Memory leak in UPCEANExtension2Support.decodeRow #146

Spelt · Aug 23, 2023 · fdc3918 · fdc3918
1 parent 4172ab1
commit fdc3918
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Lib/Classes/1D Barcodes/ZXing.OneD.UPCEANExtension2Support.pas b/Lib/Classes/1D Barcodes/ZXing.OneD.UPCEANExtension2Support.pas
@@ -109,8 +109,10 @@ class function TUPCEANExtension2Support.decodeRow(const rowNumber: Integer;
   extensionResult := TReadResult.Create(resultString, nil, resultPoints, TBarcodeFormat.UPC_EAN_EXTENSION);
   if (extensionData <> nil)
   then
+  begin
      extensionResult.putAllMetadata(extensionData);
-
+     FreeAndNil(extensionData);
+  end;
   Result := extensionResult;
 end;