paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 03:41:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix check for typecasting wrong sizes in assignment left

Browse Source
This commit is contained in:
peter 2003-10-20 19:29:12 +00:00
parent 1becfc28b4
commit 6ec273a878
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/htypechk.pas
View File

@ -744,10 +744,10 @@ implementation
todef:=hp.resulttype.def;
if not((fromdef.deftype=formaldef) or
is_void(fromdef) or
is_open_array(fromdef) or
((fromdef.deftype=pointerdef) and (todef.deftype=arraydef)) or
((fromdef.deftype = objectdef) and (todef.deftype = objectdef) and
(tobjectdef(fromdef).is_related(tobjectdef(todef))))) and
is_open_array(fromdef) and
(fromdef.size<>todef.size) then
begin
{ in TP it is allowed to typecast to smaller types }
@ -941,7 +941,10 @@ implementation
end.
{
$Log$
Revision 1.69 2003-10-08 19:19:45 peter
Revision 1.70 2003-10-20 19:29:12 peter
* fix check for typecasting wrong sizes in assignment left
Revision 1.69 2003/10/08 19:19:45 peter
* set_varstate cleanup
Revision 1.68 2003/10/05 21:21:52 peter