paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 11:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

undo

Browse Source 
git-svn-id: trunk@47514 -
(cherry picked from commit 0f391f5e1a)
This commit is contained in:
Mattias Gaertner 2020-11-21 17:59:24 +00:00 committed by Florian Klämpfl
parent 3a43373fb6
commit 69bc1a1540
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1932,7 +1932,7 @@ begin
' PRec = ^specialize TRec<word>;',
'begin',
'']);
CheckParserException('Expected "Identifier or file"',nParserExpectTokenError);
CheckParserException('Expected "Identifier" at token "specialize" in file afile.pp at line 4 column 11',nParserExpectTokenError);
end;
procedure TTestResolveGenerics.TestGen_HelperForArray;

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

@ -16489,7 +16489,7 @@ begin
Add([
'type p = ^(red, green);',
'begin']);
CheckParserException('Expected "Identifier or file"',
CheckParserException('Expected "Identifier" at token "(" in file afile.pp at line 2 column 11',
nParserExpectTokenError);
end;

6
packages/pastojs/src/pas2jsfiler.pp
View File

@ -442,7 +442,8 @@ const
'Static',
'Varargs',
'ReferenceTo',
'Async'
'Async',
'Far'
);
PCUProcedureMessageTypeNames: array[TProcedureMessageType] of string = (
@ -484,7 +485,8 @@ const
'LogicalXor',
'RightShift',
'Enumerator',
'In'
'In',
'Initialize'
);
PCUProcedureModifierNames: array[TProcedureModifier] of string = (