Alias creation => avoid name clash with containing module.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4626 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2016-04-22 08:56:05 +00:00 · 2016-04-22 08:56:05 +00:00 · fc29551d2c
commit fc29551d2c
parent 4134c3a7be
1 changed files with 2 additions and 1 deletions
--- a/wst/trunk/ws_helper/xsd_parser.pas
+++ b/wst/trunk/ws_helper/xsd_parser.pas
@ -805,7 +805,8 @@ var
    baseName := ExtractNameFromQName(AName);
    internalName := ExtractIdentifier(baseName);
    hasInterName := IsReservedKeyWord(internalName) or
-                    ( not IsValidIdent(internalName) );
+                    not(IsValidIdent(internalName)) or
+                    SameText(internalName,Self.Module.Name);
    if hasInterName then begin
      internalName := '_' + internalName;
    end;