mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Fix out-of-memory test for top-level inlining

Browse source 
* test-suite/standalone/test-out-of-memory: Prevent the test harness
  from being inlined.  If the test harness is inlined, it might cause
  the optimizer to omit the allocations being tested!
This commit is contained in:
Andy Wingo 2019-08-25 21:44:46 +02:00
parent 0a3591c374
commit 702cdb35db
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/standalone/test-out-of-memory
View file

@ -36,7 +36,7 @@ exec guile -q -s "$0" "$@"
(lambda (k . args)
(print-exception (current-error-port) #f k args)
(write "Skipping test.\n" (current-error-port))
(exit 0)))
(exit 77))) ; unresolved
;; 50 MB.
(define *limit* (* 50 1024 1024))
@ -54,6 +54,10 @@ exec guile -q -s "$0" "$@"
(lambda _
#t)))
;; Prevent `test' from being inlined, which might cause an unused
;; allocation to be omitted.
(set! test test)
(use-modules (rnrs bytevectors))
(test (lambda ()