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

* free saved_standard_registers and saved_mm_registers in

Browse Source 
done_register_allocators

git-svn-id: trunk@9527 -
This commit is contained in:
Jonas Maebe 2007-12-25 23:47:44 +00:00
parent d740304b77
commit 3d89822bc4
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/x86_64/cgcpu.pas
View File

@ -35,6 +35,8 @@ unit cgcpu;
type type
tcgx86_64 = class(tcgx86) tcgx86_64 = class(tcgx86)
procedure init_register_allocators;override; procedure init_register_allocators;override;
procedure done_register_allocators;override;
procedure g_proc_exit(list : TAsmList;parasize:longint;nostackframe:boolean);override; procedure g_proc_exit(list : TAsmList;parasize:longint;nostackframe:boolean);override;
procedure g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);override; procedure g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);override;
@ -94,6 +96,14 @@ unit cgcpu;
end; end;
procedure Tcgx86_64.done_register_allocators;
begin
inherited done_register_allocators;
setlength(saved_standard_registers,0);
setlength(saved_mm_registers,0);
end;
procedure tcgx86_64.a_param_ref(list : TAsmList;size : tcgsize;const r : treference;const paraloc : TCGPara); procedure tcgx86_64.a_param_ref(list : TAsmList;size : tcgsize;const r : treference;const paraloc : TCGPara);
var var
tmpref, ref: treference; tmpref, ref: treference;