paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check whether we are explicitly typecasting untypedpointer^ before other

Browse Source 
cases (that depend on the sizes of the typecast matching) so that we
    can (internally) generate typecasts to open array/array of const

git-svn-id: trunk@29819 -
This commit is contained in:
Jonas Maebe 2015-02-23 22:47:44 +00:00
parent aae879d28a
commit c764826bb3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncnv.pas
View File

@ -2392,6 +2392,10 @@ implementation
((resultdef.typ=enumdef) and ((resultdef.typ=enumdef) and
(left.resultdef.typ=objectdef))) or (left.resultdef.typ=objectdef))) or
{$endif} {$endif}
(
is_void(left.resultdef) and
(left.nodetype=derefn)
) or
( (
not(is_open_array(left.resultdef)) and not(is_open_array(left.resultdef)) and
not(is_array_constructor(left.resultdef)) and not(is_array_constructor(left.resultdef)) and
@ -2406,10 +2410,6 @@ implementation
{ the softfloat code generates casts <const. float> to record } { the softfloat code generates casts <const. float> to record }
(nf_internal in flags) (nf_internal in flags)
)) ))
) or
(
is_void(left.resultdef) and
(left.nodetype=derefn)
) )
) then ) then
CGMessage2(type_e_illegal_type_conversion,left.resultdef.typename,resultdef.typename) CGMessage2(type_e_illegal_type_conversion,left.resultdef.typename,resultdef.typename)