mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

Better char<? compilation

Browse source 
* module/language/tree-il/primitives.scm
  (character-comparison-expander): Expand out char<? and friends to <,
  unboxing the char arguments.
* module/language/cps/types.scm:
* module/language/cps/effects-analysis.scm: Remove mention of char<? and
  friends as we won't see them any more.  Also fixes #24318.
This commit is contained in:
Andy Wingo 2016-09-02 10:02:54 +02:00
parent 2dbb0e212d
commit 3b2cd09fe2
3 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/cps/effects-analysis.scm
View file

@ -488,10 +488,6 @@ is or might be a read or a write to the same location as A."
;; Characters.
(define-primitive-effects
((char<? . _) &type-check)
((char<=? . _) &type-check)
((char>=? . _) &type-check)
((char>? . _) &type-check)
((integer->char _) &type-check)
((char->integer _) &type-check))