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; CELL dll;
F_STRING *sym; F_STRING *sym;
void *handle; DLL *d;
maybe_gc(0); maybe_gc(0);
@ -27,16 +27,15 @@ void primitive_dlsym(void)
sym = untag_string(dpop()); sym = untag_string(dpop());
if(dll == F) if(dll == F)
handle = NULL; d = NULL;
else else
{ {
DLL *d = untag_dll(dll); d = untag_dll(dll);
if(d->dll == NULL) if(d->dll == NULL)
general_error(ERROR_EXPIRED,dll); 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) void primitive_dlclose(void)