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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/compiler/cfg/builder/alien/alien-tests.factor
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 compiler.cfg.builder.alien
compiler.cfg.builder.alien.params compiler.cfg.builder.blocks compiler.cfg.builder.alien.params compiler.cfg.builder.blocks
compiler.cfg.instructions compiler.cfg.registers compiler.cfg.stacks compiler.cfg.instructions compiler.cfg.registers compiler.cfg.stacks
@ -43,9 +43,13 @@ IN: compiler.cfg.builder.alien.tests
] cfg-unit-test ] cfg-unit-test
! caller-linkage ! 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 caller-linkage
dup [ path>> alien>native-string ] when
] unit-test ] unit-test
SYMBOL: foo SYMBOL: foo