steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

system: Add cell-bits (32/64 bit) and build number to version-info string.

db4
Doug Coleman 2014-11-11 16:44:00 -08:00
parent 7a9843ec5c
commit 9a3a533712
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/system/system.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2010 Slava Pestov. ! Copyright (C) 2007, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs continuations init io kernel kernel.private make USING: assocs continuations init io kernel kernel.private
namespaces sequences ; layouts make math.parser namespaces sequences ;
IN: system IN: system
SINGLETONS: x86.32 x86.64 arm ppc.32 ppc.64 ; SINGLETONS: x86.32 x86.64 arm ppc.32 ppc.64 ;
@ -67,7 +67,10 @@ PRIVATE>
: version-info ( -- str ) : version-info ( -- str )
! formatting vocab not available in this context. ! formatting vocab not available in this context.
[ [
"Factor " % vm-version % " (" % vm-git-label % ", " % "Factor " % vm-version %
" " % cell-bits #
"-bit build: " % build #
" (" % vm-git-label % ", " %
vm-compile-time % ") [" % vm-compile-time % ") [" %
vm-compiler % " " % cpu cpu>string % "] on " % os os>string % vm-compiler % " " % cpu cpu>string % "] on " % os os>string %
] "" make ; ] "" make ;