suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid excessive allocation for 64-bit machines in make-string/make-bytes tests

Browse Source 
svn: r5514
This commit is contained in:
Matthew Flatt 2007-01-31 00:33:38 +00:00
parent b7f5fd2d3d
commit 0610ffdd41
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/mzscheme/basic.ss
View File

@ -655,7 +655,9 @@
(err/rt-test (make-string 5.0 #\b)) (err/rt-test (make-string 5.0 #\b))
(err/rt-test (make-string 5.2 #\a)) (err/rt-test (make-string 5.2 #\a))
(err/rt-test (make-string -5 #\f)) (err/rt-test (make-string -5 #\f))
(err/rt-test (make-string 500000000000000 #\f) exn:fail:out-of-memory?) ;; bignum on 32-bit machines (define 64-bit-machine? (eq? (expt 2 40) (eq-hash-code (expt 2 40))))
(unless 64-bit-machine?
(err/rt-test (make-string 500000000000000 #\f) exn:fail:out-of-memory?)) ;; bignum on 32-bit machines
(err/rt-test (make-string 50000000000000000000 #\f) exn:fail:out-of-memory?) ;; bignum on 64-bit machines (err/rt-test (make-string 50000000000000000000 #\f) exn:fail:out-of-memory?) ;; bignum on 64-bit machines
@ -960,7 +962,8 @@
(err/rt-test (make-bytes 5.2 97)) (err/rt-test (make-bytes 5.2 97))
(err/rt-test (make-bytes -5 98)) (err/rt-test (make-bytes -5 98))
(err/rt-test (make-bytes 50000000000000000000 #\f)) (err/rt-test (make-bytes 50000000000000000000 #\f))
(err/rt-test (make-bytes 500000000000000 45) exn:fail:out-of-memory?) ;; bignum on 32-bit machines (unless 64-bit-machine?
(err/rt-test (make-bytes 500000000000000 45) exn:fail:out-of-memory?)) ;; bignum on 32-bit machines
(err/rt-test (make-bytes 50000000000000000000 45) exn:fail:out-of-memory?) ;; bignum on 64-bit machines (err/rt-test (make-bytes 50000000000000000000 45) exn:fail:out-of-memory?) ;; bignum on 64-bit machines

4
collects/tests/mzscheme/optimize.ss
View File

@ -410,6 +410,10 @@
(define (f x) (+ x 1)) (define (f x) (+ x 1))
9)) 9))
(test-comp '(let ([f (lambda (x) 10)])
3)
'3)
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Check bytecode verification of lifted functions ;; Check bytecode verification of lifted functions