paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 06:50:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: parser: external record field

Browse Source 
git-svn-id: trunk@39302 -
This commit is contained in:
Mattias Gaertner 2018-06-25 16:05:30 +00:00
parent 2bc313fbe5
commit 936a26ed29
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4198,7 +4198,7 @@ begin
// Note: external members are allowed for non external classes too
ExternalStruct:=(msExternalClass in CurrentModeSwitches)
and (Parent is TPasClassType);
and ((Parent is TPasClassType) or (Parent is TPasRecordType));
H:=H+CheckHint(Nil,False);
if Full or ExternalStruct then

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

@ -7202,9 +7202,9 @@ end;
procedure TTestResolver.TestRecord_VarExternal;
begin
exit;
StartProgram(false);
Add([
'{$modeswitch externalclass}',
'type',
' TRec = record',
' Id: longint external name ''$Id'';',