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

XSD generator: prevent a Nil object reference (=>AV) (Thanks Juha Maninnen)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3176 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-06-16 15:11:10 +00:00
parent cc849ecbac
commit 31bbc5c053
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/ws_helper/xsd_generator.pas
View File

@@ -971,9 +971,9 @@ var
end; end;
propNode.SetAttribute(s_name,AContainer.GetExternalName(p)); propNode.SetAttribute(s_name,AContainer.GetExternalName(p));
propTypItm := p.VarType; propTypItm := p.VarType;
if Assigned(propTypItm) and propTypItm.InheritsFrom(TPasUnresolvedTypeRef) then
propTypItm := AContainer.FindElement(AContainer.GetExternalName(propTypItm)) as TPasType;
if Assigned(propTypItm) then begin if Assigned(propTypItm) then begin
if propTypItm.InheritsFrom(TPasUnresolvedTypeRef) then
propTypItm := AContainer.FindElement(AContainer.GetExternalName(propTypItm)) as TPasType;
//prop_ns_shortName := GetNameSpaceShortName(GetTypeNameSpace(AContainer,propTypItm),ADocument,GetOwner().GetPreferedShortNames()); //prop_ns_shortName := GetNameSpaceShortName(GetTypeNameSpace(AContainer,propTypItm),ADocument,GetOwner().GetPreferedShortNames());
propItmUltimeType := GetUltimeType(propTypItm); propItmUltimeType := GetUltimeType(propTypItm);
isEmbeddedArray := propItmUltimeType.InheritsFrom(TPasArrayType) and isEmbeddedArray := propItmUltimeType.InheritsFrom(TPasArrayType) and