paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 19:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Printers, carbon, initialize paperlist (and printerlist) array and check if it was allocated before releasing, issue #26435

Browse Source 
git-svn-id: trunk@45789 -
This commit is contained in:
jesus 2014-07-05 18:53:51 +00:00
parent 90b05dca85
commit 679b76adf4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/printers/carbon/carbonprinters.inc
View File

@ -205,6 +205,7 @@ var
I, C: CFIndex;
NewPrinterName: String;
begin
FPrinterArray := nil;
if OSError(PMServerCreatePrinterList(kPMServerLocal, FPrinterArray),
Self, 'DoEnumPrinters', 'PMServerCreatePrinterList') then Exit;
@ -224,7 +225,8 @@ end;
procedure TCarbonPrinter.EndEnumPrinters;
begin
CFRelease(FPrinterArray);
if FPrinterArray<>nil then
CFRelease(FPrinterArray);
end;
procedure TCarbonPrinter.BeginEnumPapers(Lst: TStrings);
@ -236,6 +238,7 @@ var
const
SName = 'DoEnumPapers';
begin
FPaperArray := nil;
if OSError(PMPrinterGetPaperList(GetCurrentPrinter, FPaperArray),
Self, SName, 'PMPrinterGetPaperList') then Exit;
FPaperArray := CFRetain(FPaperArray);
@ -260,7 +263,8 @@ end;
procedure TCarbonPrinter.EndEnumPapers;
begin
CFRelease(FPaperArray);
if FPaperArray<>nil then
CFRelease(FPaperArray);
end;
constructor TCarbonPrinter.Create;