diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2014-04-07 15:45:33 -0400 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2014-04-09 01:05:48 -0400 |
| commit | 2e8c02d5644e8e8e446ab6dfd832322276e44f89 (patch) | |
| tree | 9f7564ac88d210611cbd5fa5cf2de8efad038e36 /kernel/primitives.ml | |
| parent | a91518d0b07b9a2cd7d9381044c20365771ec382 (diff) | |
Machine arithmetic operations for native compiler.
This completes the port of the native compiler to retroknowledge.
However, some testing and optimizations are still to be done.
Diffstat (limited to 'kernel/primitives.ml')
| -rw-r--r-- | kernel/primitives.ml | 91 |
1 files changed, 91 insertions, 0 deletions
diff --git a/kernel/primitives.ml b/kernel/primitives.ml new file mode 100644 index 000000000..64c486220 --- /dev/null +++ b/kernel/primitives.ml @@ -0,0 +1,91 @@ +(************************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2014 *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(************************************************************************) + +type t = + | Int31head0 + | Int31tail0 + | Int31add + | Int31sub + | Int31mul + | Int31div + | Int31mod +(* + | Int31lsr + | Int31lsl + *) + | Int31land + | Int31lor + | Int31lxor + | Int31addc + | Int31subc + | Int31addcarryc + | Int31subcarryc + | Int31mulc + | Int31diveucl + | Int31div21 + | Int31addmuldiv + | Int31eq + | Int31lt + | Int31le + | Int31compare + +let hash = function + | Int31head0 -> 1 + | Int31tail0 -> 2 + | Int31add -> 3 + | Int31sub -> 4 + | Int31mul -> 5 + | Int31div -> 6 + | Int31mod -> 7 +(* + | Int31lsr -> 8 + | Int31lsl -> 9 + *) + | Int31land -> 10 + | Int31lor -> 11 + | Int31lxor -> 12 + | Int31addc -> 13 + | Int31subc -> 14 + | Int31addcarryc -> 15 + | Int31subcarryc -> 16 + | Int31mulc -> 17 + | Int31diveucl -> 18 + | Int31div21 -> 19 + | Int31addmuldiv -> 20 + | Int31eq -> 21 + | Int31lt -> 22 + | Int31le -> 23 + | Int31compare -> 24 + +let to_string = function + | Int31head0 -> "head0" + | Int31tail0 -> "tail0" + | Int31add -> "add" + | Int31sub -> "sub" + | Int31mul -> "mul" + | Int31div -> "div" + | Int31mod -> "mod" +(* + | Int31lsr -> "l_sr" + | Int31lsl -> "l_sl" + *) + | Int31land -> "l_and" + | Int31lor -> "l_or" + | Int31lxor -> "l_xor" + | Int31addc -> "addc" + | Int31subc -> "subc" + | Int31addcarryc -> "addcarryc" + | Int31subcarryc -> "subcarryc" + | Int31mulc -> "mulc" + | Int31diveucl -> "diveucl" + | Int31div21 -> "div21" + | Int31addmuldiv -> "addmuldiv" + | Int31eq -> "eq" + | Int31lt -> "lt" + | Int31le -> "le" + | Int31compare -> "compare" |