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

* use cp_value_equal_const instead of cp_all

Browse Source
This commit is contained in:
peter 2001-11-18 20:18:54 +00:00
parent e94751b801
commit 2dc60c9fed
3 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncal.pas
View File

@ -185,7 +185,7 @@ implementation
pdl:=aprocsym.defs;
while assigned(pdl) do
begin
if equal_paras(pdl^.def.para,srpdl^.def.para,cp_all) then
if equal_paras(pdl^.def.para,srpdl^.def.para,cp_value_equal_const) then
begin
found:=true;
break;
@ -1767,7 +1767,10 @@ begin
end.
{
$Log$
Revision 1.56 2001-11-18 18:43:13 peter
Revision 1.57 2001-11-18 20:18:54 peter
* use cp_value_equal_const instead of cp_all
Revision 1.56 2001/11/18 18:43:13 peter
* overloading supported in child classes
* fixed parsing of classes with private and virtual and overloaded
so it is compatible with delphi

15
compiler/nobj.pas
View File

@ -599,7 +599,7 @@ implementation
if not(po_virtualmethod in pd.procoptions) then
begin
if not pdoverload or
equal_paras(procdefcoll^.data.para,pd.para,cp_all) then
equal_paras(procdefcoll^.data.para,pd.para,cp_value_equal_const) then
begin
procdefcoll^.hidden:=true;
if _class=pd._class then
@ -616,7 +616,7 @@ implementation
begin
{ we start a new virtual tree, hide the old }
if not pdoverload or
equal_paras(procdefcoll^.data.para,pd.para,cp_all) then
equal_paras(procdefcoll^.data.para,pd.para,cp_value_equal_const) then
begin
procdefcoll^.hidden:=true;
if _class=pd._class then
@ -624,7 +624,7 @@ implementation
end;
end
{ same parameters }
else if (equal_paras(procdefcoll^.data.para,pd.para,cp_all)) then
else if (equal_paras(procdefcoll^.data.para,pd.para,cp_value_equal_const)) then
begin
{ overload is inherited }
if (po_overload in procdefcoll^.data.procoptions) then
@ -676,7 +676,7 @@ implementation
{ the new definition is virtual and the old static, we hide the old one
if the new defintion has not the overload directive }
if not pdoverload or
equal_paras(procdefcoll^.data.para,pd.para,cp_all) then
equal_paras(procdefcoll^.data.para,pd.para,cp_value_equal_const) then
procdefcoll^.hidden:=true;
end;
end
@ -684,7 +684,7 @@ implementation
begin
{ both are static, we hide the old one if the new defintion
has not the overload directive }
if equal_paras(procdefcoll^.data.para,pd.para,cp_all) or
if equal_paras(procdefcoll^.data.para,pd.para,cp_value_equal_const) or
not pdoverload then
procdefcoll^.hidden:=true;
end;
@ -1276,7 +1276,10 @@ initialization
end.
{
$Log$
Revision 1.9 2001-11-18 18:43:14 peter
Revision 1.10 2001-11-18 20:18:54 peter
* use cp_value_equal_const instead of cp_all
Revision 1.9 2001/11/18 18:43:14 peter
* overloading supported in child classes
* fixed parsing of classes with private and virtual and overloaded
so it is compatible with delphi

9
ide/wutils.pas
View File

@ -56,7 +56,7 @@ type
TUnsortedStringCollection = object(TCollection)
constructor CreateFrom(ALines: PUnsortedStringCollection);
procedure Assign(ALines: PUnsortedStringCollection);
function At(Index: Integer): PString;
function At(Index: Sw_Integer): PString;
procedure FreeItem(Item: Pointer); virtual;
function GetItem(var S: TStream): Pointer; virtual;
procedure PutItem(var S: TStream; Item: Pointer); virtual;
@ -696,7 +696,7 @@ begin
Insert(NewStr(S));
end;
function TUnsortedStringCollection.At(Index: Integer): PString;
function TUnsortedStringCollection.At(Index: Sw_Integer): PString;
begin
At:=inherited At(Index);
end;
@ -1234,7 +1234,10 @@ BEGIN
END.
{
$Log$
Revision 1.4 2001-09-18 15:36:58 pierre
Revision 1.5 2001-11-18 20:18:54 peter
* use cp_value_equal_const instead of cp_all
Revision 1.4 2001/09/18 15:36:58 pierre
* avoid bug 1610
Revision 1.3 2001/08/12 00:04:50 pierre