From 7b43c87458bda8eff5baf8a5392c469da642323e Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 27 Feb 2024 15:57:31 +0000
Subject: [PATCH] warning 39

---
 cpdfcommand.ml    | 4 ++--
 cpdfimage.ml      | 2 +-
 cpdfremovetext.ml | 2 +-
 cpdftexttopdf.ml  | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index c0bb949..2b9a8d8 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -924,7 +924,7 @@ let operation_allowed pdf banlist op =
       if args.debugcrypt then Printf.printf "Permissions: %s\n" (getpermissions pdf);
       not (banned banlist op)
 
-let rec decrypt_if_necessary (_, _, user_pw, owner_pw, was_dec_with_owner, _) op pdf =
+let decrypt_if_necessary (_, _, user_pw, owner_pw, was_dec_with_owner, _) op pdf =
   if args.debugcrypt then
     begin match op with
       None -> flprint "decrypt_if_necessary: op = None\n"
@@ -3286,7 +3286,7 @@ let rec split_max_search pdf s b p q =
         then split_max_search pdf s b (half + 1) q
         else split_max_search pdf s b p half
 
-let rec split_max enc original_filename ~squeeze output_spec s pdf =
+let split_max enc original_filename ~squeeze output_spec s pdf =
   let outs = ref [] in
   let p = ref 1 in
   let endpage = Pdfpage.endpage pdf in
diff --git a/cpdfimage.ml b/cpdfimage.ml
index 61c2480..ca0ec82 100644
--- a/cpdfimage.ml
+++ b/cpdfimage.ml
@@ -136,7 +136,7 @@ let extract_images_inner ~raw ?path_to_p2p ?path_to_im encoding serial pdf resou
   in
     iter2 (write_image ~raw ?path_to_p2p ?path_to_im pdf resources) names images
 
-let rec extract_images_form_xobject ~raw ?path_to_p2p ?path_to_im encoding dedup dedup_per_page pdf serial stem pnum form =
+let extract_images_form_xobject ~raw ?path_to_p2p ?path_to_im encoding dedup dedup_per_page pdf serial stem pnum form =
   let resources =
     match Pdf.lookup_direct pdf "/Resources" form with
       Some (Pdf.Dictionary d) -> Pdf.Dictionary d
diff --git a/cpdfremovetext.ml b/cpdfremovetext.ml
index 9341c07..a1586aa 100644
--- a/cpdfremovetext.ml
+++ b/cpdfremovetext.ml
@@ -28,7 +28,7 @@ let removetext range pdf =
       in
         Cpdfpage.process_pages (Pdfpage.ppstub removetext_page) pdf range
 
-let rec remove_all_text_ops pdf resources content =
+let remove_all_text_ops pdf resources content =
   let is_textop = function
     Pdfops.Op_Tj _ | Pdfops.Op_' _ | Pdfops.Op_'' _ | Pdfops.Op_TJ _ -> true
   | _ -> false
diff --git a/cpdftexttopdf.ml b/cpdftexttopdf.ml
index 5359540..e456704 100644
--- a/cpdftexttopdf.ml
+++ b/cpdftexttopdf.ml
@@ -1,6 +1,6 @@
 open Pdfutil
 
-let rec of_utf8_with_newlines fontpack fontsize t =
+let of_utf8_with_newlines fontpack fontsize t =
   let items = ref [] in
   let currfont = ref ~-1 in
   let codepoints = Pdftext.codepoints_of_utf8 t in