From 76579aff8f8534cbc990b5ea2652b33655512213 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Tue, 30 Jan 2018 10:05:14 +0100
Subject: [native_compute] Remove useless conversion to list in reification.

---
 kernel/nativevalues.mli | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/nativevalues.mli')

diff --git a/kernel/nativevalues.mli b/kernel/nativevalues.mli
index 18b877745b..17d6978cd4 100644
--- a/kernel/nativevalues.mli
+++ b/kernel/nativevalues.mli
@@ -84,7 +84,7 @@ val napply : t -> t array -> t
 
 val dummy_value : unit -> t
 val atom_of_accu : accumulator -> atom
-val args_of_accu : accumulator -> t list
+val args_of_accu : accumulator -> t array
 val accu_nargs : accumulator -> int
 
 val cast_accu : t -> accumulator
-- 
cgit v1.2.3


From d041f19a7274b6065ca3ef565f0d8b8be08ef0d7 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Tue, 30 Jan 2018 10:45:03 +0100
Subject: [native_compute] Fix handling of evars in conversion

---
 kernel/nativevalues.mli | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel/nativevalues.mli')

diff --git a/kernel/nativevalues.mli b/kernel/nativevalues.mli
index 17d6978cd4..993842740b 100644
--- a/kernel/nativevalues.mli
+++ b/kernel/nativevalues.mli
@@ -51,7 +51,7 @@ type atom =
   | Acofixe of t array * t array * int * t
   | Aprod of Name.t * t * (t -> t)
   | Ameta of metavariable * t
-  | Aevar of existential * t
+  | Aevar of Evar.t * t (* type *) * t array (* arguments *)
   | Aproj of Constant.t * accumulator
 
 (* Constructors *)
@@ -68,7 +68,7 @@ val mk_prod_accu : Name.t -> t -> t -> t
 val mk_fix_accu : rec_pos  -> int -> t array -> t array -> t
 val mk_cofix_accu : int -> t array -> t array -> t
 val mk_meta_accu : metavariable -> t
-val mk_evar_accu : existential -> t -> t
+val mk_evar_accu : Evar.t -> t -> t array -> t
 val mk_proj_accu : Constant.t -> accumulator -> t
 val upd_cofix : t -> t -> unit
 val force_cofix : t -> t 
-- 
cgit v1.2.3