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

* replaced all calls to cg.g_incr/decrrefcount/g_initialize/g_finalize with

Browse Source 
calls to hlcg.*

git-svn-id: branches/jvmbackend@18361 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:51:37 +00:00
parent 25f565751a
commit 13a459c2d7
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgbas.pas
View File

@ -71,7 +71,7 @@ interface
aasmbase,aasmtai,aasmdata,aasmcpu,
symsym,symconst,symdef,defutil,
nflw,pass_2,ncgutil,
cgbase,cgobj,
cgbase,cgobj,hlcgobj,
procinfo,
tgobj
;
@ -402,7 +402,7 @@ interface
tg.GetTempTyped(current_asmdata.CurrAsmList,tempinfo^.typedef,tempinfo^.temptype,tempinfo^.location.reference);
{ the temp could have been used previously either because the memory location was reused or
because we're in a loop }
cg.g_finalize(current_asmdata.CurrAsmList,tempinfo^.typedef,tempinfo^.location.reference);
hlcg.g_finalize(current_asmdata.CurrAsmList,tempinfo^.typedef,tempinfo^.location.reference);
end
else if (ti_may_be_in_reg in tempinfo^.flags) then
begin

2
compiler/ncgcal.pas
View File

@ -410,7 +410,7 @@ implementation
function since this is code is only executed after the function call has returned }
if is_managed_type(funcretnode.resultdef) and
(funcretnode.nodetype<>temprefn) then
cg.g_decrrefcount(current_asmdata.CurrAsmList,funcretnode.resultdef,funcretnode.location.reference);
hlcg.g_decrrefcount(current_asmdata.CurrAsmList,funcretnode.resultdef,funcretnode.location.reference);
case location.loc of
LOC_REGISTER :

6
compiler/ncgutil.pas
View File

@ -1707,7 +1707,7 @@ implementation
cg.g_array_rtti_helper(list,eldef,href,hsym.initialloc,'FPC_DECREF_ARRAY');
end
else
cg.g_decrrefcount(list,tparavarsym(p).vardef,href);
hlcg.g_decrrefcount(list,tparavarsym(p).vardef,href);
end;
end;
{ open arrays can contain elements requiring init/final code, so the else has been removed here }
@ -1736,7 +1736,7 @@ implementation
is_managed_type(hp^.def) then
begin
reference_reset_base(href,current_procinfo.framepointer,hp^.pos,sizeof(pint));
cg.g_initialize(list,hp^.def,href);
hlcg.g_initialize(list,hp^.def,href);
end;
hp:=hp^.next;
end;
@ -1756,7 +1756,7 @@ implementation
begin
include(current_procinfo.flags,pi_needs_implicit_finally);
reference_reset_base(href,current_procinfo.framepointer,hp^.pos,sizeof(pint));
cg.g_finalize(list,hp^.def,href);
hlcg.g_finalize(list,hp^.def,href);
end;
hp:=hp^.next;
end;