From 804d3913003e961b3381f38f487cea79a9577fdc Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 27 Jul 1993 21:27:42 +0000
Subject: [PATCH] NT changes:

- Abstract functionality not available in Win32s so it can be provided
in a DLL.

- Remove some fossil DOS code from ntsig.c.

- ntscreen.c can now emulate an ansi.sys terminal.
---
 v7/src/microcode/ntenv.c  | 12 +++---------
 v7/src/microcode/nttrap.c |  7 ++-----
 2 files changed, 5 insertions(+), 14 deletions(-)

diff --git a/v7/src/microcode/ntenv.c b/v7/src/microcode/ntenv.c
index 0bbcbb338..077871d3b 100644
--- a/v7/src/microcode/ntenv.c
+++ b/v7/src/microcode/ntenv.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntenv.c,v 1.4 1993/07/18 20:26:08 gjr Exp $
+$Id: ntenv.c,v 1.5 1993/07/27 21:27:42 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -119,17 +119,12 @@ DEFUN (ms_to_ticks, (clocks), clock_t clocks)
   return (result == 0) ? 1 : result;
 }
 
-
-extern volatile unsigned long scm_itimer_counter, scm_itimer_reload;
-
 void
 DEFUN (OS_process_timer_set, (first, interval),
        clock_t first AND
        clock_t interval)
-{ /* Convert granularity to 1/18.2 seconds */
-
-  scm_itimer_counter = ms_to_ticks(first);
-  scm_itimer_reload  = ms_to_ticks(interval);
+{
+  /* Convert granularity to 1/18.2 seconds */
 
   return;
 }
@@ -137,7 +132,6 @@ DEFUN (OS_process_timer_set, (first, interval),
 void
 DEFUN_VOID (OS_process_timer_clear)
 {
-  scm_itimer_reload = scm_itimer_counter = 0;
   return;
 }
 
diff --git a/v7/src/microcode/nttrap.c b/v7/src/microcode/nttrap.c
index 44050be30..640199286 100644
--- a/v7/src/microcode/nttrap.c
+++ b/v7/src/microcode/nttrap.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: nttrap.c,v 1.3 1993/06/24 02:10:58 gjr Exp $
+$Id: nttrap.c,v 1.4 1993/07/27 21:27:06 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -574,7 +574,6 @@ DEFUN (continue_from_trap, (trapno, info, scp),
        SIGINFO_T info AND
        struct FULL_SIGCONTEXT * scp)
 {
-  extern unsigned short scheme_ss;
   int pc_in_C;
   int pc_in_heap;
   int pc_in_constant_space;
@@ -631,9 +630,7 @@ DEFUN (continue_from_trap, (trapno, info, scp),
 
   scheme_sp_valid =
     (pc_in_scheme
-     && (((scp->sc_ss & 0xffff) == (scp->sc_ds & 0xffff))
-	 || ((scheme_ss != 0)
-	     && ((scp->sc_ss & 0xffff) == scheme_ss)))
+     && ((scp->sc_ss & 0xffff) == (scp->sc_ds & 0xffff))
      && ((scp->sc_ds & 0xffff) == (initial_C_ds & 0xffff))
      && ((scheme_sp < ((long) Stack_Top)) &&
 	 (scheme_sp >= ((long) Absolute_Stack_Base)) &&
-- 
2.25.1