balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix ocaml-secp256k1 Scalar.const

Browse Source 
It happened to work by chance on 64bits but it was clearly wrong
This commit is contained in:
Pierre Boutillier 2018-06-05 16:19:44 +02:00 committed by Grégoire Henry
parent 3ff99dfba3
commit 51ddb708d3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vendors/ocaml-secp256k1/src/internal.ml vendored
View File

@ -75,7 +75,7 @@ module Scalar = struct
external const : external const :
t -> int64 -> int64 -> int64 -> int64 -> int64 -> int64 -> int64 -> int64 -> unit = t -> int64 -> int64 -> int64 -> int64 -> int64 -> int64 -> int64 -> int64 -> unit =
"ml_secp256k1_fe_const_bytecode" "ml_secp256k1_fe_const" [@@noalloc] "ml_secp256k1_scalar_const_bytecode" "ml_secp256k1_scalar_const" [@@noalloc]
let const ?(d7=0L) ?(d6=0L) ?(d5=0L) ?(d4=0L) ?(d3=0L) ?(d2=0L) ?(d1=0L) ?(d0=0L) () = let const ?(d7=0L) ?(d6=0L) ?(d5=0L) ?(d4=0L) ?(d3=0L) ?(d2=0L) ?(d1=0L) ?(d0=0L) () =
let buf = Cstruct.create size in let buf = Cstruct.create size in