Browse Source

* Merging revisions r43355 from trunk:
------------------------------------------------------------------------
r43355 | michael | 2019-11-02 12:17:37 +0100 (Sat, 02 Nov 2019) | 1 line

* Fix case where table streams are nil
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43733 -

michael 5 years ago
parent
commit
357d54b94d
1 changed files with 5 additions and 2 deletions
  1. 5 2
      packages/fcl-pdf/src/fpttfsubsetter.pp

+ 5 - 2
packages/fcl-pdf/src/fpttfsubsetter.pp

@@ -676,19 +676,22 @@ end;
 function TFontSubsetter.buildFpgmTable: TStream;
 function TFontSubsetter.buildFpgmTable: TStream;
 begin
 begin
   Result := GetRawTable('fpgm');
   Result := GetRawTable('fpgm');
-  Result.Position := 0;
+  if Assigned(Result) then
+    Result.Position := 0;
 end;
 end;
 
 
 function TFontSubsetter.buildPrepTable: TStream;
 function TFontSubsetter.buildPrepTable: TStream;
 begin
 begin
   Result := GetRawTable('prep');
   Result := GetRawTable('prep');
+  if Assigned(Result) then
   Result.Position := 0;
   Result.Position := 0;
 end;
 end;
 
 
 function TFontSubsetter.buildCvtTable: TStream;
 function TFontSubsetter.buildCvtTable: TStream;
 begin
 begin
   Result := GetRawTable('cvt ');
   Result := GetRawTable('cvt ');
-  Result.Position := 0;
+  if Assigned(Result) then
+    Result.Position := 0;
 end;
 end;
 
 
 function TFontSubsetter.buildGlyfTable(var newOffsets: TArrayUInt32): TStream;
 function TFontSubsetter.buildGlyfTable(var newOffsets: TArrayUInt32): TStream;