mason.child: Also allow 32bit build on Windows.

factor-shell
Doug Coleman 2017-12-09 03:49:43 -06:00
parent 454efe0942
commit 089904fed6
1 changed files with 4 additions and 2 deletions

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays calendar combinators USING: accessors arrays calendar combinators
combinators.short-circuit continuations fry io.directories combinators.short-circuit continuations fry io.directories
io.launcher io.pathnames kernel macros make mason.config io.launcher io.pathnames kernel layouts macros make mason.config
mason.notify mason.platform mason.report math.parser namespaces mason.notify mason.platform mason.report math.parser namespaces
quotations sequences splitting system system-info ; quotations sequences splitting system system-info ;
IN: mason.child IN: mason.child
@ -10,8 +10,10 @@ IN: mason.child
HOOK: compile-factor-command os ( -- array ) HOOK: compile-factor-command os ( -- array )
M: unix compile-factor-command ( -- array ) M: unix compile-factor-command ( -- array )
{ "make" "-j" } cpus number>string suffix ; { "make" "-j" } cpus number>string suffix ;
! Windows has separate 32/64 bit shells, so assuming the cell bits here is fine
! because it won't find the right toolchain otherwise.
M: windows compile-factor-command ( -- array ) M: windows compile-factor-command ( -- array )
{ "nmake" "/f" "NMakefile" "x86-64" } ; { "nmake" "/f" "NMakefile" } cell-bits 64 = "x86-64" "x86-32" ? suffix ;
HOOK: factor-path os ( -- path ) HOOK: factor-path os ( -- path )
M: unix factor-path "./factor" ; M: unix factor-path "./factor" ;