diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-08-11 13:33:26 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-08-11 13:33:26 +0000 |
commit | 5c825f263698433ed4e8db8ccd0c14394520535a (patch) | |
tree | a9855a96d5e780166652b93376fea2483f9863c4 /kernel/cemitcodes.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/cemitcodes.ml')
-rw-r--r-- | kernel/cemitcodes.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/cemitcodes.ml b/kernel/cemitcodes.ml index 00f1f7fbd..680a5f9f2 100644 --- a/kernel/cemitcodes.ml +++ b/kernel/cemitcodes.ml @@ -258,6 +258,9 @@ let emit_instr = function | Kareconst(n,lbl) -> out opARECONST; out_int n; out_label lbl | Kcompint31 -> out opCOMPINT31 | Kdecompint31 -> out opDECOMPINT31 + | Klorint31 -> out opORINT31 + | Klandint31 -> out opANDINT31 + | Klxorint31 -> out opXORINT31 (*/spiwack *) | Kstop -> out opSTOP |