/[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.181 by pfdietz, Sat Dec 25 23:56:05 2004 UTC revision 1.182 by pfdietz, Sun Dec 26 11:58:17 2004 UTC
# Line 8952  Broken at C::WT-MAKE-CLOSURE. Line 8952  Broken at C::WT-MAKE-CLOSURE.
8952         (funcall         (funcall
8953          (compile nil '(lambda (p1 p2 p3 p4 p6)          (compile nil '(lambda (p1 p2 p3 p4 p6)
8954                          (declare (optimize speed (safety 1))                          (declare (optimize speed (safety 1))
8955                                   (type (integer -785238 -80) p1)                                   (type (integer -785238 61564048) p1)
8956                                   (type (integer * 65861934352) p2))                                   (type (integer * 65861934352) p2))
8957                          (+ P1 (THE (INTEGER -485480 -7019) P2) P3 P4                          (+ P1 (THE (INTEGER -485480 -7019) P2) P3 P4
8958                             463666373060                             463666373060
# Line 9052  Broken at C::WT-MAKE-CLOSURE. Line 9052  Broken at C::WT-MAKE-CLOSURE.
9052          (fn (compile nil '(lambda (r p1 p2)          (fn (compile nil '(lambda (r p1 p2)
9053                              (declare (optimize speed (safety 1))                              (declare (optimize speed (safety 1))
9054                                       (type (simple-array (unsigned-byte 4) nil) r)                                       (type (simple-array (unsigned-byte 4) nil) r)
9055                                       (type (integer * 28306533) p1) (type (integer * 1245601) p2))                                       (type (integer * 28306533) p1)
9056                                         (type (integer * 1245601) p2))
9057                              (setf (aref r) (logandc1 p1 (the (integer -3308174) p2)))                              (setf (aref r) (logandc1 p1 (the (integer -3308174) p2)))
9058                              (values)))))                              (values)))))
9059      (funcall fn r -519 -28180)      (funcall fn r -519 -28180)
# Line 9074  Broken at C::WT-MAKE-CLOSURE. Line 9075  Broken at C::WT-MAKE-CLOSURE.
9075  (deftest misc.485  (deftest misc.485
9076    (let ((r (make-array nil :element-type 'bit))    (let ((r (make-array nil :element-type 'bit))
9077          (fn (compile nil '(lambda (r p2)          (fn (compile nil '(lambda (r p2)
9078                              (declare (optimize speed (safety 1)) (type (simple-array bit nil) r)                              (declare (optimize speed (safety 1))
9079                                         (type (simple-array bit nil) r)
9080                                       (type (integer -108220 256178) p2))                                       (type (integer -108220 256178) p2))
9081                              (setf (aref r) (logand 1 (the (member -1 2147483652 1 -5 3802) p2)))                              (setf (aref r) (logand 1 (the (member -1 2147483652 1 -5 3802) p2)))
9082                              (values)))))                              (values)))))
# Line 9086  Broken at C::WT-MAKE-CLOSURE. Line 9088  Broken at C::WT-MAKE-CLOSURE.
9088    (let ((r (make-array nil :element-type '(unsigned-byte 4)))    (let ((r (make-array nil :element-type '(unsigned-byte 4)))
9089          (fn (compile nil '(lambda (r p1 p2)          (fn (compile nil '(lambda (r p1 p2)
9090                              (declare (optimize speed (safety 1))                              (declare (optimize speed (safety 1))
9091                                       (type (simple-array (unsigned-byte 4) nil) r) (type (integer -9) p1)                                       (type (simple-array (unsigned-byte 4) nil) r)
9092                                         (type (integer -9) p1)
9093                                       (type (integer * 1234117) p2))                                       (type (integer * 1234117) p2))
9094                              (setf (aref r) (logior (the (integer -295 *) p1) (the (integer -90 *) p2)))                              (setf (aref r) (logior (the (integer -295 *) p1) (the (integer -90 *) p2)))
9095                              (values)))))                              (values)))))
# Line 9129  Broken at C::WT-MAKE-CLOSURE. Line 9132  Broken at C::WT-MAKE-CLOSURE.
9132      (funcall fn r -51)      (funcall fn r -51)
9133      (aref r))      (aref r))
9134    50)    50)
9135    
9136    (deftest misc.490
9137      (let ((r (make-array nil :element-type '(unsigned-byte 32)))
9138            (fn (compile nil '(lambda (r p1)
9139                                (declare (optimize speed (safety 1))
9140                                         (type (simple-array (unsigned-byte 32) nil) r)
9141                                         (type (integer 761639858 1030075825) p1))
9142                                (setf (aref r) (logior (the (integer * 35389813668) p1) 0))
9143                                (values)))))
9144        (funcall fn r 1030075308)
9145        (aref r))
9146      1030075308)
9147    
9148    (deftest misc.491
9149      (let ((r (make-array nil :element-type '(signed-byte 16)))
9150            (fn (compile nil '(lambda (r p2)
9151                                (declare (optimize speed (safety 1))
9152                                         (type (simple-array (signed-byte 16) nil) r)
9153                                         (type (integer 505774114 573717424) p2))
9154                                (setf (aref r) (lognand 58539 (the (integer * 910674467) p2)))
9155                                (values)))))
9156        (funcall fn r 506608551)
9157        (aref r))
9158      -8356)
9159    
9160    (deftest misc.492
9161      (let ((r (make-array nil :element-type '(signed-byte 8)))
9162            (fn (compile nil '(lambda (r p1)
9163                                (declare (optimize speed (safety 1))
9164                                         (type (simple-array (signed-byte 8) nil) r) (type (integer * 22050378) p1))
9165                                (setf (aref r) (lognand (the (integer 19464371) p1) 2257))
9166                                (values)))))
9167        (funcall fn r 19469591)
9168        (aref r))
9169      -18)
9170    
9171      
9172    

Legend:
Removed from v.1.181  
changed lines
  Added in v.1.182

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