From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 23 Aug 1993 04:46:44 +0000 (+0000)
Subject: Move manipulation of C's es to interface_initialize.  It does not
X-Git-Tag: 20090517-FFI~8007
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b7965e11be9ce1c058c9cecc9f8dc3106f074504;p=mit-scheme.git

Move manipulation of C's es to interface_initialize.  It does not
change for the duration of the session.
---

diff --git a/v7/src/microcode/cmpauxmd/i386.m4 b/v7/src/microcode/cmpauxmd/i386.m4
index 38d8ae918..15cc251af 100644
--- a/v7/src/microcode/cmpauxmd/i386.m4
+++ b/v7/src/microcode/cmpauxmd/i386.m4
@@ -1,6 +1,6 @@
 ### -*-Midas-*-
 ###
-###	$Id: i386.m4,v 1.30 1993/08/21 04:57:15 gjr Exp $
+###	$Id: i386.m4,v 1.31 1993/08/23 04:46:44 gjr Exp $
 ###
 ###	Copyright (c) 1992-1993 Massachusetts Institute of Technology
 ###
@@ -350,6 +350,7 @@ define_c_label(i386_interface_initialize)
 ifdef(`WINNT',
 `	lea	eax,cross_segment_transfer_point
 	mov	_Scheme_Transfer_Address,eax
+	mov	_C_Extra_Segment_Selector,es		; This assumes it is constant
 
 	mov	_C_Code_Segment_Selector,cs
 	mov	ax,_Scheme_Code_Segment_Selector
@@ -513,9 +514,6 @@ ifdef(`WINNT',
 	xor	ecx,ecx					; Setup cross-segment jump
 	mov	cx,_Scheme_Code_Segment_Selector
 
-	mov	ax,es					; Store old es
-	mov	_C_Extra_Segment_Selector,ax
-
 	mov	ax,ds					; Store C ds in es,
 	mov	es,ax					;  unused by Scheme.
 	mov	ax,_Scheme_Data_Segment_Selector	; Switch data segments