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

* bug #738 fixed

Browse Source
This commit is contained in:
florian 2000-01-27 16:31:40 +00:00
parent 567966baad
commit ce0f32a21e
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ptype.pas
View File

@ -1211,6 +1211,13 @@ uses
tt.setdef(aktobjectdef);
exit;
end;
{ classes can be used also in classes }
if (curobjectname=pattern) and aktobjectdef^.is_class then
begin
tt.setdef(aktobjectdef);
consume(_ID);
exit;
end;
{ we can't accept a equal in type }
pt1:=comp_expr(not(ignore_equal));
do_firstpass(pt1);
@ -1517,7 +1524,10 @@ uses
end.
{
$Log$
Revision 1.14 2000-01-11 17:16:06 jonas
Revision 1.15 2000-01-27 16:31:40 florian
* bug 738 fixed
Revision 1.14 2000/01/11 17:16:06 jonas
* removed a lot of memory leaks when an error is encountered (caused by
procinfo and pstringcontainers). There are still plenty left though :)
@ -1569,4 +1579,4 @@ end.
* split type reading from pdecl to ptype unit
* parameter_dec routine is now used for procedure and procvars
}
}