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

* fixed operator overloading

Browse Source
This commit is contained in:
peter 2000-09-04 20:15:19 +00:00
parent d457cf74a5
commit b90e759995
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/psub.pas
View File

@ -247,11 +247,12 @@ begin
begin
{ create a new procsym and set the real filepos }
tokenpos:=procstartfilepos;
aktprocsym:=new(pprocsym,init(sp));
{ for operator we have only one definition for each overloaded
operation }
if (options=potype_operator) then
begin
{ create the procsym with saving the original case }
aktprocsym:=new(pprocsym,init('$'+sp));
{ the only problem is that nextoverloaded might not be in a unit
known for the unit itself }
{ not anymore PM }
@ -260,7 +261,9 @@ begin
{$ifndef DONOTCHAINOPERATORS}
overloaded_operators[optoken]:=aktprocsym;
{$endif DONOTCHAINOPERATORS}
end;
end
else
aktprocsym:=new(pprocsym,init(sp));
symtablestack^.insert(aktprocsym);
end;
@ -2087,7 +2090,10 @@ end.
{
$Log$
Revision 1.10 2000-08-27 16:11:52 peter
Revision 1.11 2000-09-04 20:15:19 peter
* fixed operator overloading
Revision 1.10 2000/08/27 16:11:52 peter
* moved some util functions from globals,cobjects to cutils
* splitted files into finput,fmodule