diff options
| author | Hugo Herbelin | 2018-07-25 08:39:01 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-07-25 08:39:01 +0200 |
| commit | 0c7e72c05e3f828dcd03543000acbfbcf361ab23 (patch) | |
| tree | 1f8071119f853c7cb8eeaf437ddabab83ff712fd /plugins | |
| parent | 3599d05a5b3664764f19a794dc69c4e28f2e135d (diff) | |
| parent | 2c96888bd26c293832f442680561fb72f9dc82f5 (diff) | |
Merge PR #8063: Direct implementation of Ascii.eqb and String.eqb (take 2)
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/extraction/ExtrHaskellString.v | 2 | ||||
| -rw-r--r-- | plugins/extraction/ExtrOcamlString.v | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/plugins/extraction/ExtrHaskellString.v b/plugins/extraction/ExtrHaskellString.v index ac1f6f9130..a4a40d3c5a 100644 --- a/plugins/extraction/ExtrHaskellString.v +++ b/plugins/extraction/ExtrHaskellString.v @@ -35,6 +35,8 @@ Extract Inductive ascii => "Prelude.Char" (Data.Bits.testBit (Data.Char.ord a) 6) (Data.Bits.testBit (Data.Char.ord a) 7))". Extract Inlined Constant Ascii.ascii_dec => "(Prelude.==)". +Extract Inlined Constant Ascii.eqb => "(Prelude.==)". Extract Inductive string => "Prelude.String" [ "([])" "(:)" ]. Extract Inlined Constant String.string_dec => "(Prelude.==)". +Extract Inlined Constant String.eqb => "(Prelude.==)". diff --git a/plugins/extraction/ExtrOcamlString.v b/plugins/extraction/ExtrOcamlString.v index 030b486b26..a2a6a8fe67 100644 --- a/plugins/extraction/ExtrOcamlString.v +++ b/plugins/extraction/ExtrOcamlString.v @@ -33,6 +33,7 @@ Extract Constant shift => "fun b c -> Char.chr (((Char.code c) lsl 1) land 255 + if b then 1 else 0)". Extract Inlined Constant ascii_dec => "(=)". +Extract Inlined Constant Ascii.eqb => "(=)". Extract Inductive string => "char list" [ "[]" "(::)" ]. |