diff options
| author | bgregoir | 2007-06-20 09:43:36 +0000 |
|---|---|---|
| committer | bgregoir | 2007-06-20 09:43:36 +0000 |
| commit | f4586d1e8b1116340574d9660117f93e7a1e4e3b (patch) | |
| tree | 15b7dff4ed22b762446e4ae1f426e8f8aa2de52c /kernel/cemitcodes.ml | |
| parent | 4708506ca1b34e93835b163db102f6860c89190c (diff) | |
ajout de head0 et tail0 en natif
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9900 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/cemitcodes.ml')
| -rw-r--r-- | kernel/cemitcodes.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/cemitcodes.ml b/kernel/cemitcodes.ml index dffb0f2d51..7617c454d9 100644 --- a/kernel/cemitcodes.ml +++ b/kernel/cemitcodes.ml @@ -240,6 +240,8 @@ let emit_instr = function | Kdivint31 -> out opDIVINT31 | Kaddmuldivint31 -> out opADDMULDIVINT31 | Kcompareint31 -> out opCOMPAREINT31 + | Khead0int31 -> out opHEAD0INT31 + | Ktail0int31 -> out opTAIL0INT31 | Kisconst lbl -> out opISCONST; out_label lbl | Kareconst(n,lbl) -> out opARECONST; out_int n; out_label lbl | Kcompint31 -> out opCOMPINT31 |