register. If it is not called, then any assigns to machine registers will
not "lock" the register. This was a problem when the procedure would assign
the return value and then use the same register to compute where to go next.
#| -*-Scheme-*-
-$Id: lapgen.scm,v 1.3 1995/01/11 21:09:46 ssmith Exp $
+$Id: lapgen.scm,v 1.4 1995/01/12 22:39:50 ssmith Exp $
Copyright (c) 1992-1993 Massachusetts Institute of Technology
\f
(define (target-register target)
(delete-dead-registers!)
- (or (register-alias target 'GENERAL)
+ (or ;(register-alias target 'GENERAL)
(allocate-alias-register! target 'GENERAL)))
(define-integrable (target-register-reference target)