From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 24 Oct 1995 05:24:48 +0000 (+0000)
Subject: Changes to allow Win32 microcode to be compiled by the Watcom C
X-Git-Tag: 20090517-FFI~5874
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=382f5d2bbf18d77e1c8c82abf90c5b0f90e3be48;p=mit-scheme.git

Changes to allow Win32 microcode to be compiled by the Watcom C
compiler.
---

diff --git a/v7/src/microcode/ntscmlib.h b/v7/src/microcode/ntscmlib.h
index e92829912..1c54e8095 100644
--- a/v7/src/microcode/ntscmlib.h
+++ b/v7/src/microcode/ntscmlib.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: ntscmlib.h,v 1.4 1993/09/13 18:37:21 gjr Exp $
+$Id: ntscmlib.h,v 1.5 1995/10/24 05:24:48 cph Exp $
 
-Copyright (c) 1993 Massachusetts Institute of Technology
+Copyright (c) 1993-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -52,24 +52,24 @@ MIT in each case. */
 
 /* Exports to Scheme */
 
-extern BOOL 
+extern BOOL __cdecl
   win32_under_win32s_p (void);
 
-extern char *
+extern char * __cdecl
   win32_allocate_heap (unsigned long,			/* size */
 		       unsigned long *);		/* handle */
-extern void
+extern void __cdecl
   win32_release_heap (char *,				/* base */
 		      unsigned long);			/* handle */
 
-extern BOOL
+extern BOOL __cdecl
   win32_lock_memory_area (void *,			/* area */
 			  unsigned long);		/* size */
-extern void
+extern void __cdecl
   win32_unlock_memory_area (void *,			/* area */
 			    unsigned long);		/* size */
 
-extern UINT
+extern UINT __cdecl
   win32_install_async_timer (void **,			/* timer state */
 			     unsigned long *,		/* regs */
 			     long,			/* memtop off */
@@ -80,20 +80,21 @@ extern UINT
 			     unsigned long,		/* message */
 			     HWND);			/* window */
 
-extern void
+extern void __cdecl
   win32_flush_async_timer (void *);
 
-extern BOOL
+extern BOOL __cdecl
   win32_alloc_scheme_selectors (unsigned long,		/* base */
 				unsigned long,		/* limit */
 				unsigned short *,	/* cs */
 				unsigned short *,	/* ds */
 				unsigned short *);	/* ss */
-extern void
+
+extern void __cdecl
   win32_release_scheme_selectors (unsigned short,	/* cs */
 				  unsigned short,	/* ds */
 				  unsigned short);	/* ss */
-#endif /* W32SUT_16 */
+#endif /* not W32SUT_16 */
 
 #if defined(W32SUT_32) || defined(W32SUT_16)