From a3ae6b453cbe375c7005395b1b365a0eb2d24c9e Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 27 Jun 2009 22:39:02 +0000
Subject: [PATCH] suppress warnings and hints

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@872 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/ws_helper/xsd_generator.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/wst/trunk/ws_helper/xsd_generator.pas b/wst/trunk/ws_helper/xsd_generator.pas
index e74c04ec6..e8d294364 100644
--- a/wst/trunk/ws_helper/xsd_generator.pas
+++ b/wst/trunk/ws_helper/xsd_generator.pas
@@ -650,7 +650,7 @@ procedure TTypeAliasDefinition_TypeHandler.Generate(
 );
 var
   typItm : TPasAliasType;
-  ns_shortName, s : string;
+  s : string;
   defSchemaNode, resNode : TDOMElement;
   unitExternalName, baseUnitExternalName : string;
   trueDestType : TPasType;
@@ -664,7 +664,7 @@ begin
   typItm := ASymbol as TPasAliasType;
   if Assigned(typItm) then begin
     unitExternalName := GetTypeNameSpace(AContainer,ASymbol);
-    ns_shortName := GetNameSpaceShortName(unitExternalName,ADocument,GetOwner().GetPreferedShortNames());
+    GetNameSpaceShortName(unitExternalName,ADocument,GetOwner().GetPreferedShortNames());
     defSchemaNode := GetSchemaNode(ADocument) as TDOMElement;
 
     s := Format('%s:%s',[s_xs_short,s_element]);