paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 00:49:09 +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

12
compiler/ptype.pas
View File

@ -1211,6 +1211,13 @@ uses
tt.setdef(aktobjectdef); tt.setdef(aktobjectdef);
exit; exit;
end; 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 } { we can't accept a equal in type }
pt1:=comp_expr(not(ignore_equal)); pt1:=comp_expr(not(ignore_equal));
do_firstpass(pt1); do_firstpass(pt1);
@ -1517,7 +1524,10 @@ uses
end. end.
{ {
$Log$ $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 * removed a lot of memory leaks when an error is encountered (caused by
procinfo and pstringcontainers). There are still plenty left though :) procinfo and pstringcontainers). There are still plenty left though :)