compiler.cfg.builder.alien.tests: fix test that broke windows

char-rename
Björn Lindqvist 2016-12-01 19:52:02 +01:00
parent cefb15b2d6
commit 4d5b83c3f5
1 changed files with 7 additions and 3 deletions

View File

@ -1,4 +1,4 @@
USING: accessors alien alien.c-types assocs compiler.cfg
USING: accessors alien alien.c-types alien.strings assocs compiler.cfg
compiler.cfg.builder compiler.cfg.builder.alien
compiler.cfg.builder.alien.params compiler.cfg.builder.blocks
compiler.cfg.instructions compiler.cfg.registers compiler.cfg.stacks
@ -43,9 +43,13 @@ IN: compiler.cfg.builder.alien.tests
] cfg-unit-test
! caller-linkage
{ "malloc" f } [
f f cdecl f f "malloc" alien-invoke-params boa
${
"malloc"
os windows? "msvcrt.dll" f ?
} [
f f cdecl f "libc" "malloc" alien-invoke-params boa
caller-linkage
dup [ path>> alien>native-string ] when
] unit-test
SYMBOL: foo