diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2014-10-24 16:26:34 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2014-10-24 16:26:34 +0200 |
| commit | d150ef80defc41eb8ed4913ac13e01b04b795ab7 (patch) | |
| tree | a4adb86ef8c97b3d12ad8c6bee1bacc002696401 | |
| parent | 68f1213aa5ad4c9e03f4cb64e2474399b855c4f8 (diff) | |
Fix retroknowledge for int31 division.
Was broken accidentally by 5b0769b33, slowing down vm_compute and native_compute
on numeric computations.
| -rw-r--r-- | kernel/environ.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index c3e59487c..a3a579ee0 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -660,8 +660,8 @@ fun rk value field -> Primitives.Int31mulc | KInt31 (_, Int31Div21) -> int31_op_from_const 3 Cbytecodes.Kdiv21int31 Primitives.Int31div21 - | KInt31 (_, Int31Div) -> int31_binop_from_const Cbytecodes.Kdivint31 - Primitives.Int31div + | KInt31 (_, Int31Diveucl) -> int31_binop_from_const Cbytecodes.Kdivint31 + Primitives.Int31diveucl | KInt31 (_, Int31AddMulDiv) -> int31_op_from_const 3 Cbytecodes.Kaddmuldivint31 Primitives.Int31addmuldiv | KInt31 (_, Int31Compare) -> int31_binop_from_const Cbytecodes.Kcompareint31 |