Changeset 11383


Ignore:
Timestamp:
Nov 17, 2008, 12:30:14 PM (11 years ago)
Author:
gb
Message:

Fix some typos.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc2.lisp

    r11373 r11383  
    11111111            (dolist (f (%cdr form) (ppc2-branch seg xfer nil))
    11121112              (ppc2-form seg nil nil f ))
    1113             (apply fn seg vreg xfer (%cdr form)))))))
    1114     (if note
    1115       (let* ((start (ppc2-emit-note seg :source-location-begin note))
    1116              (bits (main seg vreg xfer form))
    1117              (end (ppc2-emit-note seg :source-location-end)))
    1118         (setf (vinsn-note-peer start) end
    1119               (vinsn-note-peer end) start)
    1120         (push start *ppc2-emitted-source-notes*)
    1121         bits)
    1122       (main seg vreg xfer form))))
     1113            (apply fn seg vreg xfer (%cdr form))))))))
    11231114
    11241115;;; dest is a float reg - form is acode
     
    22592250  (let* ((afunc *ppc2-cur-afunc*))
    22602251    (setf (afunc-bits afunc) (%ilogior (afunc-bits afunc) (ash 1 $fbitccoverage)))
    2261     (with-x86-local-vinsn-macros (seg)
    2262       (let* ((ccreg ($ ppc::atemp0)))
     2252    (with-ppc-local-vinsn-macros (seg)
     2253      (let* ((ccreg ($ ppc::temp0)))
    22632254        (ppc2-store-immediate seg note ccreg)
    22642255        (! misc-set-c-node ($ ppc::rzero) ccreg 1)))))
Note: See TracChangeset for help on using the changeset viewer.