paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 19:41:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix Bug ID #31733

Browse Source 
git-svn-id: trunk@36179 -
This commit is contained in:
michael 2017-05-11 15:13:56 +00:00
parent e783e54e8c
commit dbc9b7f8b4
2 changed files with 28 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3222,13 +3222,13 @@ begin
ExpectIdentifier; ExpectIdentifier;
Location:=CurTokenText; Location:=CurTokenText;
NextToken; NextToken;
if CurToken=tkDot then While CurToken=tkDot do
begin begin
ExpectIdentifier; ExpectIdentifier;
Location:=Location+'.'+CurTokenText; Location:=Location+'.'+CurTokenText;
end NextToken;
else end;
UnGetToken; UnGetToken;
end end
else else
UngetToken; UngetToken;

24
packages/fcl-passrc/tests/tcvarparser.pas
View File

@ -33,6 +33,9 @@ Type
Procedure TestSimpleVarInitialized; Procedure TestSimpleVarInitialized;
procedure TestSimpleVarInitializedDeprecated; procedure TestSimpleVarInitializedDeprecated;
procedure TestSimpleVarInitializedPlatform; procedure TestSimpleVarInitializedPlatform;
Procedure TestSimpleVarAbsolute;
Procedure TestSimpleVarAbsoluteDot;
Procedure TestSimpleVarAbsolute2Dots;
Procedure TestVarProcedure; Procedure TestVarProcedure;
Procedure TestVarFunctionINitialized; Procedure TestVarFunctionINitialized;
Procedure TestVarProcedureDeprecated; Procedure TestVarProcedureDeprecated;
@ -182,6 +185,27 @@ begin
AssertExpression('Variable value',TheVar.expr,pekNumber,'123'); AssertExpression('Variable value',TheVar.expr,pekNumber,'123');
end; end;
procedure TTestVarParser.TestSimpleVarAbsolute;
begin
ParseVar('q absolute v','');
AssertVariableType('q');
AssertEquals('correct absolute location','v',TheVar.AbsoluteLocation);
end;
procedure TTestVarParser.TestSimpleVarAbsoluteDot;
begin
ParseVar('q absolute v.w','');
AssertVariableType('q');
AssertEquals('correct absolute location','v.w',TheVar.AbsoluteLocation);
end;
procedure TTestVarParser.TestSimpleVarAbsolute2Dots;
begin
ParseVar('q absolute v.w.x','');
AssertVariableType('q');
AssertEquals('correct absolute location','v.w.x',TheVar.AbsoluteLocation);
end;
procedure TTestVarParser.TestVarProcedure; procedure TTestVarParser.TestVarProcedure;
begin begin
ParseVar('procedure',''); ParseVar('procedure','');