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

* overloaded conversion has lower priority

Browse Source
This commit is contained in:
peter 1999-05-06 10:10:02 +00:00
parent 458a7be587
commit b107bae0b3
1 changed files with 5 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
compiler/htypechk.pas
View File

@ -448,45 +448,9 @@ implementation
begin
{ assignment overwritten ?? }
if is_assignment_overloaded(def_from,def_to) then
b:=1;
b:=2;
end;
end;
{ nil is compatible with ansi- and wide strings }
{ no, that isn't true, (FK)
if (fromtreetype=niln) and (def_to^.deftype=stringdef)
and (pstringdef(def_to)^.string_typ in [st_ansistring,st_widestring]) then
begin
doconv:=tc_equal;
b:=1;
end
else
}
{ ansi- and wide strings can be assigned to void pointers }
{ no, (FK)
if (def_from^.deftype=stringdef) and
(pstringdef(def_from)^.string_typ in [st_ansistring,st_widestring]) and
(def_to^.deftype=pointerdef) and
(ppointerdef(def_to)^.definition^.deftype=orddef) and
(porddef(ppointerdef(def_to)^.definition)^.typ=uvoid) then
begin
doconv:=tc_equal;
b:=1;
end
else
}
{ ansistrings can be assigned to pchar
this needs an explicit type cast (FK)
if is_ansistring(def_from) and
(def_to^.deftype=pointerdef) and
(ppointerdef(def_to)^.definition^.deftype=orddef) and
(porddef(ppointerdef(def_to)^.definition)^.typ=uchar) then
begin
doconv:=tc_ansistring_2_pchar;
b:=1;
end
else
}
isconvertable:=b;
end;
@ -684,7 +648,10 @@ implementation
end.
{
$Log$
Revision 1.23 1999-04-26 09:30:47 peter
Revision 1.24 1999-05-06 10:10:02 peter
* overloaded conversion has lower priority
Revision 1.23 1999/04/26 09:30:47 peter
* small tp7 fix
* fix void pointer with formaldef