mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-12-29 00:05:58 +00:00
a66469e003
load.c (load_object, load_file): Accept an additional argument DLP and return in it a pointer that can be used to unload the dynamic object. read.c (eval): Call load_file with an additional argument, and record the pointer returned there in the 'struct file' object of dynamic objects in that object's 'struct file'. commands.c (execute_file_commands): Unload dynamic objects before remaking them, to avoid failure to remake if the OS doesn't allow overwriting objects that are in use. filedef.h (struct file): New member dlopen_ptr. gnumake.h (GMK_EXPORT): Define to dllexport/dllimport decorations for Windows and to nothing on other platforms. (gmk_eval, gmk_expand, gmk_add_function): Add GMK_EXPORT qualifier to prototypes. makeint.h (MAIN): Define before including gnumake.h, to give correct dllexport decorations to exported functions. (load_file): Adjust prototype. loadapi.c: Don't include gnumake.h, since makeint.h already includes it, and takes care of defining MAIN before doing so. build_w32.bat (LinkGCC): Produce an import library for functions exported by Make for loadable dynamic objects. w32/compat/posixfcn.c (dlclose): New function. w32/include/dlfcn.h (dlclose): Add prototype. scripts/features/load: Fix signatures of testload_gmk_setup and explicit_setup, to bring them in line with the documentation.
100 lines
2.4 KiB
Perl
100 lines
2.4 KiB
Perl
# -*-perl-*-
|
|
$description = "Test the load operator.";
|
|
|
|
$details = "Test dynamic loading of modules.";
|
|
|
|
# Don't do anything if this system doesn't support "load"
|
|
exists $FEATURES{load} or return -1;
|
|
|
|
my $sobuild = '$(CC) '.($srcdir? "-I$srcdir":'').' -g -shared -fPIC -o $@ $<';
|
|
|
|
# First build a shared object
|
|
# Provide both a default and non-default load symbol
|
|
|
|
unlink(qw(testload.c testload.so));
|
|
|
|
open(my $F, '> testload.c') or die "open: testload.c: $!\n";
|
|
print $F <<'EOF' ;
|
|
#include <string.h>
|
|
#include <stdio.h>
|
|
|
|
#include "gnumake.h"
|
|
|
|
int
|
|
testload_gmk_setup (gmk_floc *pos)
|
|
{
|
|
gmk_eval ("TESTLOAD = implicit", 0);
|
|
return 1;
|
|
}
|
|
|
|
int
|
|
explicit_setup (gmk_floc *pos)
|
|
{
|
|
gmk_eval ("TESTLOAD = explicit", 0);
|
|
return 1;
|
|
}
|
|
EOF
|
|
close($F) or die "close: testload.c: $!\n";
|
|
|
|
# Make sure we can compile
|
|
run_make_test('testload.so: testload.c ; @'.$sobuild, '', '');
|
|
|
|
# TEST 1
|
|
run_make_test(q!
|
|
PRE := $(.LOADED)
|
|
load testload.so
|
|
POST := $(.LOADED)
|
|
all: ; @echo pre=$(PRE) post=$(POST) $(TESTLOAD)
|
|
!,
|
|
'', "pre= post=testload.so implicit\n");
|
|
|
|
# TEST 2
|
|
# Load using an explicit function
|
|
run_make_test(q!
|
|
PRE := $(.LOADED)
|
|
load ./testload.so(explicit_setup)
|
|
POST := $(.LOADED)
|
|
all: ; @echo pre=$(PRE) post=$(POST) $(TESTLOAD)
|
|
!,
|
|
'', "pre= post=testload.so explicit\n");
|
|
|
|
# TEST 4
|
|
# Check multiple loads
|
|
run_make_test(q!
|
|
PRE := $(.LOADED)
|
|
load ./testload.so
|
|
load testload.so(explicit_setup)
|
|
POST := $(.LOADED)
|
|
all: ; @echo pre=$(PRE) post=$(POST) $(TESTLOAD)
|
|
!,
|
|
'', "pre= post=testload.so implicit\n");
|
|
|
|
# TEST 5
|
|
# Check auto-rebuild of loaded file that's out of date
|
|
utouch(-10, 'testload.so');
|
|
touch('testload.c');
|
|
|
|
run_make_test(q!
|
|
PRE := $(.LOADED)
|
|
load ./testload.so
|
|
POST := $(.LOADED)
|
|
all: ; @echo pre=$(PRE) post=$(POST) $(TESTLOAD)
|
|
testload.so: testload.c ; @echo "rebuilding $@"; !.$sobuild,
|
|
'', "rebuilding testload.so\npre= post=testload.so implicit\n");
|
|
|
|
# TEST 5
|
|
# Check auto-rebuild of loaded file when it doesn't exist
|
|
unlink('testload.so');
|
|
|
|
run_make_test(q!
|
|
PRE := $(.LOADED)
|
|
-load ./testload.so(explicit_setup)
|
|
POST := $(.LOADED)
|
|
all: ; @echo pre=$(PRE) post=$(POST) $(TESTLOAD)
|
|
%.so: %.c ; @echo "rebuilding $@"; !.$sobuild,
|
|
'', "rebuilding testload.so\npre= post=testload.so explicit\n");
|
|
|
|
unlink(qw(testload.c testload.so)) unless $keep;
|
|
|
|
# This tells the test driver that the perl test script executed properly.
|
|
1;
|