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

* -gt now also trashes function results passed by reference

Browse Source 
(i.e., complex function results)

git-svn-id: trunk@4422 -
This commit is contained in:
Jonas Maebe 2006-08-14 11:48:45 +00:00
parent 62658e26fc
commit ac2189cb71
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/ncgutil.pas
View File

@ -928,31 +928,33 @@ implementation
end;
{ trash contents of local variables }
{ trash contents of local variables or parameters (function result) }
procedure trash_variable(p : tnamedindexitem;arg:pointer);
var
trashintval: aint;
list: TAsmList absolute arg;
begin
trashintval := trashintvalues[localvartrashing];
if (tsym(p).typ=localvarsym) then
if (tsym(p).typ=localvarsym) or
((tsym(p).typ=paravarsym) and
(vo_is_funcret in tparavarsym(p).varoptions)) then
begin
case tlocalvarsym(p).localloc.loc of
trashintval := trashintvalues[localvartrashing];
case tabstractnormalvarsym(p).localloc.loc of
LOC_CREGISTER :
{$ifopt q+}
{$define overflowon}
{$q-}
{$endif}
cg.a_load_const_reg(list,reg_cgsize(tlocalvarsym(p).localloc.register),
trashintval and (aint(1) shl (tcgsize2size[reg_cgsize(tlocalvarsym(p).localloc.register)] * 8) - 1),
tglobalvarsym(p).localloc.register);
cg.a_load_const_reg(list,reg_cgsize(tabstractnormalvarsym(p).localloc.register),
trashintval and (aint(1) shl (tcgsize2size[reg_cgsize(tabstractnormalvarsym(p).localloc.register)] * 8) - 1),
tabstractnormalvarsym(p).localloc.register);
{$ifdef overflowon}
{$undef overflowon}
{$q+}
{$endif}
LOC_REFERENCE :
begin
trash_reference(list,tlocalvarsym(p).localloc.reference,
trash_reference(list,tabstractnormalvarsym(p).localloc.reference,
tlocalvarsym(p).getsize);
end;
LOC_CMMREGISTER :
@ -1148,6 +1150,14 @@ implementation
cg.g_initialize(list,tparavarsym(p).vartype.def,href);
end;
end;
else if (localvartrashing <> -1) and
([vo_is_funcret,vo_is_hidden_para] * tparavarsym(p).varoptions = [vo_is_funcret,vo_is_hidden_para]) then
begin
tmpreg:=cg.getaddressregister(list);
cg.a_load_loc_reg(list,OS_ADDR,tparavarsym(p).localloc,tmpreg);
reference_reset_base(href,tmpreg,0);
trash_reference(list,href,tparavarsym(p).vartype.def.size);
end
end;
end;
end;