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

Type Library Editor AV Correction

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1360 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-11-01 12:08:12 +00:00
parent 3aad4e18fa
commit 3bf012d3a2
2 changed files with 46 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
wst/trunk/ws_helper/generator.pas
View File

@ -2373,14 +2373,17 @@ var
elt : TPasElement; elt : TPasElement;
ultimAnc, trueAncestor : TPasType; ultimAnc, trueAncestor : TPasType;
begin begin
s := '';
if Assigned(ASymbol.AncestorType) then begin if Assigned(ASymbol.AncestorType) then begin
trueAncestor := ASymbol.AncestorType; trueAncestor := ASymbol.AncestorType;
if trueAncestor.InheritsFrom(TPasUnresolvedTypeRef) then begin if trueAncestor.InheritsFrom(TPasUnresolvedTypeRef) then begin
elt := SymbolTable.FindElement(SymbolTable.GetExternalName(trueAncestor)); elt := SymbolTable.FindElement(SymbolTable.GetExternalName(trueAncestor));
if elt.InheritsFrom(TPasType) then begin if (elt = nil) or (not elt.InheritsFrom(TPasType)) then
trueAncestor := nil
else
trueAncestor := TPasType(elt); trueAncestor := TPasType(elt);
end; end;
end; if (trueAncestor <> nil) then begin
ultimAnc := GetUltimeType(trueAncestor); ultimAnc := GetUltimeType(trueAncestor);
if ultimAnc.InheritsFrom(TPasNativeSimpleType) then begin if ultimAnc.InheritsFrom(TPasNativeSimpleType) then begin
trueAncestor := ultimAnc; trueAncestor := ultimAnc;
@ -2391,8 +2394,7 @@ var
trueAncestor := TPasNativeSimpleType(trueAncestor).ExtendableType; trueAncestor := TPasNativeSimpleType(trueAncestor).ExtendableType;
end; end;
s := Format('%s',[trueAncestor.Name]); s := Format('%s',[trueAncestor.Name]);
end else begin end;
s := '';//'TBaseComplexRemotable';
end; end;
if IsStrEmpty(s) then begin if IsStrEmpty(s) then begin
decBuffer := ''; decBuffer := '';

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

@ -1003,6 +1003,7 @@ begin
trueParent := typItm.AncestorType; trueParent := typItm.AncestorType;
if trueParent.InheritsFrom(TPasUnresolvedTypeRef) then if trueParent.InheritsFrom(TPasUnresolvedTypeRef) then
trueParent := AContainer.FindElement(AContainer.GetExternalName(trueParent)) as TPasType; trueParent := AContainer.FindElement(AContainer.GetExternalName(trueParent)) as TPasType;
if (trueParent <> nil) then begin
if trueParent.InheritsFrom(TPasNativeClassType) and AnsiSameText('THeaderBlock',trueParent.Name) then begin if trueParent.InheritsFrom(TPasNativeClassType) and AnsiSameText('THeaderBlock',trueParent.Name) then begin
DeclareNameSpaceOf_WST(ADocument); DeclareNameSpaceOf_WST(ADocument);
DeclareAttributeOf_WST(cplxNode,s_WST_headerBlock,'true'); DeclareAttributeOf_WST(cplxNode,s_WST_headerBlock,'true');
@ -1035,6 +1036,7 @@ begin
end; end;
hasSequence := False; hasSequence := False;
end; end;
end;
if ( typItm.Members.Count > 0 ) then if ( typItm.Members.Count > 0 ) then
hasSequence := TypeHasSequence(typItm,typeCategory); hasSequence := TypeHasSequence(typItm,typeCategory);
hasXsdAny := False; hasXsdAny := False;