/[cmucl]/src/compiler/ir1opt.lisp
ViewVC logotype

Diff of /src/compiler/ir1opt.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.86.4.1 by rtoy, Thu Dec 18 21:50:18 2008 UTC revision 1.89 by rtoy, Mon Apr 19 15:08:20 2010 UTC
# Line 18  Line 18 
18  ;;; Written by Rob MacLachlan  ;;; Written by Rob MacLachlan
19  ;;;  ;;;
20  (in-package :c)  (in-package :c)
21    (intl:textdomain "cmucl")
22    
23    
24  ;;;; Interface for obtaining results of constant folding:  ;;;; Interface for obtaining results of constant folding:
# Line 195  Line 196 
196                       (not (eq rtype *empty-type*)))                       (not (eq rtype *empty-type*)))
197              (let ((*compiler-error-context* node))              (let ((*compiler-error-context* node))
198                (compiler-warning                (compiler-warning
199                 "New inferred type ~S conflicts with old type:~                 _N"New inferred type ~S conflicts with old type:~
200                  ~%  ~S~%*** Bug?"                  ~%  ~S~%*** Bug?"
201                 (type-specifier rtype) (type-specifier node-type))))                 (type-specifier rtype) (type-specifier node-type))))
202            (setf (node-derived-type node) int)            (setf (node-derived-type node) int)
# Line 787  Line 788 
788             (let ((unused-result (funcall fun node)))             (let ((unused-result (funcall fun node)))
789               (when unused-result               (when unused-result
790                 (let ((*compiler-error-context* node))                 (let ((*compiler-error-context* node))
791                   (compiler-warning "The return value of ~A should not be discarded."                   (compiler-warning _N"The return value of ~A should not be discarded."
792                                     (continuation-function-name (basic-combination-fun node))))))))                                     (continuation-function-name (basic-combination-fun node))))))))
793    
794         (let ((fun (function-info-destroyed-constant-args kind)))         (let ((fun (function-info-destroyed-constant-args kind)))
# Line 1653  Line 1654 
1654          (when total-nvals          (when total-nvals
1655            (when (and min (< total-nvals min))            (when (and min (< total-nvals min))
1656              (compiler-warning              (compiler-warning
1657               "MULTIPLE-VALUE-CALL with ~R values when the function expects ~               _N"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
1658               at least ~R."               at least ~R."
1659               total-nvals min)               total-nvals min)
1660              (setf (basic-combination-kind node) :error)              (setf (basic-combination-kind node) :error)
1661              (return-from ir1-optimize-mv-call))              (return-from ir1-optimize-mv-call))
1662            (when (and max (> total-nvals max))            (when (and max (> total-nvals max))
1663              (compiler-warning              (compiler-warning
1664               "MULTIPLE-VALUE-CALL with ~R values when the function expects ~               _N"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
1665               at most ~R."               at most ~R."
1666               total-nvals max)               total-nvals max)
1667              (setf (basic-combination-kind node) :error)              (setf (basic-combination-kind node) :error)

Legend:
Removed from v.1.86.4.1  
changed lines
  Added in v.1.89

  ViewVC Help
Powered by ViewVC 1.1.5