suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improve code generation for black hole as an immediate

Browse Source 
original commit: 2e15df8a992d1c634f04bf4e162f40026a4f0840
This commit is contained in:
Matthew Flatt 2020-01-31 06:43:14 -07:00
parent d13e5898c8
commit fd1745c628
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
s/cpnanopass.ss
View File

@ -2812,6 +2812,7 @@
[(eof-object? x) (constant seof)] [(eof-object? x) (constant seof)]
[($unbound-object? x) (constant sunbound)] [($unbound-object? x) (constant sunbound)]
[(bwp-object? x) (constant sbwp)] [(bwp-object? x) (constant sbwp)]
[(eq? x '#1=#1#) (constant black-hole)]
[(target-fixnum? x) (fix x)] [(target-fixnum? x) (fix x)]
[(char? x) (+ (* (constant char-factor) (char->integer x)) (constant type-char))] [(char? x) (+ (* (constant char-factor) (char->integer x)) (constant type-char))]
[else #f]))) [else #f])))
@ -6257,6 +6258,7 @@
(eqv? obj "") (eqv? obj "")
(eqv? obj '#()) (eqv? obj '#())
(eqv? obj '#vu8()) (eqv? obj '#vu8())
(eqv? obj '#0=#0#)
(eq? obj (void)) (eq? obj (void))
(eof-object? obj) (eof-object? obj)
(bwp-object? obj) (bwp-object? obj)