diff options
| author | letouzey | 2012-08-11 13:33:26 +0000 |
|---|---|---|
| committer | letouzey | 2012-08-11 13:33:26 +0000 |
| commit | 5c825f263698433ed4e8db8ccd0c14394520535a (patch) | |
| tree | a9855a96d5e780166652b93376fea2483f9863c4 /kernel/environ.ml | |
| parent | c02c86626e36c908ec76854f8eda2d5278141d12 (diff) | |
fast bitwise operations (lor,land,lxor) on int31 and BigN
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15727 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/environ.ml')
| -rw-r--r-- | kernel/environ.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 50c7b11ae8..2c723a8344 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -521,6 +521,9 @@ fun env field value -> | KInt31 (_, Int31Compare) -> add_int31_binop_from_const Cbytecodes.Kcompareint31 | KInt31 (_, Int31Head0) -> add_int31_unop_from_const Cbytecodes.Khead0int31 | KInt31 (_, Int31Tail0) -> add_int31_unop_from_const Cbytecodes.Ktail0int31 + | KInt31 (_, Int31Lor) -> add_int31_binop_from_const Cbytecodes.Klorint31 + | KInt31 (_, Int31Land) -> add_int31_binop_from_const Cbytecodes.Klandint31 + | KInt31 (_, Int31Lxor) -> add_int31_binop_from_const Cbytecodes.Klxorint31 | _ -> env.retroknowledge in Retroknowledge.add_field retroknowledge_with_reactive_info field value |