* Allow external fields also for non-external classes is externalclass modeswitch is active

git-svn-id: trunk@35638 -

packages/fcl-passrc/src/pparser.pp

@@ -3133,8 +3133,7 @@ begin
     TPasVariable(VarList[OldListCount]).Expr:=Value;
     Value:=nil;
     ExternalClass:=(msExternalClass in CurrentModeSwitches)
-                    and (Parent is TPasClassType)
-                    and (TPasClassType(Parent).ExternalName<>'');
+                    and (Parent is TPasClassType) ;
     H:=H+CheckHint(Nil,Full);
     if Full  then
       Mods:=GetVariableModifiers(Parent,VarMods,aLibName,aExpName,ExternalClass)

packages/fcl-passrc/tests/tcresolver.pas

@@ -5354,7 +5354,7 @@ begin
   StartProgram(false);
   Add('type');
   Add('{$modeswitch externalclass}');
-  Add('  TObject = class external ''namespace'' name ''symbol''');
+  Add('  TObject = class');
   Add('    Id: longint external name ''$Id'';');
   Add('    Data: longint external name ''$Data'';');
   Add('  end;');