diff options
| author | Maxime Dénès | 2019-07-04 09:11:41 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-07-04 09:11:41 +0200 |
| commit | a661aadbc7120b93ccf8507c0173ffd6cfa3a0f8 (patch) | |
| tree | 17ff6655ac87b3862eaa0857d28c4cc1ba46bc23 /kernel/nativevalues.ml | |
| parent | d1965ba584589a528cbb6fe98bbe489137691e02 (diff) | |
| parent | 00fcbf38dcd127e3d2d4f748f215787855abd609 (diff) | |
Merge PR #10359: Remove dependency of native_compile on global env for symbols
Reviewed-by: maximedenes
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/nativevalues.ml')
| -rw-r--r-- | kernel/nativevalues.ml | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/kernel/nativevalues.ml b/kernel/nativevalues.ml index b3ad3949dc..e54118c775 100644 --- a/kernel/nativevalues.ml +++ b/kernel/nativevalues.ml @@ -66,6 +66,23 @@ type atom = | Aevar of Evar.t * t array | Aproj of (inductive * int) * accumulator +type symbol = + | SymbValue of t + | SymbSort of Sorts.t + | SymbName of Name.t + | SymbConst of Constant.t + | SymbMatch of annot_sw + | SymbInd of inductive + | SymbMeta of metavariable + | SymbEvar of Evar.t + | SymbLevel of Univ.Level.t + | SymbProj of (inductive * int) + +type symbols = symbol array + +let empty_symbols = [| |] + + let accumulate_tag = 0 (** Unique pointer used to drive the accumulator function *) |