paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 17:51:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make stringconstn => open array of char a l1 conversion as it was earlier, resolves #10727

Browse Source 
git-svn-id: trunk@10984 -
This commit is contained in:
florian 2008-05-17 18:18:51 +00:00
parent 52f81c97cf
commit e265393d7a
4 changed files with 35 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8158,6 +8158,7 @@ tests/webtbs/tw1066b.pp svneol=native#text/plain
tests/webtbs/tw1068.pp svneol=native#text/plain tests/webtbs/tw1068.pp svneol=native#text/plain
tests/webtbs/tw10681.pp svneol=native#text/plain tests/webtbs/tw10681.pp svneol=native#text/plain
tests/webtbs/tw1071.pp svneol=native#text/plain tests/webtbs/tw1071.pp svneol=native#text/plain
tests/webtbs/tw10727.pp svneol=native#text/plain
tests/webtbs/tw1073.pp svneol=native#text/plain tests/webtbs/tw1073.pp svneol=native#text/plain
tests/webtbs/tw10736.pp svneol=native#text/plain tests/webtbs/tw10736.pp svneol=native#text/plain
tests/webtbs/tw10753.pp svneol=native#text/plain tests/webtbs/tw10753.pp svneol=native#text/plain

5
compiler/defcmp.pas
View File

@ -717,7 +717,12 @@ implementation
{ array -> open array } { array -> open array }
if not(cdo_parameter in cdoptions) and if not(cdo_parameter in cdoptions) and
equal_defs(tarraydef(def_from).elementdef,tarraydef(def_to).elementdef) then equal_defs(tarraydef(def_from).elementdef,tarraydef(def_to).elementdef) then
begin
if fromtreetype=stringconstn then
eq:=te_convert_l1
else
eq:=te_equal; eq:=te_equal;
end;
end end
else else
{ to array of const } { to array of const }

2
compiler/ncgutil.pas
View File

@ -2838,5 +2838,3 @@ implementation
end; end;
end. end.

26
tests/webtbs/tw10727.pp Normal file
View File

@ -0,0 +1,26 @@
{$ifdef fpc} {$mode delphi}{$endif}
Type
TStringBuilder = Class
function Insert(Index: Integer; const Value: string; Count: Integer = 1): TStringBuilder; overload;
function Insert(Index: Integer; const Value: array of Char): TStringBuilder; overload;
end;
function TStringBuilder.Insert(Index: Integer; const Value: array of Char): TStringBuilder;
begin
writeln('Called TStringBuilder.Insert(Index: Integer; const Value: array of Char): TStringBuilder;');
result:=nil;
end;
function TStringBuilder.Insert(Index: Integer; const Value: string; Count: Integer): TStringBuilder;
begin
writeln('Called TStringBuilder.Insert(Index: Integer; const Value: string; Count: Integer): TStringBuilder;');
result:=nil;
end;
var sb : TSTringBuilder;
begin
sb:=TStringBuilder.Create;
sb.Insert(0, '0 ');
sb.Free;
end.