# New Ticket Created by Jarkko Hietaniemi # Please include the string: [perl #15880] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=15880 > I think the generic platform.c should not assume dynamic loading. This patch helps enough so that UNICOS/mk (which has only static loading) compiles and tests okay. diff -ruN parrot/config/gen/platform/generic.c parrot+cast/config/gen/platform/generic.c --- parrot/config/gen/platform/generic.c 2002-06-10 00:12:42.000000000 +0300 +++ parrot+cast/config/gen/platform/generic.c 2002-07-31 08:02:40.000000000 +0300 @@ -70,7 +70,11 @@ void * Parrot_dlopen(const char *filename) { +#ifdef HAS_DLOPEN return dlopen(filename, PARROT_DLOPEN_FLAGS); +#else + return 0; +#endif } @@ -81,7 +85,11 @@ const char * Parrot_dlerror(void) { +#ifdef HAS_DLOPEN return dlerror(); +#else + return 0; +#endif } @@ -92,7 +100,11 @@ void * Parrot_dlsym(void *handle, const char *symbol) { +#ifdef HAS_DLOPEN return dlsym(handle, symbol); +#else + return 0; +#endif } @@ -103,7 +115,11 @@ int Parrot_dlclose(void *handle) { +#ifdef HAS_DLOPEN return dlclose(handle); +#else + return -1; +#endif } /* diff -ruN parrot/tools/dev/lib_deps.pl parrot+cast/tools/dev/lib_deps.pl --- parrot/tools/dev/lib_deps.pl 2002-06-08 03:43:54.000000000 +0300 +++ parrot+cast/tools/dev/lib_deps.pl 2002-07-31 08:04:01.000000000 +0300 @@ -330,6 +330,7 @@ ctime time.h difftime time.h div stdlib.h +dlopen dlfcn.h erf math.h erfc math.h erfcf math.h -- $jhi++; # http://www.iki.fi/jhi/ # There is this special biologist word we use for 'stable'. # It is 'dead'. -- Jack CohenThread Next