paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-29 15:49:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed superfluous (de)allocallcpuregisters calls

Browse Source 
git-svn-id: trunk@21698 -
This commit is contained in:
Jonas Maebe 2012-06-24 21:36:15 +00:00
parent 8469741700
commit 60aedb19d6
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/hlcgobj.pas
View File

@ -2813,9 +2813,7 @@ implementation
paramanager.getintparaloc(pocall_default,1,pvardata,cgpara1);
a_loadaddr_ref_cgpara(list,t,ref,cgpara1);
paramanager.freecgpara(list,cgpara1);
allocallcpuregisters(list);
g_call_system_proc(list,'fpc_variant_init');
deallocallcpuregisters(list);
end
else
begin
@ -2828,9 +2826,7 @@ implementation
a_loadaddr_ref_cgpara(list,t,ref,cgpara1);
paramanager.freecgpara(list,cgpara1);
paramanager.freecgpara(list,cgpara2);
allocallcpuregisters(list);
g_call_system_proc(list,'fpc_initialize');
deallocallcpuregisters(list);
end;
cgpara1.done;
cgpara2.done;