Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
ansi-test
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Deploy
Releases
Container Registry
Model registry
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Michał Herda
ansi-test
Commits
d5535795
"test/test-builtin-source-file-type-3.asd" did not exist on "1f85cb0dc032311ca9faf8f05762891496909868"
Commit
d5535795
authored
18 years ago
by
pfdietz
Browse files
Options
Downloads
Patches
Plain Diff
Seven cmucl failures
parent
5527636c
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
ansi-tests/misc.lsp
+213
-1
213 additions, 1 deletion
ansi-tests/misc.lsp
with
213 additions
and
1 deletion
ansi-tests/misc.lsp
+
213
−
1
View file @
d5535795
...
...
@@ -11373,7 +11373,7 @@ Broken at C::WT-MAKE-CLOSURE.
;;; The value NIL is not of type SB-C::IR2-NLX-INFO.
(deftest misc.641
(let ((form '(lambda ()
; c)
(let ((form '(lambda ()
(declare (optimize (speed 1) (space 0) (debug 2)
(compilation-speed 0) (safety 1)))
(flet ((%f3 (f3-1 &key (key1 (count (floor 0 (min -74 0)) #())))
...
...
@@ -11381,3 +11381,215 @@ Broken at C::WT-MAKE-CLOSURE.
(apply #'%f3 0 nil)))))
(funcall (compile nil form)))
0)
;;; cmucl 19c (x86 linux)
;;; The assertion (NOT (MEMBER C::KIND '(:DELETED :OPTIONAL))) failed.
(deftest misc.642
(let ((form ' (lambda (a b c d e f g h i j)
(declare (type (integer 174130 60165950) a))
(declare (type (integer -4076 6783) b))
(declare (type (integer -178481569 -1) c))
(declare (type (integer 236 954963169) d))
(declare (type (integer -1334 407047) e))
(declare (type (integer -507 -426) f))
(declare (type (integer -1164301 148213922) g))
(declare (type (integer -184324 14515) h))
(declare (type (integer 258 323) i))
(declare (type (integer -11825 109247) j))
(declare (ignorable a b c d e f g h i j))
#+cmu (declare (optimize (extensions:inhibit-warnings 3)))
(declare (optimize (compilation-speed 2) (debug 0) (space 1) (speed 3)
(safety 2)))
(labels ((%f4 (f4-1)
(flet ((%f2 (f2-1 f2-2 f2-3 &key)
(progn
(return-from %f4 0)
f2-2)))
(common-lisp:handler-bind nil
(/
(coerce
(unwind-protect
(reduce
#'(lambda (lmv2 lmv4)
(reduce #'*
(vector
(let ()
h)
c
(reduce
#'(lambda (lmv4 lmv3)
(return-from %f4
(deposit-field lmv4
(byte 23 16)
(mask-field
(byte 3 27)
(elt '(5309746)
(min 0
(max 0
j)))))))
(vector
(%f2 (%f2 12762 f4-1 6646240924) 1501
-15)
277
(multiple-value-call #'%f2
(values -1486981
i
(%f2 a 16777222 j)))
1033)
:end 4
:start 3)
(/ 823 -1))
:end 3
:start 1))
(vector
(common-lisp:handler-bind nil
(- 0 h j b -2539837 28596 d 8161548 h -61))
-183768642
-1
31404552
81593)
:start 3)
(dpb i (byte 14 16) e)
(dpb
(count f4-1
#(524279 8388596 1021351 101986)
:test '/=)
(byte 4 4)
131064)
(if (= 524287 f)
(prog2
(denominator
(elt '(1663 120) (min 1 (max 0 -17745))))
f
(deposit-field e (byte 31 31) 0)
(labels ((%f7
(f7-1 f7-2 f7-3
&optional
(f7-4
(coerce
(coerce
(the integer (+ -11045 114))
'integer)
'integer))
(f7-5 h))
-2286515))
j))
(macrolet ()
(prog2 -2195 1921675 h -183085 a))))
'integer)
1)))))
0))))
(funcall (compile nil form) 58162926 -3652 -63561386 935157597 63716 -504 108893677 -146677 308 99009))
0)
;;; Wrong return value
(deftest misc.643
(let ((form '(lambda (a)
(declare (type (integer 6 1273) a))
(declare (optimize (space 0) (safety 0) (debug 3) (compilation-speed 2) (speed 3)))
(logorc2 0 (restart-bind nil (shiftf a 522))))))
(funcall (compile nil form) 807))
-808)
;;; -1520586839 is not of type INTEGER
(deftest misc.644
(let ((form '(lambda (a)
(declare (type (integer -6568333536 -12667) a))
(declare (ignorable a))
#+cmu (declare (optimize (extensions:inhibit-warnings 3)))
(declare (optimize (compilation-speed 1) (safety 3) (speed 1) (debug 1)
(space 3)))
(unwind-protect 0
(the integer
(locally
(declare (special *s3* *s4*))
(progv '(*s4* *s3*) (list a a) (expt *s3* 0))))))))
(let ((*s3* 0))
(declare (special *s3*))
(funcall (compile nil form) -1520586839)))
0)
;;; NIL is not of type C::CBLOCK
(deftest misc.645
(let ((form '(lambda (a)
(declare (notinline abs isqrt))
#+cmu (declare (optimize (extensions:inhibit-warnings 3)))
(declare (optimize (debug 3) (safety 1) (space 2) (compilation-speed 1)
(speed 0)))
(progn
(tagbody
(prog2
a
0
(labels ((%f9 (&key &allow-other-keys)
(go 3)))
(%f9)))
(isqrt (abs (unwind-protect 0)))
3)
a))))
(eval `(,form 0)))
0)
;;; Segmentation violation
(deftest misc.646
(let ((form '(lambda (a)
(declare (type (integer -125 -44) a))
(declare (ignorable a))
#+cmu (declare (optimize (extensions:inhibit-warnings 3)))
(declare (optimize (speed 0) (debug 0) (space 2) (compilation-speed 3)
(safety 3)))
(mask-field (byte 0 0)
(block b3 (isqrt (abs (catch 'ct2 (return-from b3 0)))))))))
(funcall (compile nil form) -50))
0)
;;; 1928431123 is not of type (MOD 536870911)
(deftest misc.647
(let ((form '(lambda (a)
(declare (type (integer -2494 534) a))
(declare (ignorable a))
#+cmu (declare (optimize (extensions:inhibit-warnings 3)))
(declare (optimize (speed 0) (space 0) (compilation-speed 3) (safety 1)
(debug 1)))
(dotimes (iv3 1 0)
(block b1
(loop for lv1 below 1
count (logbitp 0
(reduce
#'(lambda (lmv6 lmv2)
(if (> 2208446653 lmv6)
(return-from b1 lmv2)
lv1))
(list 0 0 0 1928431123 iv3 iv3 a a)
:end 5
:from-end t))))))))
(funcall (compile nil form) 1))
0)
;;; The assertion (AND C::SUCC (NULL (CDR C::SUCC))) failed.
(deftest misc.648
(let ((form '(lambda (a)
(declare (type (integer -8 11754838336) a))
(declare (ignorable a))
#+cmu (declare (optimize (extensions:inhibit-warnings 3)))
(declare (optimize (space 0) (compilation-speed 0) (speed 3) (debug 3)
(safety 0)))
(labels ((%f13 ()
(logorc1 (unwind-protect 0)
(prog1 0
(prog2
(max 0 a)
0
(progn
(return-from %f13 a)
a))))))
0))))
(funcall (compile nil form) 2582756596))
0)
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment