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

pastojs: error on anynomous record

Browse Source 
git-svn-id: trunk@41851 -
This commit is contained in:
Mattias Gaertner 2019-04-08 20:49:04 +00:00
parent 851740a945
commit 22777fee94
3 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/pastojs/src/fppas2js.pp
View File

@ -3191,6 +3191,8 @@ end;
procedure TPas2JSResolver.AddRecordType(El: TPasRecordType); procedure TPas2JSResolver.AddRecordType(El: TPasRecordType);
begin begin
inherited; inherited;
if El.Name='' then
RaiseNotYetImplemented(20190408224556,El,'anonymous record type');
if El.Parent is TProcedureBody then if El.Parent is TProcedureBody then
// local record // local record
AddElevatedLocal(El); AddElevatedLocal(El);

1
packages/pastojs/src/pas2jsfilecache.pp
View File

@ -1915,6 +1915,7 @@ var
i: Integer; i: Integer;
aFilename: String; aFilename: String;
begin begin
//writeln('TPas2jsFilesCache.FindUnitFileName "',aUnitname,'" ModuleDir="',ModuleDir,'"');
Result:=''; Result:='';
IsForeign:=false; IsForeign:=false;
SearchedDirs:=TStringList.Create; SearchedDirs:=TStringList.Create;

13
packages/pastojs/tests/tcmodules.pas
View File

@ -461,6 +461,7 @@ type
Procedure TestRecord_Const; Procedure TestRecord_Const;
Procedure TestRecord_TypecastFail; Procedure TestRecord_TypecastFail;
Procedure TestRecord_InFunction; Procedure TestRecord_InFunction;
Procedure TestRecord_AnonymousFail;
// ToDo: RTTI of local record // ToDo: RTTI of local record
// ToDo: pcu local record, name clash and rtti // ToDo: pcu local record, name clash and rtti
@ -10601,6 +10602,18 @@ begin
''])); '']));
end; end;
procedure TTestModule.TestRecord_AnonymousFail;
begin
StartProgram(false);
Add([
'var',
' r: record x: word end;',
'begin']);
SetExpectedPasResolverError('not yet implemented: :TPasRecordType [20190408224556] anonymous record type',
nNotYetImplemented);
ConvertProgram;
end;
procedure TTestModule.TestAdvRecord_Function; procedure TTestModule.TestAdvRecord_Function;
begin begin
StartProgram(false); StartProgram(false);