From 4e16a05951c3e0aea2a59f875ca90ac5adfa0be6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Dec 1994 22:24:43 +0000
Subject: [PATCH] Define hook to start interpreter for OS/2, needed in order to
 trap exceptions properly, much as in Windows.

---
 v7/src/microcode/boot.c | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 5a676e915..442c16057 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.92 1994/12/02 20:38:40 cph Exp $
+$Id: boot.c,v 9.93 1994/12/19 22:24:43 cph Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -487,13 +487,22 @@ DEFUN (Start_Scheme, (Start_Prim, File_Name),
 }
 
 #ifdef WINNT
-  extern void EXFUN (WinntEnterHook, (void (*) (void)));
-# define HOOK_ENTER_INTERPRETER WinntEnterHook
-#endif
 
-#ifndef HOOK_ENTER_INTERPRETER
-#  define HOOK_ENTER_INTERPRETER(func) func ()
-#endif
+extern void EXFUN (WinntEnterHook, (void (*) (void)));
+#define HOOK_ENTER_INTERPRETER WinntEnterHook
+
+#else /* not WINNT */
+#ifdef _OS2
+
+extern void EXFUN (OS2_enter_interpreter, (void (*) (void)));
+#define HOOK_ENTER_INTERPRETER OS2_enter_interpreter
+
+#else /* not _OS2 */
+
+#define HOOK_ENTER_INTERPRETER(func) func ()
+
+#endif /* not _OS2 */
+#endif /* not WINNT */
 
 static void
 DEFUN_VOID (Do_Enter_Interpreter)
-- 
2.25.1