mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 15:10:34 +02:00
Code Activity

Reify-primitives removes "/unlikely" ephemeral instructions

Browse source 
* module/language/cps/reify-primitives.scm (reify-primitives): Remove
  tag-fixnum/unlikely, etc.
This commit is contained in:
Andy Wingo 2017-12-17 13:45:27 +01:00
parent 8e7170a67a
commit 1f460cb054
1 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
module/language/cps/reify-primitives.scm
View file

@ -187,6 +187,25 @@
($ $continue k src ($ $primcall 'call-thunk/no-inline #f (proc)))) ($ $continue k src ($ $primcall 'call-thunk/no-inline #f (proc))))
(with-cps cps (with-cps cps
(setk label ($kargs names vars ($continue k src ($call proc ())))))) (setk label ($kargs names vars ($continue k src ($call proc ()))))))
(($ $kargs names vars
($ $continue k src ($ $primcall 'u64->scm/unlikely #f (u64))))
(with-cps cps
(setk label ($kargs names vars
($continue k src ($primcall 'u64->scm #f (u64)))))))
(($ $kargs names vars
($ $continue k src ($ $primcall 's64->scm/unlikely #f (s64))))
(with-cps cps
(setk label ($kargs names vars
($continue k src ($primcall 's64->scm #f (s64)))))))
(($ $kargs names vars
($ $continue k src ($ $primcall 'tag-fixnum/unlikely #f (s64))))
(with-cps cps
(setk label ($kargs names vars
($continue k src ($primcall 'tag-fixnum #f (s64)))))))
(($ $kargs names vars
($ $continue k src ($ $primcall 'load-const/unlikely val ())))
(with-cps cps
(setk label ($kargs names vars ($continue k src ($const val))))))
(($ $kargs names vars (($ $kargs names vars
($ $continue k src ($ $primcall 'mul/immediate b (a)))) ($ $continue k src ($ $primcall 'mul/immediate b (a))))
(with-cps cps (with-cps cps