/[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.180 by pfdietz, Sat Dec 25 21:37:56 2004 UTC revision 1.181 by pfdietz, Sat Dec 25 23:56:05 2004 UTC
# Line 9093  Broken at C::WT-MAKE-CLOSURE. Line 9093  Broken at C::WT-MAKE-CLOSURE.
9093      (funcall fn r 6 6)      (funcall fn r 6 6)
9094      (aref r))      (aref r))
9095    6)    6)
9096    
9097    (deftest misc.487
9098      (let ((r (make-array nil :element-type '(unsigned-byte 16)))
9099            (fn (compile nil '(lambda (r p1)
9100                                (declare (optimize speed (safety 1))
9101                                         (type (simple-array (unsigned-byte 16) nil) r)
9102                                         (type (integer 1583040351 1587341394) p1))
9103                                (setf (aref r) (logandc2 (the (integer 1587211196 1587341392) p1) -166174))
9104                                (values)))))
9105        (funcall fn r 1587341392)
9106        (aref r))
9107      34832)
9108    
9109    (deftest misc.488
9110      (let ((r (make-array nil :element-type '(unsigned-byte 32)))
9111            (fn (compile nil '(lambda (r p2)
9112                                (declare (optimize speed (safety 1))
9113                                         (type (simple-array (unsigned-byte 32) nil) r)
9114                                         (type (integer 1960409798 1960426181) p2))
9115                                (setf (aref r) (logorc1 -1 p2))
9116                                (values)))))
9117        (funcall fn r 1960409801)
9118        (aref r))
9119      1960409801)
9120    
9121    (deftest misc.489
9122      (let ((r (make-array nil :element-type '(unsigned-byte 32)))
9123            (fn (compile nil '(lambda (r p2)
9124                                (declare (optimize speed (safety 1))
9125                                         (type (simple-array (unsigned-byte 32) nil) r)
9126                                         (type (integer -55) p2))
9127                                (setf (aref r) (logorc2 0 (the (member -51) p2)))
9128                                (values)))))
9129        (funcall fn r -51)
9130        (aref r))
9131      50)

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

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