diff options
| author | Pierre-Marie Pédrot | 2021-03-30 14:05:08 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-03-30 14:05:08 +0200 |
| commit | 666a3aa8dd7df6dd29ea7944482510048a8a7ba7 (patch) | |
| tree | bf1558b91b62f14b122aa4fa09d2d56f476b9205 /kernel/nativecode.ml | |
| parent | f0c6a1de3eef85ab0787be7e87cb8509e8df43d5 (diff) | |
| parent | 7ff8b12c14867e43d54c3d4c8976a6179250893d (diff) | |
Merge PR #14005: Support OCaml primitives with an actual arity larger than 4.
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/nativecode.ml')
| -rw-r--r-- | kernel/nativecode.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml index 9ce388929c..22bbcb8a65 100644 --- a/kernel/nativecode.ml +++ b/kernel/nativecode.ml @@ -994,9 +994,8 @@ let extract_prim ml_of l = let decl = ref [] in let cond = ref [] in let type_args p = - let rec aux = function [] | [_] -> [] | h :: t -> h :: aux t in - let params, sign = CPrimitives.types p in - List.length params, Array.of_list (aux sign) in + let params, args_ty, _ = CPrimitives.types p in + List.length params, Array.of_list args_ty in let rec aux l = match l with | Lprim(prefix,kn,p,args) -> |