paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 15:31:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed no longer necessary thlcg2ll.initialize_regvars override and

Browse Source 
commented dummy location_force_mmregscalar (fully implemented in r24661)

git-svn-id: trunk@24663 -
This commit is contained in:
Jonas Maebe 2013-05-31 12:21:53 +00:00
parent 51f52565ce
commit 1551c773e0
1 changed files with 0 additions and 22 deletions

22
compiler/hlcg2ll.pas
View File

@ -331,7 +331,6 @@ unit hlcg2ll;
procedure gen_load_cgpara_loc(list: TAsmList; vardef: tdef; const para: TCGPara; var destloc: tlocation; reusepara: boolean); override;
protected
procedure initialize_regvars(p: TObject; arg: pointer); override;
function getmmcgsize(reg: tregister; size: tcgsize): tcgsize; virtual;
end;
@ -1364,11 +1363,6 @@ implementation
end;
(*
procedure thlcg2ll.location_force_mmregscalar(list: TAsmList; var l: tlocation; size: tdef; maybeconst: boolean);
begin
ncgutil.location_force_mmregscalar(list,l,maybeconst);
end;
procedure thlcg2ll.location_force_mmreg(list: TAsmList; var l: tlocation; size: tdef; maybeconst: boolean);
begin
ncgutil.location_force_mmreg(list,l,maybeconst);
@ -1565,22 +1559,6 @@ implementation
ncgutil.gen_load_cgpara_loc(list, vardef, para, destloc, reusepara);
end;
procedure thlcg2ll.initialize_regvars(p: TObject; arg: pointer);
begin
if (tsym(p).typ=staticvarsym) and
{ not yet handled via tlhcgobj... }
(tstaticvarsym(p).initialloc.loc=LOC_CMMREGISTER) then
begin
{ clear the whole register }
cg.a_opmm_reg_reg(TAsmList(arg),OP_XOR,reg_cgsize(tstaticvarsym(p).initialloc.register),
tstaticvarsym(p).initialloc.register,
tstaticvarsym(p).initialloc.register,
nil);
end
else
inherited initialize_regvars(p, arg);
end;
function thlcg2ll.getmmcgsize(reg: tregister; size: tcgsize): tcgsize;
begin
result:=size;