diff options
author | Andy Wingo <wingo@pobox.com> | 2018-01-07 18:24:15 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-01-07 18:44:53 +0100 |
commit | abfe04835b292b326f75faf61fdae4a795d1039c (patch) | |
tree | 51991e8710b9afe3ebd1bb7d7de5893b62b0fa9e /module/language/cps/compile-bytecode.scm | |
parent | 49fa4980bb58d8421acc0711d7acc8eaaf088050 (diff) | |
download | guile-abfe04835b292b326f75faf61fdae4a795d1039c.tar.gz |
Remove special optimizer and backend support for pairs
* module/language/cps/compile-bytecode.scm (compile-function):
* module/language/cps/cse.scm (compute-equivalent-subexpressions):
* module/language/cps/dce.scm (compute-live-code):
* module/language/cps/effects-analysis.scm:
* module/language/cps/types.scm: Remove support for cons, car, etc
primcalls.
* module/language/cps/effects-analysis.scm (&car, &cdr): Remove
undefined exports.
* module/system/vm/assembler.scm: Remove emit-cons, etc exports.
Diffstat (limited to 'module/language/cps/compile-bytecode.scm')
-rw-r--r-- | module/language/cps/compile-bytecode.scm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm index 59784921a..12ef69b77 100644 --- a/module/language/cps/compile-bytecode.scm +++ b/module/language/cps/compile-bytecode.scm @@ -327,10 +327,6 @@ (($ $primcall 'string-set! #f (string index char)) (emit-string-set! asm (from-sp (slot string)) (from-sp (slot index)) (from-sp (slot char)))) - (($ $primcall 'set-car! #f (pair value)) - (emit-set-car! asm (from-sp (slot pair)) (from-sp (slot value)))) - (($ $primcall 'set-cdr! #f (pair value)) - (emit-set-cdr! asm (from-sp (slot pair)) (from-sp (slot value)))) (($ $primcall 'push-fluid #f (fluid val)) (emit-push-fluid asm (from-sp (slot fluid)) (from-sp (slot val)))) (($ $primcall 'pop-fluid #f ()) |