From 788d3ba42656436e7fc1f4222726a786a9690817 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 10 Sep 2011 22:29:42 +0000
Subject: [PATCH] Issue a error message instead of crashing if no
 "targetNamespace" is provided.

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

diff --git a/wst/trunk/ws_helper/xsd_parser.pas b/wst/trunk/ws_helper/xsd_parser.pas
index 397c029bc..65a13649b 100644
--- a/wst/trunk/ws_helper/xsd_parser.pas
+++ b/wst/trunk/ws_helper/xsd_parser.pas
@@ -1020,7 +1020,8 @@ begin
     locName := ExtractIdentifier(AModuleName);
     if not IsStrEmpty(locName) then begin
       FModuleName := locName;
-      Module.Name := FModuleName;
+      if (Module <> nil) then
+        Module.Name := FModuleName;
     end;
   end;
 end;