alien: now that fastcall works better it doesn't need to be private

diff --git a/basis/cpu/x86/32/32.factor b/basis/cpu/x86/32/32.factor
index f08a03d8be32a25ad878b3c3344b6c55b4c7bfd9..0127d559970ff65abdf8509263ffb177fa3107bd 100755 (executable)
--- a/basis/cpu/x86/32/32.factor
+++ b/basis/cpu/x86/32/32.factor
@@ -10,7 +10,6 @@ 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 194e4201d2791fad5b82ab2a56aa2a21f7295a82..27e326a55777e3b4c76775a01cc1a5e4afdabbb3 100644 (file)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -5,14 +5,6 @@ kernel.private byte-arrays byte-vectors arrays init
 continuations.private ;
 IN: alien
 
-SINGLETONS: stdcall thiscall cdecl mingw ;
-
-<PRIVATE
-SINGLETON: fastcall
-PRIVATE>
-
-UNION: abi stdcall thiscall fastcall cdecl mingw ;
-
 PREDICATE: pinned-alien < alien underlying>> not ;
 
 UNION: pinned-c-ptr pinned-alien POSTPONE: f ;
@@ -72,6 +64,10 @@ M: alien equal?
 M: pinned-alien hashcode*
     nip dup expired>> [ drop 1234 ] [ alien-address ] if ;
 
+SINGLETONS: stdcall thiscall fastcall cdecl mingw ;
+
+UNION: abi stdcall thiscall fastcall cdecl mingw ;
+
 ERROR: alien-callback-error ;
 
 : alien-callback ( return parameters abi quot -- alien )