From c8eefcf5745e776be6b28eb56debe7d442b663ae Mon Sep 17 00:00:00 2001 From: Paul Sokolovsky Date: Fri, 5 May 2000 02:31:48 +0000 Subject: [PATCH] * ltdl.c: support lt_dlopen(0) for win32 --- ChangeLog | 4 ++++ libltdl/ltdl.c | 13 +++++++++++-- 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7134eafb4..131b3a83b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-05-05 Paul Sokolovsky + + * ltdl.c: support lt_dlopen(0) for win32 + 2000-05-03 Thomas Tanner * doc/libtool.texi (libltdl): fix typos, diff --git a/libltdl/ltdl.c b/libltdl/ltdl.c index 7964d44cc..2f03fbbe0 100644 --- a/libltdl/ltdl.c +++ b/libltdl/ltdl.c @@ -1,4 +1,4 @@ -/* ltdl.c -- system independent dlopen wrapper +g/* ltdl.c -- system independent dlopen wrapper Copyright (C) 1998-2000 Free Software Foundation, Inc. Originally by Thomas Tanner This file is part of GNU Libtool. @@ -457,7 +457,16 @@ sys_wll_open (loader_data, filename) lt_dlhandle cur; lt_module_t module; char *searchname = 0; - char *ext = strrchr(filename, '.'); + char *ext; + char self_name_buf[MAX_PATH]; + + if (!filename) { + /* Get the name of main module */ + *self_name_buf = 0; + GetModuleFileName(NULL, self_name_buf, sizeof(self_name_buf)); + filename = ext = self_name_buf; + } + else ext = strrchr(filename, '.'); if (ext) { /* FILENAME already has an extension. */ -- 2.47.3