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

* initialize file variables in iso mode

Browse Source 
git-svn-id: trunk@15681 -
This commit is contained in:
florian 2010-07-31 20:43:37 +00:00
parent 73d788ff96
commit 67416e958b
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgutil.pas
View File

@ -1470,7 +1470,9 @@ implementation
) and
not(vo_is_typed_const in tabstractvarsym(p).varoptions) and
not(vo_is_external in tabstractvarsym(p).varoptions) and
is_managed_type(tabstractvarsym(p).vardef) then
(is_managed_type(tabstractvarsym(p).vardef) or
((m_iso in current_settings.modeswitches) and (tabstractvarsym(p).vardef.typ=filedef))
) then
begin
OldAsmList:=current_asmdata.CurrAsmList;
current_asmdata.CurrAsmList:=TAsmList(arg);

3
compiler/pinline.pas
View File

@ -312,7 +312,8 @@ implementation
ccallnode.createintern('fpc_getmem',para)));
{ create call to fpc_initialize }
if is_managed_type(tpointerdef(p.resultdef).pointeddef) then
if is_managed_type(tpointerdef(p.resultdef).pointeddef) or
((m_iso in current_settings.modeswitches) and (tpointerdef(p.resultdef).pointeddef.typ=filedef)) then
addstatement(newstatement,initialize_data_node(cderefnode.create(ctemprefnode.create(temp))));
{ copy the temp to the destination }