/[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.205 by pfdietz, Sun Feb 20 19:24:32 2005 UTC revision 1.206 by pfdietz, Mon Feb 21 13:48:42 2005 UTC
# Line 9825  Broken at C::WT-MAKE-CLOSURE. Line 9825  Broken at C::WT-MAKE-CLOSURE.
9825        (unless (eql expected actual)        (unless (eql expected actual)
9826          (list expected actual))))          (list expected actual))))
9827    nil)    nil)
9828    
9829    ;;; cmucl (Jan 2005 snapshot)
9830    
9831    ;;; Segmentation fault
9832    
9833    (deftest misc.530
9834      (let* ((v (make-array
9835                 '(11) :element-type 'double-float
9836                 :initial-contents
9837                 '(56826.586316245484d0 -57680.53641925701d0 68651.27735979737d0
9838                   30934.627728043164d0 47252.736017400945d0 35129.46986219467d0
9839                   -57804.412938803005d0 13000.374416975968d0 50263.681826551256d0
9840                   89386.08276072948d0 -89508.77479231959d0)))
9841             (form
9842              `(lambda (r)
9843                 (declare (optimize speed (safety 1))
9844                          (type (simple-array t nil) r))
9845                 (setf (aref r)
9846                       (array-has-fill-pointer-p ,v))))
9847             (r (make-array nil)))
9848        (funcall (compile nil form) r)
9849        (eqlt (aref r) (array-has-fill-pointer-p v)))
9850      t)
9851    
9852    ;;; gcl
9853    ;;; Problem with 0-dim char arrays
9854    ;;; Produces wrong return value (#\\320).
9855    
9856    (deftest misc.532
9857      (let ((r (make-array nil :element-type 'base-char)))
9858        (funcall
9859         (compile
9860          nil
9861          '(lambda (r c)
9862             (declare (optimize speed (safety 1))
9863                      (type (simple-array base-char nil) r)
9864                      (type base-char c))
9865             (setf (aref r) c)
9866             (values)))
9867         r #\Z)
9868        (aref r))
9869      #\Z)
9870    
9871    ;;; sbcl 0.8.19.32
9872    ;;; Bound is not *, a INTEGER or a list of a INTEGER: -51494/29889
9873    
9874    (deftest misc.533
9875      (let* ((r (make-array nil))
9876             (c #c(208 -51494/29889))
9877             (form `(lambda (r p1)
9878                      (declare (optimize speed (safety 1))
9879                               (type (simple-array t nil) r)
9880                               (type number p1))
9881                      (setf (aref r) (+ (the (eql ,c) p1) -319284))
9882                      (values)))
9883             (fn (compile nil form)))
9884        (funcall fn r c)
9885        (eqlt (aref r) (+ -319284 c)))
9886      t)
9887    
9888    

Legend:
Removed from v.1.205  
changed lines
  Added in v.1.206

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