Ignore:
Timestamp:
Mar 6, 2008, 5:38:29 PM (12 years ago)
Author:
gb
Message:

Detect at least some cases where a function call's result is
obviously ignored (and that's believed to be anomalous) and whine.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/X86/x862.lisp

    r8646 r8670  
    65326532
    65336533(defx862 x862-call call (seg vreg xfer fn arglist &optional spread-p)
     6534  (when (and (null vreg)
     6535             (acode-p fn)
     6536             (eq (acode-operator fn) (%nx1-operator immediate)))
     6537    (let* ((name (cadr fn)))
     6538      (when (memq name *warn-if-function-result-ignored*)
     6539        (p2-whine *x862-cur-afunc*  :result-ignored name))))
    65346540  (x862-call-fn seg vreg xfer fn arglist spread-p))
    65356541
Note: See TracChangeset for help on using the changeset viewer.