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

typo in dll.c

cvs
Slava Pestov 2005-08-16 03:34:10 +00:00
parent f8c2daad8b
commit 9bbf30f91c
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
native/dll.c
View File

@ -19,7 +19,7 @@ void primitive_dlsym(void)
{
CELL dll;
F_STRING *sym;
void *handle;
DLL *d;
maybe_gc(0);
@ -27,16 +27,15 @@ void primitive_dlsym(void)
sym = untag_string(dpop());
if(dll == F)
handle = NULL;
d = NULL;
else
{
DLL *d = untag_dll(dll);
d = untag_dll(dll);
if(d->dll == NULL)
general_error(ERROR_EXPIRED,dll);
handle = d->dll;
}
dpush(tag_cell((CELL)ffi_dlsym(handle,sym,true)));
dpush(tag_cell((CELL)ffi_dlsym(d,sym,true)));
}
void primitive_dlclose(void)

2
native/dll.h
View File

@ -6,7 +6,7 @@ typedef struct {
void* dll;
} DLL;
INLINE DLL* untag_dll(CELL tagged)
INLINE DLL *untag_dll(CELL tagged)
{
type_check(DLL_TYPE,tagged);
return (DLL*)UNTAG(tagged);