des3key: remove offset (always 0)

hannesm · Mar 19, 2024 · 2e67dec · 2e67dec
1 parent f69f867
commit 2e67dec
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/src/cipher_block.ml b/src/cipher_block.ml
@@ -428,7 +428,7 @@ module DES = struct
         invalid_arg "DES.of_secret: key length %u" (String.length key) ;
       let key = Bytes.of_string key in
       let keybuf = Bytes.create k_s in
-      Native.DES.des3key key 0 direction ;
+      Native.DES.des3key key direction ;
       Native.DES.cp3key keybuf ;
       Bytes.unsafe_to_string keybuf
 

diff --git a/src/native.ml b/src/native.ml
@@ -10,7 +10,7 @@ end
 
 module DES = struct
   external ddes    : string -> int -> bytes -> int -> int -> unit = "mc_des_ddes" [@@noalloc]
-  external des3key : bytes -> int -> int -> unit = "mc_des_des3key" [@@noalloc]
+  external des3key : bytes -> int -> unit = "mc_des_des3key" [@@noalloc]
   external cp3key  : bytes -> unit = "mc_des_cp3key" [@@noalloc]
   external use3key : string -> unit = "mc_des_use3key" [@@noalloc]
   external k_s     : unit -> int = "mc_des_key_size" [@@noalloc]

diff --git a/src/native/des_generic.c b/src/native/des_generic.c
@@ -670,8 +670,8 @@ mc_des_key_size (__unit ()) {
 }
 
 CAMLprim value
-mc_des_des3key (value key, value off, value direction) {
-  mc_des3key (_bp_uint8_off (key, off), Int_val (direction));
+mc_des_des3key (value key, value direction) {
+  mc_des3key (_bp_uint8 (key), Int_val (direction));
   return Val_unit;
 }