/[gcl]/gcl/ansi-tests/misc.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/misc.lsp

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

revision 1.171 by pfdietz, Thu Dec 16 11:57:35 2004 UTC revision 1.172 by pfdietz, Sat Dec 18 22:04:20 2004 UTC
# Line 8788  Broken at C::WT-MAKE-CLOSURE. Line 8788  Broken at C::WT-MAKE-CLOSURE.
8788     -26179151369)     -26179151369)
8789    -24004952244)    -24004952244)
8790    
8791    ;;; gcl 18 Dec 2004
8792    ;;; Doesn't cause an error, unless -Werror is added to gcc flags
8793    ;;; gazonk0.c: In function `L1':
8794    ;;; gazonk0.c:5257: warning: assignment makes integer from pointer without a cast
8795    
8796    (deftest misc.462
8797      (funcall
8798       (compile nil '(lambda (a b)
8799                       (declare (type (integer -2726808666112 -26532) a))
8800                       (declare (type (integer 182701814 171137312256) b))
8801                       (declare (ignorable a b))
8802                       (declare (optimize (compilation-speed 3) (safety 0)
8803                                          (speed 3) (space 3) (debug 3)))
8804                       (ash (let* ((v8 (cons 0 0))) 0) (min 15 a))))
8805       -1982565461868 46279989780)
8806      0)
8807    
8808    ;;; gazonk0.c: In function `L1':
8809    ;;; gazonk0.c:5262: warning: assignment makes integer from pointer without a cast
8810    (deftest misc.463
8811      (funcall
8812       (compile nil '(lambda (a b)
8813                       (declare (type (integer 0 0) a))
8814                       (declare (type (integer -160364747008 264742845184) b))
8815                       (declare (ignorable a b))
8816                       (declare (optimize (debug 0) (safety 0)
8817                                          (compilation-speed 2) (space 0)
8818                                          (speed 1)))
8819                       (ash (multiple-value-setq (a) 0) (min 97 13027666096))))
8820       0 34670845086)
8821      0)
8822    
8823        
8824    

Legend:
Removed from v.1.171  
changed lines
  Added in v.1.172

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26