paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@35638 -
This commit is contained in:
michael 2017-03-22 20:12:33 +00:00
parent 0f40ccd45f
commit f7db076989
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-passrc/src/pparser.pp
View File

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

2
packages/fcl-passrc/tests/tcresolver.pas
View File

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