66 lines
1.8 KiB
Plaintext
66 lines
1.8 KiB
Plaintext
*** STk-3.1/Src/dynload.c.orig Sun Jul 21 14:24:39 1996
|
|
--- STk-3.1/Src/dynload.c Wed Feb 4 22:56:09 1998
|
|
***************
|
|
*** 37,48 ****
|
|
#include <dld.h>
|
|
#endif
|
|
|
|
! #if defined(NETBSD1)
|
|
#include <sys/types.h>
|
|
#include <nlist.h>
|
|
#include <link.h>
|
|
#define dlerror() "dlerror" /* dlerror() isn't implemented in NetBSD 1.0 */
|
|
#endif
|
|
|
|
#ifdef HPUX
|
|
#include <dl.h>
|
|
--- 37,50 ----
|
|
#include <dld.h>
|
|
#endif
|
|
|
|
! #if defined(NETBSD1) || defined(OPENBSD)
|
|
#include <sys/types.h>
|
|
#include <nlist.h>
|
|
#include <link.h>
|
|
+ #if defined(NETBSD1)
|
|
#define dlerror() "dlerror" /* dlerror() isn't implemented in NetBSD 1.0 */
|
|
#endif
|
|
+ #endif
|
|
|
|
#ifdef HPUX
|
|
#include <dl.h>
|
|
***************
|
|
*** 53,59 ****
|
|
#ifdef USE_DYNLOAD
|
|
static SCM list_of_files = NULL;
|
|
|
|
! #if defined(SUNOS4) || defined(SUNOS5) || defined(NETBSD1) || defined(FREEBSD) || defined(IRIX5) || defined(OSF1) ||defined(LINUX_ELF)
|
|
|
|
static void load_and_call(char *path, char *fct_name)
|
|
{
|
|
--- 55,61 ----
|
|
#ifdef USE_DYNLOAD
|
|
static SCM list_of_files = NULL;
|
|
|
|
! #if defined(SUNOS4) || defined(SUNOS5) || defined(NETBSD1) || defined(OPENBSD) || defined(FREEBSD) || defined(IRIX5) || defined(OSF1) ||defined(LINUX_ELF)
|
|
|
|
static void load_and_call(char *path, char *fct_name)
|
|
{
|
|
***************
|
|
*** 224,230 ****
|
|
for (p = path, slash = p-1; *p; p++) /* Find position of last '/' */
|
|
if (*p == '/') slash = p;
|
|
|
|
! #if defined(NETBSD1) || defined(FREEBSD)
|
|
sprintf(fct_name, "_STk_init_%s", slash + 1);
|
|
#else
|
|
sprintf(fct_name, "STk_init_%s", slash + 1);
|
|
--- 226,232 ----
|
|
for (p = path, slash = p-1; *p; p++) /* Find position of last '/' */
|
|
if (*p == '/') slash = p;
|
|
|
|
! #if defined(NETBSD1) || defined(OPENBSD) || defined(FREEBSD)
|
|
sprintf(fct_name, "_STk_init_%s", slash + 1);
|
|
#else
|
|
sprintf(fct_name, "STk_init_%s", slash + 1);
|