diff options
| author | qrczak <unknown> | 2001-02-18 14:45:15 +0000 |
|---|---|---|
| committer | qrczak <unknown> | 2001-02-18 14:45:15 +0000 |
| commit | 77448dfad0a5b02e98f036214409b55a54f7eadc (patch) | |
| tree | a9beb7d8249d712ba6fdb7e94a60cba81a5cb616 /ghc/compiler/utils/UnicodeUtil.lhs | |
| parent | 3c208cf148c5b44e0c6612f0d8b8afe746d4cf3b (diff) | |
| download | haskell-77448dfad0a5b02e98f036214409b55a54f7eadc.tar.gz | |
[project @ 2001-02-18 14:45:15 by qrczak]
Recent Unicode and future ISO-10646 finally decided that the character
code space ends at U+10FFFF. Let ghc follow the rules: maxBound::Char
is now '\x10FFFF', etc.
Diffstat (limited to 'ghc/compiler/utils/UnicodeUtil.lhs')
| -rw-r--r-- | ghc/compiler/utils/UnicodeUtil.lhs | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/ghc/compiler/utils/UnicodeUtil.lhs b/ghc/compiler/utils/UnicodeUtil.lhs index 64062dd3c7..51ca35881f 100644 --- a/ghc/compiler/utils/UnicodeUtil.lhs +++ b/ghc/compiler/utils/UnicodeUtil.lhs @@ -24,20 +24,7 @@ stringToUtf8 (c:s) chr (0x80 + c `div` 0x40 `mod` 0x40) : chr (0x80 + c `mod` 0x40) : stringToUtf8 s - | c <= 0x1FFFFF = chr (0xF0 + c `div` 0x40000 ) : - chr (0x80 + c `div` 0x1000 `mod` 0x40) : - chr (0x80 + c `div` 0x40 `mod` 0x40) : - chr (0x80 + c `mod` 0x40) : - stringToUtf8 s - | c <= 0x3FFFFFF = chr (0xF8 + c `div` 0x1000000 ) : - chr (0x80 + c `div` 0x40000 `mod` 0x40) : - chr (0x80 + c `div` 0x1000 `mod` 0x40) : - chr (0x80 + c `div` 0x40 `mod` 0x40) : - chr (0x80 + c `mod` 0x40) : - stringToUtf8 s - | c <= 0x7FFFFFFF = chr (0xFC + c `div` 0x40000000 ) : - chr (0x80 + c `div` 0x1000000 `mod` 0x40) : - chr (0x80 + c `div` 0x40000 `mod` 0x40) : + | c <= 0x10FFFF = chr (0xF0 + c `div` 0x40000 ) : chr (0x80 + c `div` 0x1000 `mod` 0x40) : chr (0x80 + c `div` 0x40 `mod` 0x40) : chr (0x80 + c `mod` 0x40) : |