paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: fix comments

Browse Source 
git-svn-id: trunk@16796 -
This commit is contained in:
paul 2011-01-21 02:21:15 +00:00
parent 9a6f574f06
commit 0be10ee19f
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ptype.pas
View File

@ -406,8 +406,7 @@ implementation
sorg:=orgpattern;
pos:=current_tokenpos;
{ use of current parsed object:
- classes can be used also in classes
- objects can be parameters }
classes, objects, records can be used also in themself }
structdef:=current_structdef;
while assigned(structdef) and (structdef.typ in [objectdef,recorddef]) do
begin
@ -419,7 +418,7 @@ implementation
end;
structdef:=tabstractrecorddef(structdef.owner.defowner);
end;
{ Use the special searchsym_type that ignores records and parameters }
{ Use the special searchsym_type that search only types }
searchsym_type(s,srsym,srsymtable);
{ handle unit specification like System.Writeln }
is_unit_specific:=try_consume_unitsym(srsym,srsymtable,t);
@ -944,8 +943,7 @@ implementation
old_block_type:=block_type;
dospecialize:=false;
{ use of current parsed object:
- classes can be used also in classes
- objects can be parameters }
classes, objects, records can be used also in themself }
if (token=_ID) then
begin
structdef:=current_structdef;