From 0bff22923515ce00b6343a1b12630d08e07a4b86 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 2 May 2014 01:49:33 +0000
Subject: [PATCH] Fix schema "import" generation.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2986 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/ws_helper/wsdl_generator.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wst/trunk/ws_helper/wsdl_generator.pas b/wst/trunk/ws_helper/wsdl_generator.pas
index 1598ff05a..4b4a33144 100644
--- a/wst/trunk/ws_helper/wsdl_generator.pas
+++ b/wst/trunk/ws_helper/wsdl_generator.pas
@@ -168,8 +168,8 @@ begin
       end;
       g := TWsdlTypechemaGenerator.Create(Document) as IGenerator;
       for i := 0 to Pred(mdlLs.Count) do begin
+        mdl := TPasModule(mdlLs[i]);
         if (mdl <> AModule) then begin
-          mdl := TPasModule(mdlLs[i]);
           if mdl.InheritsFrom(TPasNativeModule) then
             Continue;
           s := ASymTable.GetExternalName(mdl);