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

* fix for bug #739

Browse Source
This commit is contained in:
pierre 2000-03-27 21:51:19 +00:00
parent 164e1c25e6
commit 1d3629b598
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ptype.pas
View File

@ -969,7 +969,8 @@ uses
storetypecanbeforward:=typecanbeforward;
{ for tp mode don't allow forward types }
if m_tp in aktmodeswitches then
if (m_tp in aktmodeswitches) and
not (m_delphi in aktmodeswitches) then
typecanbeforward:=false;
{ distinguish classes and objects }
@ -1591,7 +1592,10 @@ uses
end.
{
$Log$
Revision 1.23 2000-03-19 14:56:38 florian
Revision 1.24 2000-03-27 21:51:19 pierre
* fix for bug 739
Revision 1.23 2000/03/19 14:56:38 florian
* bug 873 fixed
* some cleanup in objectdec