added checking for token=_ID after _POINT is parsed

This commit is contained in:
peter 2004-11-04 17:57:58 +00:00
parent e32e9da818
commit d804452dcc

View File

@ -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