diff options
author | yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-10-04 13:57:06 +0000 |
---|---|---|
committer | yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-10-04 13:57:06 +0000 |
commit | e8ee99ff1ae054c4edefb60083b11db5fe1c7429 (patch) | |
tree | fed14f02c23978b6d2edd58b011c1329b9eb99d8 /dln.c | |
parent | a8c3540b32d7621c183627d7cc198f4b24798387 (diff) |
* dln.c: Ruby no longer supports VMS.
* error.c: ditto.
* eval.c: ditto.
* eval_intern.h: ditto.
* include/ruby/defines.h: ditto.
* include/ruby/ruby.h: ditto.
* io.c: ditto.
* process.c: ditto.
* ruby.c: ditto.
* vms/config.h: removed.
* vms/vms.h: ditto.
* vms/vmsruby_private.c: ditto.
* vms/vmsruby_private.h: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@19682 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'dln.c')
-rw-r--r-- | dln.c | 36 |
1 files changed, 1 insertions, 35 deletions
@@ -45,7 +45,7 @@ void *xrealloc(); #define free(x) xfree(x) #include <stdio.h> -#if defined(_WIN32) || defined(__VMS) +#if defined(_WIN32) #include "missing/file.h" #endif #include <sys/types.h> @@ -70,11 +70,6 @@ void *xrealloc(); char *getenv(); #endif -#if defined(__VMS) -#pragma builtins -#include <dlfcn.h> -#endif - #if defined(__APPLE__) && defined(__MACH__) /* Mac OS X */ # if defined(HAVE_DLOPEN) /* Mac OS X with dlopen (10.3 or later) */ @@ -1460,35 +1455,6 @@ dln_load(const char *file) } #endif /* __BEOS__*/ -#if defined(__VMS) -#define DLN_DEFINED - { - void *handle, (*init_fct)(); - char *fname, *p1, *p2; - - fname = (char *)__alloca(strlen(file)+1); - strcpy(fname,file); - if (p1 = strrchr(fname,'/')) - fname = p1 + 1; - if (p2 = strrchr(fname,'.')) - *p2 = '\0'; - - if ((handle = (void*)dlopen(fname, 0)) == NULL) { - error = dln_strerror(); - goto failed; - } - - if ((init_fct = (void (*)())dlsym(handle, buf)) == NULL) { - error = DLN_ERROR(); - dlclose(handle); - goto failed; - } - /* Call the init code */ - (*init_fct)(); - return handle; - } -#endif /* __VMS */ - #ifndef DLN_DEFINED rb_notimplement(); #endif |