From 51b1f6a47c91e2fe4f91e023593b4d555c795f23 Mon Sep 17 00:00:00 2001 From: michael Date: Sat, 2 Nov 2019 11:17:37 +0000 Subject: [PATCH] * Fix case where table streams are nil git-svn-id: trunk@43355 - --- packages/fcl-pdf/src/fpttfsubsetter.pp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/packages/fcl-pdf/src/fpttfsubsetter.pp b/packages/fcl-pdf/src/fpttfsubsetter.pp index cb5c73c3a5..df8976c36a 100644 --- a/packages/fcl-pdf/src/fpttfsubsetter.pp +++ b/packages/fcl-pdf/src/fpttfsubsetter.pp @@ -676,19 +676,22 @@ end; function TFontSubsetter.buildFpgmTable: TStream; begin Result := GetRawTable('fpgm'); - Result.Position := 0; + if Assigned(Result) then + Result.Position := 0; end; function TFontSubsetter.buildPrepTable: TStream; begin Result := GetRawTable('prep'); + if Assigned(Result) then Result.Position := 0; end; function TFontSubsetter.buildCvtTable: TStream; begin Result := GetRawTable('cvt '); - Result.Position := 0; + if Assigned(Result) then + Result.Position := 0; end; function TFontSubsetter.buildGlyfTable(var newOffsets: TArrayUInt32): TStream;