paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 23:09:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #31718

Browse Source 
git-svn-id: trunk@35966 -
This commit is contained in:
michael 2017-04-27 12:34:17 +00:00
parent b741e38f98
commit fe2df71ef5
2 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1804,7 +1804,7 @@ begin
ok:=false; ok:=false;
try try
if Last.Kind in [pekIdent,pekSelf] then if Last.Kind in [pekIdent,pekSelf,pekNil] then
begin begin
while CurToken in [tkDot] do while CurToken in [tkDot] do
begin begin

20
packages/fcl-passrc/tests/tcexprparser.pas
View File

@ -136,6 +136,8 @@ type
procedure TestTypeCast2; procedure TestTypeCast2;
Procedure TestCreate; Procedure TestCreate;
procedure TestChainedPointers; procedure TestChainedPointers;
Procedure TestNilCaret;
Procedure TestExpCaret;
end; end;
implementation implementation
@ -605,6 +607,24 @@ begin
ParseModule; ParseModule;
end; end;
procedure TTestExpressions.TestNilCaret;
begin
Source.Add('{$mode objfpc}');
Source.Add('begin');
Source.Add('FillChar(nil^,10,10);');
Source.Add('end.');
ParseModule;
end;
procedure TTestExpressions.TestExpCaret;
begin
Source.Add('{$mode objfpc}');
Source.Add('begin');
Source.Add('A:=B^;');
Source.Add('end.');
ParseModule;
end;
procedure TTestExpressions.TestUnaryMinus; procedure TTestExpressions.TestUnaryMinus;
begin begin