Parameterise ASSIGN-TN-COSTS to make writes more important
authorPaul Khuong <pvk@pvk.ca>
Tue, 12 Nov 2013 22:47:18 +0000 (17:47 -0500)
committerPaul Khuong <pvk@pvk.ca>
Mon, 2 Dec 2013 03:44:43 +0000 (22:44 -0500)
commit338ebb8ec835c255109363cbdf381867084f72fe
treee1e828909f6d1ed0459ad4046ce9cf991a7ff33f
parent0ebaa8ecfbe36286db0b4b380ba145af9695acca
Parameterise ASSIGN-TN-COSTS to make writes more important

*TN-WRITE-COST* determines the weight given to writes when computing
the cost for allocating a TN on the stack. It defaults to 2, versus
1 for reads.

Also, hoist some special lookups out of loops.
src/compiler/pack.lisp