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

diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor
index 2b10c8bd3848f858bd9fdebd8873aacd174f1c87..07457c8f4e49cc52786063cfbefaedd60c2b4786 100755 (executable)
--- a/basis/compiler/tests/alien.factor
+++ b/basis/compiler/tests/alien.factor
@@ -6,6 +6,7 @@ namespaces.private parser quotations sequences
 specialized-arrays stack-checker stack-checker.errors
 system threads tools.test words alien.complex concurrency.promises ;
 FROM: alien.c-types => float short ;
+FROM: alien.private => fastcall ;
 SPECIALIZED-ARRAY: float
 SPECIALIZED-ARRAY: char
 IN: compiler.tests.alien

diff --git a/basis/cpu/x86/32/32.factor b/basis/cpu/x86/32/32.factor
index 44e3f040f684b8a0e0128744df143d2073563a4f..e346f8ab8c411372b90430588f20766ed36c045d 100755 (executable)
--- a/basis/cpu/x86/32/32.factor
+++ b/basis/cpu/x86/32/32.factor
@@ -10,6 +10,7 @@ compiler.cfg.intrinsics compiler.cfg.stack-frame
 cpu.x86.assembler cpu.x86.assembler.operands cpu.x86
 cpu.architecture vm ;
 FROM: layouts => cell ;
+FROM: alien.private => fastcall ;
 IN: cpu.x86.32
 
 M: x86.32 machine-registers

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 4dab6f84523411b5adf9fdf828b470789802d17b..194e4201d2791fad5b82ab2a56aa2a21f7295a82 100644 (file)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -5,7 +5,11 @@ kernel.private byte-arrays byte-vectors arrays init
 continuations.private ;
 IN: alien
 
-SINGLETONS: stdcall thiscall fastcall cdecl mingw ;
+SINGLETONS: stdcall thiscall cdecl mingw ;
+
+<PRIVATE
+SINGLETON: fastcall
+PRIVATE>
 
 UNION: abi stdcall thiscall fastcall cdecl mingw ;