Changeset 8753


Ignore:
Timestamp:
Mar 13, 2008, 6:14:47 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/X86/x862.lisp

    r8585 r8753  
    63956395
    63966396(defx862 x862-call call (seg vreg xfer fn arglist &optional spread-p)
     6397  (when (and (null vreg)
     6398             (acode-p fn)
     6399             (eq (acode-operator fn) (%nx1-operator immediate)))
     6400    (let* ((name (cadr fn)))
     6401      (when (memq name *warn-if-function-result-ignored*)
     6402        (p2-whine *x862-cur-afunc*  :result-ignored name))))
    63976403  (x862-call-fn seg vreg xfer fn arglist spread-p))
    63986404
Note: See TracChangeset for help on using the changeset viewer.