paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 12:14:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

* give conversions from pointer to pwidechar a penalty (=prefer pchar)

Browse Source
This commit is contained in:
peter 2002-12-15 22:37:53 +00:00
parent 438fbdedee
commit f1a0d3bd11
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/defcmp.pas
View File

@ -691,7 +691,11 @@ implementation
is_void(tpointerdef(def_from).pointertype.def) then
begin
doconv:=tc_equal;
eq:=te_convert_l1;
{ give pwidechar a small penalty }
if is_pwidechar(def_to) then
eq:=te_convert_l2
else
eq:=te_convert_l1;
end;
end;
procvardef :
@ -1188,7 +1192,10 @@ implementation
end.
{
$Log$
Revision 1.7 2002-12-11 22:40:12 peter
Revision 1.8 2002-12-15 22:37:53 peter
* give conversions from pointer to pwidechar a penalty (=prefer pchar)
Revision 1.7 2002/12/11 22:40:12 peter
* proc->procvar is never an exact match, convert exact parameters
to equal for the whole proc to procvar conversion level