From 7128255d3077088ff7154ac8da168469a0a4d7d8 Mon Sep 17 00:00:00 2001
From: davygrvy <davygrvy@pobox.com>
Date: Thu, 6 Sep 2001 00:39:59 +0000
Subject: 	* generic/tclPlatDecls.h:  Another small trim finalizing
 Borland support.

---
 generic/tclPlatDecls.h | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/generic/tclPlatDecls.h b/generic/tclPlatDecls.h
index 0201034..215eb8e 100644
--- a/generic/tclPlatDecls.h
+++ b/generic/tclPlatDecls.h
@@ -6,7 +6,7 @@
  * Copyright (c) 1998-1999 by Scriptics Corporation.
  * All rights reserved.
  *
- * RCS: @(#) $Id: tclPlatDecls.h,v 1.9 2001/09/05 03:34:22 davygrvy Exp $
+ * RCS: @(#) $Id: tclPlatDecls.h,v 1.10 2001/09/06 00:39:59 davygrvy Exp $
  */
 
 #ifndef _TCLPLATDECLS
@@ -20,7 +20,8 @@
 #if defined(__WIN32__) && (!defined(_TCHAR_DEFINED) && !defined(__TCHAR_DEFINED))
 #   include <tchar.h>
 #   ifndef _TCHAR_DEFINED
-	/* tchar.h doesn't set this.  winnt.h checks this. */
+	/* Borland seems to forget to set this. */
+	typedef wchar_t     TCHAR;
 #	define _TCHAR_DEFINED
 #   endif
 #endif
@@ -33,42 +34,42 @@
 
 #ifdef __WIN32__
 /* 0 */
-EXTERN TCHAR *		Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * str, 
+EXTERN(TCHAR *)		Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * str, 
 				int len, Tcl_DString * dsPtr));
 /* 1 */
-EXTERN char *		Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * str, 
+EXTERN(char *)		Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * str, 
 				int len, Tcl_DString * dsPtr));
 #endif /* __WIN32__ */
 #ifdef MAC_TCL
 /* 0 */
-EXTERN void		Tcl_MacSetEventProc _ANSI_ARGS_((
+EXTERN(void)		Tcl_MacSetEventProc _ANSI_ARGS_((
 				Tcl_MacConvertEventPtr procPtr));
 /* 1 */
-EXTERN char *		Tcl_MacConvertTextResource _ANSI_ARGS_((
+EXTERN(char *)		Tcl_MacConvertTextResource _ANSI_ARGS_((
 				Handle resource));
 /* 2 */
-EXTERN int		Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp, 
+EXTERN(int)		Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp, 
 				char * resourceName, int resourceNumber, 
 				char * fileName));
 /* 3 */
-EXTERN Handle		Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp, 
+EXTERN(Handle)		Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp, 
 				long resourceType, char * resourceName, 
 				int resourceNumber, char * resFileRef, 
 				int * releaseIt));
 /* 4 */
-EXTERN int		Tcl_GetOSTypeFromObj _ANSI_ARGS_((
+EXTERN(int)		Tcl_GetOSTypeFromObj _ANSI_ARGS_((
 				Tcl_Interp * interp, Tcl_Obj * objPtr, 
 				OSType * osTypePtr));
 /* 5 */
-EXTERN void		Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr, 
+EXTERN(void)		Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr, 
 				OSType osType));
 /* 6 */
-EXTERN Tcl_Obj *	Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType));
+EXTERN(Tcl_Obj *)	Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType));
 /* 7 */
-EXTERN int		strncasecmp _ANSI_ARGS_((CONST char * s1, 
+EXTERN(int)		strncasecmp _ANSI_ARGS_((CONST char * s1, 
 				CONST char * s2, size_t n));
 /* 8 */
-EXTERN int		strcasecmp _ANSI_ARGS_((CONST char * s1, 
+EXTERN(int)		strcasecmp _ANSI_ARGS_((CONST char * s1, 
 				CONST char * s2));
 #endif /* MAC_TCL */
 
-- 
cgit v0.12