gcl.git - GNU Common Lisp

index : gcl.git
GNU Common Lisp
summary refs log tree commit diff
path: root/gcl/o/prelink.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcl/o/prelink.c')
-rw-r--r--gcl/o/prelink.c 31
1 files changed, 31 insertions, 0 deletions
diff --git a/gcl/o/prelink.c b/gcl/o/prelink.c
new file mode 100644
index 000000000..9ce197d7a
--- /dev/null
+++ b/gcl/o/prelink.c
@@ -0,0 +1,31 @@
+#define NO_PRELINK_UNEXEC_DIVERSION
+
+#include "include.h"
+
+#if !defined(__MINGW32__) && !defined(__CYGWIN__)
+extern FILE *stdin __attribute__((weak));
+extern FILE *stderr __attribute__((weak));
+extern FILE *stdout __attribute__((weak));
+
+#if RL_READLINE_VERSION < 0x0600
+extern Function *rl_completion_entry_function __attribute__((weak));
+extern char *rl_readline_name __attribute__((weak));
+#else
+extern rl_compentry_func_t *rl_completion_entry_function __attribute__((weak));
+extern const char *rl_readline_name __attribute__((weak));
+#endif
+#endif
+
+void
+prelink_init(void) {
+
+ my_stdin=stdin;
+ my_stdout=stdout;
+ my_stderr=stderr;
+#ifdef HAVE_READLINE
+ my_rl_completion_entry_function_ptr=(void *)&rl_completion_entry_function;
+ my_rl_readline_name_ptr=(void *)&rl_readline_name;
+#endif
+
+}
+
generated by cgit v1.2.3 (git 2.25.1) at 2025年09月08日 12:07:27 +0000

AltStyle によって変換されたページ (->オリジナル) /