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

* overload choosing for array of char to widestring fixed

Browse Source 
git-svn-id: trunk@979 -
This commit is contained in:
peter 2005-08-30 05:42:11 +00:00
parent fea7d1df10
commit da8c55b019
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/defcmp.pas
View File

@ -344,7 +344,7 @@ implementation
if is_ansistring(def_to) then
eq:=te_convert_l1
else if is_widestring(def_to) then
eq:=te_convert_l2
eq:=te_convert_l3
else
eq:=te_convert_l2;
end
@ -364,6 +364,8 @@ implementation
else
eq:=te_convert_l2;
end
else if is_widestring(def_to) then
eq:=te_convert_l3
else
eq:=te_convert_l2;
end;
@ -378,7 +380,9 @@ implementation
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
eq:=te_convert_l3;
eq:=te_convert_l3
else
eq:=te_convert_l2;
end;
end;
pointerdef :