From 676d01dff69ef4ab863ea995c2b582fd6f540d1b Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 6 Nov 2000 23:17:15 +0000
Subject: [PATCH]   * removed some warnings

---
 rtl/inc/wstrings.inc | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/rtl/inc/wstrings.inc b/rtl/inc/wstrings.inc
index 582ae017f3..e969fe69f4 100644
--- a/rtl/inc/wstrings.inc
+++ b/rtl/inc/wstrings.inc
@@ -45,7 +45,7 @@ Const
   WideRecLen = SizeOf(TWideRec);
   WideFirstOff = SizeOf(TWideRec)-1;
 
-{
+(*
 Procedure UniqueWideString(Var S : WideString); [Public,Alias : 'FPC_WIDESTR_UNIQUE'];
 {
   Make sure reference count of S is 1,
@@ -54,8 +54,7 @@ Procedure UniqueWideString(Var S : WideString); [Public,Alias : 'FPC_WIDESTR_UNI
 
 begin
 end;
-}
-
+*)
 
 
 {****************************************************************************
@@ -413,8 +412,8 @@ var
   maxi,
   i,j : longint;
   e   : boolean;
-  S   : WideString;
-  se  : Pointer;
+{  S   : WideString;
+  se  : Pointer; }
 begin
   i := 0;
   j := 0;
@@ -500,7 +499,10 @@ end;}
 
 {
   $Log$
-  Revision 1.5  2000-11-06 20:34:24  peter
+  Revision 1.6  2000-11-06 23:17:15  peter
+    * removed some warnings
+
+  Revision 1.5  2000/11/06 20:34:24  peter
     * changed ver1_0 defines to temporary defs
 
   Revision 1.4  2000/10/21 18:20:17  florian