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

* prevent invalid typecast on targets using nestedfpstruct functionality

Browse Source 
in case of type errors in the source (the compiler will already have
    printed an error at this point)

git-svn-id: trunk@23044 -
This commit is contained in:
Jonas Maebe 2012-11-22 12:22:00 +00:00
parent 3eb527b532
commit dfe3ca5328
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pparautl.pas
View File

@ -114,7 +114,9 @@ implementation
paranr:=paranr_parentfp_delphi_cc; paranr:=paranr_parentfp_delphi_cc;
{ Generate frame pointer. It can't be put in a register since it { Generate frame pointer. It can't be put in a register since it
must be accessable from nested routines } must be accessable from nested routines }
if not(target_info.system in systems_fpnestedstruct) then if not(target_info.system in systems_fpnestedstruct) or
{ in case of errors, prevent invalid type cast }
(pd.owner.defowner.typ<>procdef) then
begin begin
vs:=tparavarsym.create('$parentfp',paranr,vs_value vs:=tparavarsym.create('$parentfp',paranr,vs_value
,voidpointertype,[vo_is_parentfp,vo_is_hidden_para]); ,voidpointertype,[vo_is_parentfp,vo_is_hidden_para]);