Ticket #862: win64-gc-bug.lisp

File win64-gc-bug.lisp, 1.0 KB (added by rme, 4 years ago)
Line 
1(defclass deflate-compressor ()
2  ((input
3    :initarg :input
4    :accessor input)
5   (chains
6    :initarg :chains
7    :accessor chains)
8   (hashes
9    :initarg :hashes
10    :accessor hashes)
11   (octet-buffer
12    :initarg :octet-buffer
13    :accessor octet-buffer)
14   (literal-fun
15    :initarg :literal-fun
16    :accessor literal-fun)
17   (length-fun
18    :initarg :length-fun
19    :accessor length-fun)
20   (distance-fun
21    :initarg :distance-fun
22    :accessor distance-fun)
23   (byte-fun
24    :initarg :byte-fun
25    :accessor byte-fun)
26   (compress-fun
27    :initarg :compress-fun
28    :accessor compress-fun))
29  (:default-initargs
30   :input (make-array 65536 :element-type '(unsigned-byte 8))
31    :chains (make-array 65536
32                        :element-type '(unsigned-byte 16)
33                        :initial-element 0)
34    :hashes (make-array 8191
35                        :element-type '(unsigned-byte 16)
36                        :initial-element 0)
37
38    :octet-buffer nil))
39
40(loop for i from 1 to 10 do
41      (ccl::process-run-function "noname"
42                                 (lambda ()
43                                   (loop for j from 1 do
44                                         (make-instance 'deflate-compressor)))))