pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Issue a error message instead of crashing if no "targetNamespace" is provided.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1934 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2011-09-10 22:29:42 +00:00
parent 1c94c886bd
commit 788d3ba426
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
wst/trunk/ws_helper/xsd_parser.pas
View File

@ -1020,7 +1020,8 @@ begin
locName := ExtractIdentifier(AModuleName); locName := ExtractIdentifier(AModuleName);
if not IsStrEmpty(locName) then begin if not IsStrEmpty(locName) then begin
FModuleName := locName; FModuleName := locName;
Module.Name := FModuleName; if (Module <> nil) then
Module.Name := FModuleName;
end; end;
end; end;
end; end;