mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 20:29:17 +02:00
added checking for token=_ID after _POINT is parsed
This commit is contained in:
parent
e32e9da818
commit
d804452dcc
@ -1678,6 +1678,8 @@ implementation
|
|||||||
end;
|
end;
|
||||||
case p1.resulttype.def.deftype of
|
case p1.resulttype.def.deftype of
|
||||||
recorddef:
|
recorddef:
|
||||||
|
begin
|
||||||
|
if token=_ID then
|
||||||
begin
|
begin
|
||||||
hsym:=tsym(trecorddef(p1.resulttype.def).symtable.search(pattern));
|
hsym:=tsym(trecorddef(p1.resulttype.def).symtable.search(pattern));
|
||||||
check_hints(hsym);
|
check_hints(hsym);
|
||||||
@ -1690,12 +1692,15 @@ implementation
|
|||||||
p1.destroy;
|
p1.destroy;
|
||||||
p1:=cerrornode.create;
|
p1:=cerrornode.create;
|
||||||
end;
|
end;
|
||||||
|
end;
|
||||||
consume(_ID);
|
consume(_ID);
|
||||||
end;
|
end;
|
||||||
variantdef:
|
variantdef:
|
||||||
begin
|
begin
|
||||||
end;
|
end;
|
||||||
classrefdef:
|
classrefdef:
|
||||||
|
begin
|
||||||
|
if token=_ID then
|
||||||
begin
|
begin
|
||||||
classh:=tobjectdef(tclassrefdef(p1.resulttype.def).pointertype.def);
|
classh:=tobjectdef(tclassrefdef(p1.resulttype.def).pointertype.def);
|
||||||
hsym:=searchsym_in_class(classh,pattern);
|
hsym:=searchsym_in_class(classh,pattern);
|
||||||
@ -1713,9 +1718,13 @@ implementation
|
|||||||
consume(_ID);
|
consume(_ID);
|
||||||
do_member_read(classh,getaddr,hsym,p1,again,[]);
|
do_member_read(classh,getaddr,hsym,p1,again,[]);
|
||||||
end;
|
end;
|
||||||
|
end
|
||||||
|
else { Error }
|
||||||
|
Consume(_ID);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
objectdef:
|
objectdef:
|
||||||
|
begin
|
||||||
|
if token=_ID then
|
||||||
begin
|
begin
|
||||||
store_static:=allow_only_static;
|
store_static:=allow_only_static;
|
||||||
allow_only_static:=false;
|
allow_only_static:=false;
|
||||||
@ -1736,20 +1745,22 @@ implementation
|
|||||||
consume(_ID);
|
consume(_ID);
|
||||||
do_member_read(classh,getaddr,hsym,p1,again,[]);
|
do_member_read(classh,getaddr,hsym,p1,again,[]);
|
||||||
end;
|
end;
|
||||||
|
end
|
||||||
|
else { Error }
|
||||||
|
Consume(_ID);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
pointerdef:
|
pointerdef:
|
||||||
begin
|
begin
|
||||||
Message(parser_e_invalid_qualifier);
|
Message(parser_e_invalid_qualifier);
|
||||||
if tpointerdef(p1.resulttype.def).pointertype.def.deftype in [recorddef,objectdef,classrefdef] then
|
if tpointerdef(p1.resulttype.def).pointertype.def.deftype in [recorddef,objectdef,classrefdef] then
|
||||||
Message(parser_h_maybe_deref_caret_missing);
|
Message(parser_h_maybe_deref_caret_missing);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
Message(parser_e_invalid_qualifier);
|
Message(parser_e_invalid_qualifier);
|
||||||
p1.destroy;
|
p1.destroy;
|
||||||
p1:=cerrornode.create;
|
p1:=cerrornode.create;
|
||||||
|
{ Error }
|
||||||
consume(_ID);
|
consume(_ID);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
@ -2492,7 +2503,10 @@ implementation
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.169 2004-11-01 15:32:12 peter
|
Revision 1.170 2004-11-04 17:57:58 peter
|
||||||
|
added checking for token=_ID after _POINT is parsed
|
||||||
|
|
||||||
|
Revision 1.169 2004/11/01 15:32:12 peter
|
||||||
* support @labelsym
|
* support @labelsym
|
||||||
|
|
||||||
Revision 1.168 2004/11/01 10:33:01 peter
|
Revision 1.168 2004/11/01 10:33:01 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user