Changeset 8752


Ignore:
Timestamp:
Mar 13, 2008, 6:14:39 AM (11 years ago)
Author:
gb
Message:

Complain about calls to side-effeccting functions where the result is
(obviously) unused.

File:
1 edited

Legend:

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

    r8588 r8752  
    61076107
    61086108(defppc2 ppc2-call call (seg vreg xfer fn arglist &optional spread-p)
     6109  (when (and (null vreg)
     6110             (acode-p fn)
     6111             (eq (acode-operator fn) (%nx1-operator immediate)))
     6112    (let* ((name (cadr fn)))
     6113      (when (memq name *warn-if-function-result-ignored*)
     6114        (p2-whine *ppc2-cur-afunc*  :result-ignored name))))
    61096115  (ppc2-call-fn seg vreg xfer fn arglist spread-p))
    61106116
Note: See TracChangeset for help on using the changeset viewer.