From: Christophe R. <cr...@us...> - 2002-05-20 16:22:22
|
Update of /cvsroot/sbcl/sbcl/tests In directory usw-pr-cvs1:/tmp/cvs-serv6929/tests Added Files: info.before-xc.lisp Log Message: 0.7.3.22: Test that the cross-compiler knows about constants on startup ... or at least at the end of being built SunOS versions less than 5.8 now fully supported (thanks to Eric Marsden for diagnosis and testing) --- NEW FILE: info.before-xc.lisp --- ;;;; tests of the INFO compiler database, initially with particular ;;;; reference to knowledge of constants, intended to be executed as ;;;; soon as the cross-compiler is built. ;;;; This software is part of the SBCL system. See the README file for ;;;; more information. ;;;; ;;;; While most of SBCL is derived from the CMU CL system, the test ;;;; files (like this one) were written from scratch after the fork ;;;; from CMU CL. ;;;; ;;;; This software is in the public domain and is provided with ;;;; absolutely no warranty. See the COPYING and CREDITS files for ;;;; more information. (in-package "SB!KERNEL") (/show "beginning tests/info.before-xc.lisp") (assert (eq (sb!int:info :variable :kind 'sb!vm:vector-data-offset) :constant)) ;;; It's possible in general for a constant to have the value NIL, but ;;; not for vector-data-offset, which must be a number: (multiple-value-bind (value successp) (sb!int:info :variable :constant-value 'sb!vm:vector-data-offset) (assert value) (assert successp)) (/show "done with tests/info.before-xc.lisp") |