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/nativecode.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/nativecode.ml')
| -rw-r--r-- | kernel/nativecode.ml | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml index fc9e69d9e3..a6b5fc9a41 100644 --- a/kernel/nativecode.ml +++ b/kernel/nativecode.ml @@ -141,18 +141,6 @@ let fresh_gnormtbl l = (** Symbols (pre-computed values) **) -type symbol = - | SymbValue of Nativevalues.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) - let dummy_symb = SymbValue (dummy_value ()) let eq_symbol sy1 sy2 = @@ -194,10 +182,6 @@ let symb_tbl = HashtblSymbol.create 211 let clear_symbols () = HashtblSymbol.clear symb_tbl -type symbols = symbol array - -let empty_symbols = [||] - let get_value tbl i = match tbl.(i) with | SymbValue v -> v |