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

* compilation fixed

Browse Source 
git-svn-id: trunk@39812 -
This commit is contained in:
florian 2018-09-26 19:38:17 +00:00
parent 41d2a0a496
commit 7082b6e34a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pexpr.pas
View File

@ -1005,7 +1005,7 @@ implementation
end; end;
{ only need to get the address of the procedure? Check token because { only need to get the address of the procedure? Check token because
in the case of opening parenthesis is possible to get pointer to in the case of opening parenthesis is possible to get pointer to
function result (lack of checking for token was the reason of function result (lack of checking for token was the reason of
tw10933.pp test failure) } tw10933.pp test failure) }
if getaddr and (token<>_LKLAMMER) then if getaddr and (token<>_LKLAMMER) then
@ -3379,6 +3379,7 @@ implementation
filepos:=current_tokenpos; filepos:=current_tokenpos;
again:=false; again:=false;
pd:=nil; pd:=nil;
isspecialize:=false;
if token=_ID then if token=_ID then
begin begin
again:=true; again:=true;