paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:00:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid ie 99080501 when overloading procedures with open arrays of widechar, resolves #11543

Browse Source 
git-svn-id: trunk@11266 -
This commit is contained in:
florian 2008-06-23 18:50:51 +00:00
parent 545c6b0d64
commit 467aeb3446
3 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8350,6 +8350,7 @@ tests/webtbs/tw1133.pp svneol=native#text/plain
tests/webtbs/tw11349.pp svneol=native#text/plain
tests/webtbs/tw11354.pp svneol=native#text/plain
tests/webtbs/tw1152.pp svneol=native#text/plain
tests/webtbs/tw11543.pp svneol=native#text/plain
tests/webtbs/tw1157.pp svneol=native#text/plain
tests/webtbs/tw1157b.pp svneol=native#text/plain
tests/webtbs/tw1181.pp svneol=native#text/plain

2
compiler/defcmp.pas
View File

@ -462,7 +462,7 @@ implementation
eq:=te_convert_l1
else
{ size of widechar array is double due the sizeof a widechar }
if not(is_shortstring(def_to) and (def_from.size>255*sizeof(widechar))) then
if not(is_shortstring(def_to) and (is_open_widechararray(def_from) or (def_from.size>255*sizeof(widechar)))) then
eq:=te_convert_l3
else
eq:=te_convert_l2;

24
tests/webtbs/tw11543.pp Normal file
View File

@ -0,0 +1,24 @@
unit test;
{$ifdef fpc}{$mode objfpc}{$endif}
interface
type
TSetOfChar = set of char;
ttestclass = class(tobject)
procedure p(const a: array of WideChar); overload;
procedure p(const a: TSetOfChar); overload;
end;
implementation
procedure ttestclass.p(const a: array of WideChar);
begin
end;
procedure ttestclass.p(const a: TSetOfChar);
begin
end;
end.