index out of bounds debugging

This commit is contained in:
John Whitington 2023-07-05 15:06:18 +01:00
parent f0ce7d420c
commit 8ab483542c
1 changed files with 5 additions and 4 deletions

View File

@ -1,7 +1,8 @@
(* Truetype font parsing and subsetting *) (* Make one or more subsets from a TrueType font *)
open Pdfutil open Pdfutil
open Pdfio open Pdfio
(* FIXME Missing characters in Bear example *)
(* FIXME No need for bitstream - everything is byte based, so we can use a normal input *) (* FIXME No need for bitstream - everything is byte based, so we can use a normal input *)
(* FIXME Don't create a second font unless we have to *) (* FIXME Don't create a second font unless we have to *)
(* FIXME Create third, fourth etc. font when we need to *) (* FIXME Create third, fourth etc. font when we need to *)
@ -11,10 +12,10 @@ open Pdfio
(* FIXME Rationalise padding code *) (* FIXME Rationalise padding code *)
(* FIXME Document the mechanisms we use *) (* FIXME Document the mechanisms we use *)
(* FIXME Proper table choice mechanism *) (* FIXME Proper table choice mechanism *)
let dbg = ref false let dbg = ref true
(*let _ = let _ =
Pdfe.logger := (fun s -> print_string s; flush stdout)*) Pdfe.logger := (fun s -> print_string s; flush stdout)
type t = type t =
{flags : int; {flags : int;