move stack_guard initialization past bignum initialization - gcl.git - GNU Common Lisp

diff --git a/gcl/o/main.c b/gcl/o/main.c
index f5ecaaa75..e02e5b5a8 100755
--- a/gcl/o/main.c
+++ b/gcl/o/main.c

@@ -318,8 +318,6 @@ random_ulong() {

object y;

- if (raw_image) return 0;

-

vs_top=vs_base;

vs_push(Ct);

Lmake_random_state();

@@ -339,10 +337,6 @@ main(int argc, char **argv, char **envp) {

gcl_init_alloc(&argv);

-#ifdef NEED_STACK_CHK_GUARD

- __stack_chk_guard=random_ulong();/*Cannot be safely set inside a function which returns*/

-#endif

-

#ifdef CAN_UNRANDOMIZE_SBRK

#include <stdio.h>

#include <stdlib.h>

@@ -415,6 +409,9 @@ main(int argc, char **argv, char **envp) {

#ifdef HAVE_READLINE

gcl_init_readline_function();

#endif

+#ifdef NEED_STACK_CHK_GUARD

+ __stack_chk_guard=random_ulong();/*Cannot be safely set inside a function which returns*/

+#endif

}