paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-08 16:58:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check also interfacedef when checking for matching forwarddef

Browse Source
This commit is contained in:
peter 2003-01-03 20:35:08 +00:00
parent 892e9c864a
commit c0c6ad57f3
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/psub.pas
View File

@ -193,7 +193,7 @@ implementation
block:=statement_block(_BEGIN); block:=statement_block(_BEGIN);
if symtablestack.symtabletype=localsymtable then if symtablestack.symtabletype=localsymtable then
symtablestack.foreach_static({$ifdef FPCPROCVAR}@{$endif}initializevars,block); symtablestack.foreach_static({$ifdef FPCPROCVAR}@{$endif}initializevars,block);
end; end;
end; end;
@ -623,6 +623,7 @@ implementation
{ Give a better error if there is a forward def in the interface and only { Give a better error if there is a forward def in the interface and only
a single implementation } a single implementation }
if (not aktprocdef.forwarddef) and if (not aktprocdef.forwarddef) and
(not aktprocdef.interfacedef) and
(aktprocsym.procdef_count>1) and (aktprocsym.procdef_count>1) and
aktprocsym.first_procdef.forwarddef and aktprocsym.first_procdef.forwarddef and
aktprocsym.first_procdef.interfacedef and aktprocsym.first_procdef.interfacedef and
@ -843,7 +844,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.86 2003-01-02 11:14:02 michael Revision 1.87 2003-01-03 20:35:08 peter
* check also interfacedef when checking for matching forwarddef
Revision 1.86 2003/01/02 11:14:02 michael
+ Patch from peter to support initial values for local variables + Patch from peter to support initial values for local variables
Revision 1.85 2002/12/29 18:59:34 peter Revision 1.85 2002/12/29 18:59:34 peter