/[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.1 by pfdietz, Mon Sep 22 16:28:24 2003 UTC revision 1.2 by pfdietz, Tue Sep 23 00:59:05 2003 UTC
# Line 660  Line 660 
660    (funcall    (funcall
661     (compile     (compile
662      nil      nil
663      '(LAMBDA (B C)      '(lambda (b c)
664               (DECLARE (TYPE (INTEGER 0 1) B) (OPTIMIZE (SPEED 3)))               (declare (type (integer 0 1) b) (optimize (speed 3)))
665               (FLET ((%F2 () (LOGNOR (BLOCK B5 138) C)))               (flet ((%f2 () (lognor (block b5 138) c)))
666                     (IF (NOT (OR (= -67399 B) B))                     (if (not (or (= -67399 b) b))
667                         (DEPOSIT-FIELD (%F2) (BYTE 11 8) -3)                         (deposit-field (%f2) (byte 11 8) -3)
668                         C))))                         c))))
669     0 0)     0 0)
670    0)    0)
671    
       
672    (deftest misc.47
673      (funcall
674       (compile
675        nil
676        '(lambda (a)
677                 (declare (type (integer -4005718822 -50081775) a)
678                          (optimize (speed 3) (safety 1) (debug 1)))
679                 (lognor (ash a (min 0 a)) a)))
680       -2878148992)
681      0)
682    
683    (deftest misc.48
684      (funcall
685       (compile
686        nil
687        '(lambda (a) (declare (notinline ash min)) (lognor (ash a (min 0 a)) a)))
688       -2878148992)
689      0)
690    
691    (deftest misc.49
692      (let ((body '(truncate (logorc1 -996082 C) -2))
693            (arg 25337234))
694        (values
695         (funcall (compile nil `(lambda (c) ,body)) arg)
696         (funcall (compile nil `(lambda (c) (declare (notinline truncate))
697                                  ,body)) arg)))
698      -13099001
699      -13099001)
700    
701    (deftest misc.50
702      (funcall (compile nil `(lambda (c)
703                               (declare (optimize (speed 3))
704                                        (type (integer 23062188 149459656) c))
705                               (mod c (min -2 0))))
706               95019853)
707      -1)
708    
709    (deftest misc.51
710      (funcall (compile nil `(lambda (b)
711                               (declare (optimize (speed 3))
712                                        (type (integer 2 152044363) b))
713                                (rem b (min -16 0))))
714               108251912)
715      8)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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