Eradicate one more sprintf().
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14763 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
bfccd68ecc
commit
4fde43407f
|
@ -25,9 +25,8 @@
|
|||
#include <string.h>
|
||||
|
||||
static void *getsym(void *handle, char *module, char *name){
|
||||
char *fullname = malloc(strlen(module) + strlen(name) + 5);
|
||||
char *fullname = caml_strconcat(3, "caml", module, name);
|
||||
void *sym;
|
||||
sprintf(fullname, "caml%s%s", module, name);
|
||||
sym = caml_dlsym (handle, fullname);
|
||||
/* printf("%s => %lx\n", fullname, (uintnat) sym); */
|
||||
free(fullname);
|
||||
|
|
Loading…
Reference in New Issue