paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 23:19:29 +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;
{ 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
tw10933.pp test failure) }
if getaddr and (token<>_LKLAMMER) then
@ -3379,6 +3379,7 @@ implementation
filepos:=current_tokenpos;
again:=false;
pd:=nil;
isspecialize:=false;
if token=_ID then
begin
again:=true;