paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 13:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Don't parse proc directives after type renaming of procvars

Browse Source
This commit is contained in:
marco 2001-10-24 10:26:53 +00:00
parent 5d62342562
commit 82465bc078
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/pdecl.pas
View File

@ -378,6 +378,7 @@ implementation
defpos,storetokenpos : tfileposinfo;
old_block_type : tblock_type;
ch : tclassheader;
istyperenaming : boolean;
begin
old_block_type:=block_type;
block_type:=bt_type;
@ -387,6 +388,7 @@ implementation
typename:=pattern;
orgtypename:=orgpattern;
defpos:=akttokenpos;
istyperenaming:=false;
consume(_ID);
consume(_EQUAL);
{ support 'ttype=type word' syntax }
@ -430,7 +432,9 @@ implementation
read_type(tt,orgtypename);
{ update the definition of the type }
newtype.restype:=tt;
if not assigned(tt.sym) then
if assigned(tt.sym) then
istyperenaming:=true
else
tt.sym:=newtype;
if assigned(tt.def) and not assigned(tt.def.typesym) then
tt.def.typesym:=newtype;
@ -454,9 +458,15 @@ implementation
end;
procvardef :
begin
if not is_proc_directive(token) then
consume(_SEMICOLON);
parse_var_proc_directives(tsym(newtype));
{ in case of type renaming, don't parse proc directives }
if istyperenaming then
consume(_SEMICOLON)
else
begin
if not is_proc_directive(token) then
consume(_SEMICOLON);
parse_var_proc_directives(tsym(newtype));
end;
end;
objectdef,
recorddef :
@ -593,7 +603,10 @@ implementation
end.
{
$Log$
Revision 1.37 2001-10-20 20:30:21 peter
Revision 1.38 2001-10-24 10:26:53 marco
* Don't parse proc directives after type renaming of procvars
Revision 1.37 2001/10/20 20:30:21 peter
* read only typed const support, switch $J-
Revision 1.36 2001/10/20 19:28:39 peter