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

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

release
Slava Pestov 2010-04-10 16:56:00 -07:00
parent ed40eb4239
commit 0202c35d2a
2 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,7 +10,6 @@ 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

12
core/alien/alien.factor
View File

@ -5,14 +5,6 @@ kernel.private byte-arrays byte-vectors arrays init
continuations.private ; continuations.private ;
IN: alien IN: alien
SINGLETONS: stdcall thiscall cdecl mingw ;
<PRIVATE
SINGLETON: fastcall
PRIVATE>
UNION: abi stdcall thiscall fastcall cdecl mingw ;
PREDICATE: pinned-alien < alien underlying>> not ; PREDICATE: pinned-alien < alien underlying>> not ;
UNION: pinned-c-ptr pinned-alien POSTPONE: f ; UNION: pinned-c-ptr pinned-alien POSTPONE: f ;
@ -72,6 +64,10 @@ M: alien equal?
M: pinned-alien hashcode* M: pinned-alien hashcode*
nip dup expired>> [ drop 1234 ] [ alien-address ] if ; 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 ; ERROR: alien-callback-error ;
: alien-callback ( return parameters abi quot -- alien ) : alien-callback ( return parameters abi quot -- alien )