/[cmucl]/src/compiler/life.lisp
ViewVC logotype

Diff of /src/compiler/life.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by ram, Mon Oct 31 04:27:28 1994 UTC revision 1.24 by rtoy, Fri Mar 19 15:19:00 2010 UTC
# Line 14  Line 14 
14  ;;; Written by Rob MacLachlan  ;;; Written by Rob MacLachlan
15  ;;;  ;;;
16  (in-package "C")  (in-package "C")
17    (intl:textdomain "cmucl")
18    
19    
20  ;;;; Utilities:  ;;;; Utilities:
# Line 335  Line 336 
336                                  (not (eq ref op)))                                  (not (eq ref op)))
337                         (return nil)))))                         (return nil)))))
338              (and (frob (tn-reads tn)) (frob (tn-writes tn))))              (and (frob (tn-reads tn)) (frob (tn-writes tn))))
339            () "More operand ~S used more than once in its VOP." op)            () _"More operand ~S used more than once in its VOP." op)
340          (assert (not (find-in #'global-conflicts-next tn          (assert (not (find-in #'global-conflicts-next tn
341                                (ir2-block-global-tns block)                                (ir2-block-global-tns block)
342                                :key #'global-conflicts-tn)))                                :key #'global-conflicts-tn)))

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.5