paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-16 23:59:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed parent of const external modifier

Browse Source
This commit is contained in:
mattias 2019-02-26 19:05:59 +00:00
parent 8168cc6ccc
commit 8f31992686
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3866,7 +3866,7 @@ begin
NextToken; NextToken;
if not (CurToken in [tkChar,tkString,tkIdentifier]) then if not (CurToken in [tkChar,tkString,tkIdentifier]) then
ParseExcTokenError(TokenInfos[tkString]); ParseExcTokenError(TokenInfos[tkString]);
Result.ExportName:=DoParseExpression(Parent); Result.ExportName:=DoParseExpression(Result);
Result.IsConst:=true; // external const is readonly Result.IsConst:=true; // external const is readonly
end end
else if CurToken=tkSemicolon then else if CurToken=tkSemicolon then

1
compiler/packages/pastojs/tests/tcfiler.pas
View File

@ -1637,6 +1637,7 @@ begin
' s = ''abc'';', // string lit ' s = ''abc'';', // string lit
' c: char = s[1];', // array params ' c: char = s[1];', // array params
' a: array[1..2] of longint = (3,4);', // anonymous array, range, array values ' a: array[1..2] of longint = (3,4);', // anonymous array, range, array values
' PI: Double; external name ''Math.PI'';',
'resourcestring', 'resourcestring',
' rs = ''rs'';', ' rs = ''rs'';',
'implementation']); 'implementation']);