Changeset 16186 for release


Ignore:
Timestamp:
Sep 3, 2014, 2:53:46 PM (4 years ago)
Author:
rme
Message:

Merge from trunk.

Location:
release/1.10/source
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/1.10/source

  • release/1.10/source/compiler/ARM/arm2.lisp

    r16183 r16186  
    26802680                  (return nil))))
    26812681            (if (eq op (%nx1-operator local-block))
    2682               (setq body (car (acode-operands body)))
     2682              (setq body (cadr (acode-operands body)))
    26832683              (if (and (eq op (%nx1-operator if))
    26842684                       (eq (arm2-lexical-reference-p (car (acode-operands body))) rest))
  • release/1.10/source/compiler/PPC/ppc2.lisp

    r16180 r16186  
    22412241                  (return nil))))
    22422242            (if (eq op (%nx1-operator local-block))
    2243               (setq body (car (acode-operands body)))
     2243              (setq body (cadr (acode-operands body)))
    22442244              (if (and (eq op (%nx1-operator if))
    22452245                       (eq (ppc2-lexical-reference-p (car (acode-operands body))) rest))
  • release/1.10/source/compiler/X86/x862.lisp

    r16180 r16186  
    31613161                  (return nil))))
    31623162            (if (eq op (%nx1-operator local-block))
    3163               (setq body (cadr body))
     3163              (setq body (cadr (acode-operands body)))
    31643164              (if (and (eq op (%nx1-operator if))
    31653165                       (eq (nx2-lexical-reference-p (car (acode-operands body))) rest))
Note: See TracChangeset for help on using the changeset viewer.