paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support mulitple overloads in implementation, this is delphi

Browse Source 
compatible
  * procsym only stores the overloads available in the interface
This commit is contained in:
peter 2003-09-14 12:58:00 +00:00
parent 9311d0803d
commit 8dd0a4027a
2 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/psub.pas
View File

@ -1103,14 +1103,6 @@ implementation
begin begin
Message1(parser_e_header_dont_match_forward,pd.fullprocname(false)); Message1(parser_e_header_dont_match_forward,pd.fullprocname(false));
tprocsym(pd.procsym).write_parameter_lists(pd); tprocsym(pd.procsym).write_parameter_lists(pd);
end
else
begin
{ check the global flag, for delphi this is not
required }
{if not(m_delphi in aktmodeswitches) and
not(pd.procsym.owner.symtabletype=globalsymtable) then
Message(parser_e_overloaded_must_be_all_global);}
end; end;
end; end;
end; end;
@ -1317,7 +1309,12 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.146 2003-09-12 19:07:42 daniel Revision 1.147 2003-09-14 12:58:00 peter
* support mulitple overloads in implementation, this is delphi
compatible
* procsym only stores the overloads available in the interface
Revision 1.146 2003/09/12 19:07:42 daniel
* Fixed fast spilling functionality by re-adding the code that initializes * Fixed fast spilling functionality by re-adding the code that initializes
precoloured nodes to degree 255. I would like to play hangman on the one precoloured nodes to degree 255. I would like to play hangman on the one
who removed that code. who removed that code.

19
compiler/symsym.pas
View File

@ -854,9 +854,10 @@ implementation
while assigned(p) do while assigned(p) do
begin begin
{ only write the proc definitions that belong { only write the proc definitions that belong
to this procsym } to this procsym and are in the global symtable }
if (p^.def.procsym=self) then if (p^.def.procsym=self) and
inc(n); (p^.def.owner.symtabletype=globalsymtable) then
inc(n);
p:=p^.next; p:=p^.next;
end; end;
ppufile.putword(n); ppufile.putword(n);
@ -865,8 +866,9 @@ implementation
while assigned(p) do while assigned(p) do
begin begin
{ only write the proc definitions that belong { only write the proc definitions that belong
to this procsym } to this procsym and are in the global symtable }
if (p^.def.procsym=self) then if (p^.def.procsym=self) and
(p^.def.owner.symtabletype=globalsymtable) then
ppufile.putderef(p^.def,p^.defderef); ppufile.putderef(p^.def,p^.defderef);
p:=p^.next; p:=p^.next;
end; end;
@ -2660,7 +2662,12 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.115 2003-09-03 15:55:01 peter Revision 1.116 2003-09-14 12:58:00 peter
* support mulitple overloads in implementation, this is delphi
compatible
* procsym only stores the overloads available in the interface
Revision 1.115 2003/09/03 15:55:01 peter
* NEWRA branch merged * NEWRA branch merged
Revision 1.114 2003/09/03 11:18:37 florian Revision 1.114 2003/09/03 11:18:37 florian