remove com-interface c-struct

db4
Doug Coleman 2009-08-29 19:33:04 -05:00
parent a81c78e485
commit 57673db7ca
1 changed files with 2 additions and 5 deletions

View File

@ -7,13 +7,10 @@ IN: windows.com.syntax
<PRIVATE
C-STRUCT: com-interface
{ "void*" "vtbl" } ;
MACRO: com-invoke ( n return parameters -- )
[ 2nip length ] 3keep
'[
_ npick com-interface-vtbl _ cell * alien-cell _ _
_ npick *void* _ cell * alien-cell _ _
"stdcall" alien-indirect
] ;
@ -32,7 +29,7 @@ unless
dup "f" = [ drop f ] [
dup +com-interface-definitions+ get-global at*
[ nip ]
[ swap " COM interface hasn't been defined" append throw ]
[ " COM interface hasn't been defined" prepend throw ]
if
] if ;