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

* add cdo_parameter option for def_compare_ext that indicates that we

Browse Source 
are comparing parameter lists
  * openarray and normal array are not compatible anymore when comparing
    parameters

git-svn-id: trunk@4754 -
This commit is contained in:
peter 2006-09-30 09:59:46 +00:00
parent 728b4bcf11
commit 0ddab0c161
3 changed files with 33 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7344,6 +7344,7 @@ tests/webtbs/tw7391.pp svneol=native#text/plain
tests/webtbs/tw7425.pp svneol=native#text/plain tests/webtbs/tw7425.pp svneol=native#text/plain
tests/webtbs/tw7440.pp svneol=native#text/plain tests/webtbs/tw7440.pp svneol=native#text/plain
tests/webtbs/tw7446.pp svneol=native#text/plain tests/webtbs/tw7446.pp svneol=native#text/plain
tests/webtbs/tw7489.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain tests/webtbs/uw0555.pp svneol=native#text/plain

10
compiler/defcmp.pas
View File

@ -37,7 +37,7 @@ interface
tcompare_paras_option = (cpo_allowdefaults,cpo_ignorehidden,cpo_allowconvert,cpo_comparedefaultvalue); tcompare_paras_option = (cpo_allowdefaults,cpo_ignorehidden,cpo_allowconvert,cpo_comparedefaultvalue);
tcompare_paras_options = set of tcompare_paras_option; tcompare_paras_options = set of tcompare_paras_option;
tcompare_defs_option = (cdo_internal,cdo_explicit,cdo_check_operator,cdo_allow_variant); tcompare_defs_option = (cdo_internal,cdo_explicit,cdo_check_operator,cdo_allow_variant,cdo_parameter);
tcompare_defs_options = set of tcompare_defs_option; tcompare_defs_options = set of tcompare_defs_option;
tconverttype = (tc_none, tconverttype = (tc_none,
@ -675,7 +675,8 @@ implementation
end end
else else
{ array -> open array } { array -> open array }
if equal_defs(tarraydef(def_from).elementtype.def,tarraydef(def_to).elementtype.def) then if not(cdo_parameter in cdoptions) and
equal_defs(tarraydef(def_from).elementtype.def,tarraydef(def_to).elementtype.def) then
eq:=te_equal; eq:=te_equal;
end end
else else
@ -708,7 +709,8 @@ implementation
{ other arrays } { other arrays }
begin begin
{ open array -> array } { open array -> array }
if is_open_array(def_from) and if not(cdo_parameter in cdoptions) and
is_open_array(def_from) and
equal_defs(tarraydef(def_from).elementtype.def,tarraydef(def_to).elementtype.def) then equal_defs(tarraydef(def_from).elementtype.def,tarraydef(def_to).elementtype.def) then
begin begin
eq:=te_equal eq:=te_equal
@ -1376,7 +1378,7 @@ implementation
i1,i2 : byte; i1,i2 : byte;
begin begin
compare_paras:=te_incompatible; compare_paras:=te_incompatible;
cdoptions:=[cdo_check_operator,cdo_allow_variant]; cdoptions:=[cdo_parameter,cdo_check_operator,cdo_allow_variant];
{ we need to parse the list from left-right so the { we need to parse the list from left-right so the
not-default parameters are checked first } not-default parameters are checked first }
lowesteq:=high(tequaltype); lowesteq:=high(tequaltype);

26
tests/webtbs/tw7489.pp Executable file
View File

@ -0,0 +1,26 @@
{$mode objfpc}{$H+}
uses
Classes, SysUtils
{ add your units here };
type
TSingle3DVector = array[0..2] of single;
TSingle4DVector = array[0..3] of single;
function VectorLength(const aV3D : TSingle3DVector) : single; overload;
begin
end;
function VectorLength(const aV4D : TSingle4DVector) : single; overload;
begin
end;
function VectorLength(const aVxD : array of single) : single; overload;
begin
end;
begin
end.