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

make "fastcall" symbol private since it doesn't really work in all cases

release
Joe Groff 2010-04-01 18:34:15 -07:00
parent 9c1a9158be
commit 553b9fcd93
3 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/compiler/tests/alien.factor
View File

@ -6,6 +6,7 @@ namespaces.private parser quotations sequences
specialized-arrays stack-checker stack-checker.errors specialized-arrays stack-checker stack-checker.errors
system threads tools.test words alien.complex concurrency.promises ; system threads tools.test words alien.complex concurrency.promises ;
FROM: alien.c-types => float short ; FROM: alien.c-types => float short ;
FROM: alien.private => fastcall ;
SPECIALIZED-ARRAY: float SPECIALIZED-ARRAY: float
SPECIALIZED-ARRAY: char SPECIALIZED-ARRAY: char
IN: compiler.tests.alien IN: compiler.tests.alien

1
basis/cpu/x86/32/32.factor
View File

@ -10,6 +10,7 @@ compiler.cfg.intrinsics compiler.cfg.stack-frame
cpu.x86.assembler cpu.x86.assembler.operands cpu.x86 cpu.x86.assembler cpu.x86.assembler.operands cpu.x86
cpu.architecture vm ; cpu.architecture vm ;
FROM: layouts => cell ; FROM: layouts => cell ;
FROM: alien.private => fastcall ;
IN: cpu.x86.32 IN: cpu.x86.32
M: x86.32 machine-registers M: x86.32 machine-registers

6
core/alien/alien.factor
View File

@ -5,7 +5,11 @@ kernel.private byte-arrays byte-vectors arrays init
continuations.private ; continuations.private ;
IN: alien IN: alien
SINGLETONS: stdcall thiscall fastcall cdecl mingw ; SINGLETONS: stdcall thiscall cdecl mingw ;
<PRIVATE
SINGLETON: fastcall
PRIVATE>
UNION: abi stdcall thiscall fastcall cdecl mingw ; UNION: abi stdcall thiscall fastcall cdecl mingw ;