paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 00:27:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* support absolute unit.variable

Browse Source
This commit is contained in:
peter 1999-11-09 12:58:29 +00:00
parent 51bc667515
commit 18c5e77444
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/pdecl.pas
View File

@ -419,6 +419,13 @@ unit pdecl;
begin
getsym(pattern,true);
consume(_ID);
{ support unit.variable }
if srsym^.typ=unitsym then
begin
consume(_POINT);
getsymonlyin(punitsym(srsym)^.unitsymtable,pattern);
consume(_ID);
end;
{ we should check the result type of srsym }
if not (srsym^.typ in [varsym,typedconstsym]) then
Message(parser_e_absolute_only_to_var_or_const);
@ -1183,7 +1190,10 @@ unit pdecl;
end.
{
$Log$
Revision 1.168 1999-11-06 14:34:21 peter
Revision 1.169 1999-11-09 12:58:29 peter
* support absolute unit.variable
Revision 1.168 1999/11/06 14:34:21 peter
* truncated log to 20 revs
Revision 1.167 1999/10/26 12:30:44 peter