diff options
| author | Maxime Dénès | 2014-10-10 03:45:03 -0400 |
|---|---|---|
| committer | Maxime Dénès | 2014-10-10 03:49:50 -0400 |
| commit | 5b0769b33004202d015770aff3f3cdd347b099fb (patch) | |
| tree | e3964c2163d73fbda3fd57be683f6e1c821e23e4 | |
| parent | ba50753e9da60a23a40dedea59fb7f25e3ba4d15 (diff) | |
Fix segfault in native compiler on int31 division.
Thanks to Yves for reporting it!
| -rw-r--r-- | kernel/retroknowledge.ml | 1 | ||||
| -rw-r--r-- | kernel/retroknowledge.mli | 1 | ||||
| -rw-r--r-- | tactics/extraargs.ml4 | 1 | ||||
| -rw-r--r-- | theories/Numbers/Cyclic/Int31/Int31.v | 2 |
4 files changed, 4 insertions, 1 deletions
diff --git a/kernel/retroknowledge.ml b/kernel/retroknowledge.ml index b645e256f1..8b451e2b8f 100644 --- a/kernel/retroknowledge.ml +++ b/kernel/retroknowledge.ml @@ -57,6 +57,7 @@ type int31_field = | Int31TimesC | Int31Div21 | Int31Div + | Int31Diveucl | Int31AddMulDiv | Int31Compare | Int31Head0 diff --git a/kernel/retroknowledge.mli b/kernel/retroknowledge.mli index 846f135e6b..dde522e147 100644 --- a/kernel/retroknowledge.mli +++ b/kernel/retroknowledge.mli @@ -49,6 +49,7 @@ type int31_field = | Int31TimesC | Int31Div21 | Int31Div + | Int31Diveucl | Int31AddMulDiv | Int31Compare | Int31Head0 diff --git a/tactics/extraargs.ml4 b/tactics/extraargs.ml4 index a4db321444..e129823f4c 100644 --- a/tactics/extraargs.ml4 +++ b/tactics/extraargs.ml4 @@ -285,6 +285,7 @@ PRINTED BY pr_r_int31_field | [ "int31" "timesc" ] -> [ Retroknowledge.Int31TimesC ] | [ "int31" "div21" ] -> [ Retroknowledge.Int31Div21 ] | [ "int31" "div" ] -> [ Retroknowledge.Int31Div ] +| [ "int31" "diveucl" ] -> [ Retroknowledge.Int31Diveucl ] | [ "int31" "addmuldiv" ] -> [ Retroknowledge.Int31AddMulDiv ] | [ "int31" "compare" ] -> [ Retroknowledge.Int31Compare ] | [ "int31" "head0" ] -> [ Retroknowledge.Int31Head0 ] diff --git a/theories/Numbers/Cyclic/Int31/Int31.v b/theories/Numbers/Cyclic/Int31/Int31.v index 885cd0daf1..e80f209eb0 100644 --- a/theories/Numbers/Cyclic/Int31/Int31.v +++ b/theories/Numbers/Cyclic/Int31/Int31.v @@ -350,7 +350,7 @@ Register sub31carryc as int31 minuscarryc in "coq_int31" by True. Register mul31 as int31 times in "coq_int31" by True. Register mul31c as int31 timesc in "coq_int31" by True. Register div3121 as int31 div21 in "coq_int31" by True. -Register div31 as int31 div in "coq_int31" by True. +Register div31 as int31 diveucl in "coq_int31" by True. Register compare31 as int31 compare in "coq_int31" by True. Register addmuldiv31 as int31 addmuldiv in "coq_int31" by True. Register lor31 as int31 lor in "coq_int31" by True. |