mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-07 06:26:27 +02:00
* compilation fixed
git-svn-id: trunk@39812 -
This commit is contained in:
parent
41d2a0a496
commit
7082b6e34a
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user