/[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.10 by wlott, Sat Nov 3 03:07:41 1990 UTC revision 1.11 by wlott, Tue Nov 13 22:50:10 1990 UTC
# Line 203  Line 203 
203    (let* ((component (component-info *compile-component*))    (let* ((component (component-info *compile-component*))
204           (immed (immediate-constant-sc (constant-value constant)))           (immed (immediate-constant-sc (constant-value constant)))
205           (sc (svref (backend-sc-numbers *backend*)           (sc (svref (backend-sc-numbers *backend*)
206                      (or immed (sc-number-or-lose 'constant))))                      (or immed (sc-number-or-lose 'constant *backend*))))
207           (res (make-tn 0 :constant (primitive-type (leaf-type constant)) sc)))           (res (make-tn 0 :constant (primitive-type (leaf-type constant)) sc)))
208      (unless immed      (unless immed
209        (let ((constants (ir2-component-constants component)))        (let ((constants (ir2-component-constants component)))
# Line 240  Line 240 
240    (let* ((component (component-info *compile-component*))    (let* ((component (component-info *compile-component*))
241           (res (make-tn 0 :constant (backend-any-primitive-type *backend*)           (res (make-tn 0 :constant (backend-any-primitive-type *backend*)
242                         (svref (backend-sc-numbers *backend*)                         (svref (backend-sc-numbers *backend*)
243                                (sc-number-or-lose 'constant))))                                (sc-number-or-lose 'constant *backend*))))
244           (constants (ir2-component-constants component)))           (constants (ir2-component-constants component)))
245    
246      (do ((i 0 (1+ i)))      (do ((i 0 (1+ i)))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5