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

Diff of /src/compiler/tn.lisp

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

revision 1.20 by ram, Mon Oct 31 04:27:28 1994 UTC revision 1.20.58.1 by rtoy, Thu Feb 25 20:34:53 2010 UTC
# Line 16  Line 16 
16  ;;;  ;;;
17  (in-package "C")  (in-package "C")
18    
19    (intl:textdomain "cmucl")
20    
21  (export '(make-normal-tn make-representation-tn make-wired-tn  (export '(make-normal-tn make-representation-tn make-wired-tn
22            make-restricted-tn environment-live-tn            make-restricted-tn environment-live-tn
23            environment-debug-live-tn component-live-tn specify-save-tn            environment-debug-live-tn component-live-tn specify-save-tn
# Line 32  Line 34 
34  ;;; Do-Packed-TNs  --  Interface  ;;; Do-Packed-TNs  --  Interface
35  ;;;  ;;;
36  (defmacro do-packed-tns ((tn component &optional result) &body body)  (defmacro do-packed-tns ((tn component &optional result) &body body)
37    "Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*    _N"Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*
38    Iterate over all packed TNs allocated in Component."    Iterate over all packed TNs allocated in Component."
39    (let ((n-component (gensym)))    (let ((n-component (gensym)))
40      `(let ((,n-component (component-info ,component)))      `(let ((,n-component (component-info ,component)))
# Line 563  Line 565 
565      (unless (and (not (sc-save-p sc))      (unless (and (not (sc-save-p sc))
566                   (eq (sb-kind (sc-sb sc)) :unbounded))                   (eq (sb-kind (sc-sb sc)) :unbounded))
567        (dolist (alt (sc-alternate-scs sc)        (dolist (alt (sc-alternate-scs sc)
568                     (error "SC ~S has no :unbounded :save-p NIL alternate SC."                     (error _"SC ~S has no :unbounded :save-p NIL alternate SC."
569                            (sc-name sc)))                            (sc-name sc)))
570          (when (and (not (sc-save-p alt))          (when (and (not (sc-save-p alt))
571                     (eq (sb-kind (sc-sb alt)) :unbounded))                     (eq (sb-kind (sc-sb alt)) :unbounded))

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.20.58.1

  ViewVC Help
Powered by ViewVC 1.1.5