Call dstack_initialize and transaction_initialize from main rather

than from the operating-system specific initialization procedures.

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index af3ac9d6dc3c8c6a155458cb62570af122b2c1f2..3092b15d292b3e23eb982ae9150ac266adba14b2 100644 (file)
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.90 1994/10/04 22:02:19 cph Exp $
+$Id: boot.c,v 9.91 1994/11/28 03:49:45 cph Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -117,6 +117,8 @@ DEFUN (main_name, (argc, argv),
   scheme_program_name = (argv[0]);
   initial_C_stack_pointer = ((PTR) (&argc));
   obstack_init (&scratch_obstack);
+  dstack_initialize ();
+  transaction_initialize ();
   reload_saved_string = 0;
   reload_saved_string_length = 0;
   read_command_line_options (argc, argv);

diff --git a/v7/src/microcode/dostop.c b/v7/src/microcode/dostop.c
index 8ceb57b9e2e6ca9678d63dc408dfea80625342cc..08b1b2afb074a71c5bcc817359ad363d34b1e37c 100644 (file)
--- a/v7/src/microcode/dostop.c
+++ b/v7/src/microcode/dostop.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: dostop.c,v 1.9 1994/10/08 05:35:46 cph Exp $
+$Id: dostop.c,v 1.10 1994/11/28 03:50:47 cph Exp $
 
 Copyright (c) 1992-94 Massachusetts Institute of Technology
 
@@ -78,8 +78,6 @@ DEFUN_VOID (OS_under_emacs_p)
 void
 DEFUN_VOID (OS_initialize)
 {
-  dstack_initialize ();
-  transaction_initialize ();
   interactive = 1;
   
   DOS_initialize_channels ();

diff --git a/v7/src/microcode/nttop.c b/v7/src/microcode/nttop.c
index 878825b41cfa00955174af5d34ecf0cad63c8b48..0f4ac5aa002bf5b186632948d0ac1ca72d925c26 100644 (file)
--- a/v7/src/microcode/nttop.c
+++ b/v7/src/microcode/nttop.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: nttop.c,v 1.12 1994/10/08 05:35:58 cph Exp $
+$Id: nttop.c,v 1.13 1994/11/28 03:50:32 cph Exp $
 
 Copyright (c) 1993-94 Massachusetts Institute of Technology
 
@@ -71,8 +71,6 @@ DEFUN_VOID (OS_under_emacs_p)
 void
 DEFUN_VOID (OS_initialize)
 {
-  dstack_initialize ();
-  transaction_initialize ();
   interactive = 1;
 
   NT_gui_init ();

diff --git a/v7/src/microcode/os2top.c b/v7/src/microcode/os2top.c
index 40c76a4cfd8f45b180e1b1ed49a2b1f6eda8672b..94a6668d90941d461f4bfae5c5070ea6d8c6ad64 100644 (file)
--- a/v7/src/microcode/os2top.c
+++ b/v7/src/microcode/os2top.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2top.c,v 1.1 1994/11/28 03:43:01 cph Exp $
+$Id: os2top.c,v 1.2 1994/11/28 03:50:17 cph Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -61,7 +61,6 @@ OS_under_emacs_p (void)
 void
 OS_initialize (void)
 {
-  transaction_initialize ();
   initialize_locks ();
   OS2_initialize_message_queues ();
   OS2_initialize_scheme_thread ();

diff --git a/v7/src/microcode/uxtop.c b/v7/src/microcode/uxtop.c
index 2a14ff1f2fe6340bb9bec70b77991db77a7dc687..d1af792dd399009731089a4e1c1af05a140f0935 100644 (file)
--- a/v7/src/microcode/uxtop.c
+++ b/v7/src/microcode/uxtop.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxtop.c,v 1.14 1994/10/08 05:34:05 cph Exp $
+$Id: uxtop.c,v 1.15 1994/11/28 03:51:01 cph Exp $
 
 Copyright (c) 1990-94 Massachusetts Institute of Technology
 
@@ -76,8 +76,6 @@ DEFUN_VOID (OS_under_emacs_p)
 void
 DEFUN_VOID (OS_initialize)
 {
-  dstack_initialize ();
-  transaction_initialize ();
   initialize_interruptable_extent ();
   {
     interactive =