From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 Nov 1994 03:51:01 +0000 (+0000)
Subject: Call dstack_initialize and transaction_initialize from main rather
X-Git-Tag: 20090517-FFI~6937
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d9799d18efbf2871a06cd6cd2aef6a7a77887f08;p=mit-scheme.git

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 af3ac9d6d..3092b15d2 100644
--- 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 8ceb57b9e..08b1b2afb 100644
--- 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 878825b41..0f4ac5aa0 100644
--- 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 40c76a4cf..94a6668d9 100644
--- 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 2a14ff1f2..d1af792dd 100644
--- 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 =