mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-21 00:32:21 +02:00
- removed no longer necessary thlcg2ll.initialize_regvars override and
commented dummy location_force_mmregscalar (fully implemented in r24661) git-svn-id: trunk@24663 -
This commit is contained in:
parent
51f52565ce
commit
1551c773e0
@ -331,7 +331,6 @@ unit hlcg2ll;
|
|||||||
procedure gen_load_cgpara_loc(list: TAsmList; vardef: tdef; const para: TCGPara; var destloc: tlocation; reusepara: boolean); override;
|
procedure gen_load_cgpara_loc(list: TAsmList; vardef: tdef; const para: TCGPara; var destloc: tlocation; reusepara: boolean); override;
|
||||||
|
|
||||||
protected
|
protected
|
||||||
procedure initialize_regvars(p: TObject; arg: pointer); override;
|
|
||||||
function getmmcgsize(reg: tregister; size: tcgsize): tcgsize; virtual;
|
function getmmcgsize(reg: tregister; size: tcgsize): tcgsize; virtual;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -1364,11 +1363,6 @@ implementation
|
|||||||
end;
|
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);
|
procedure thlcg2ll.location_force_mmreg(list: TAsmList; var l: tlocation; size: tdef; maybeconst: boolean);
|
||||||
begin
|
begin
|
||||||
ncgutil.location_force_mmreg(list,l,maybeconst);
|
ncgutil.location_force_mmreg(list,l,maybeconst);
|
||||||
@ -1565,22 +1559,6 @@ implementation
|
|||||||
ncgutil.gen_load_cgpara_loc(list, vardef, para, destloc, reusepara);
|
ncgutil.gen_load_cgpara_loc(list, vardef, para, destloc, reusepara);
|
||||||
end;
|
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;
|
function thlcg2ll.getmmcgsize(reg: tregister; size: tcgsize): tcgsize;
|
||||||
begin
|
begin
|
||||||
result:=size;
|
result:=size;
|
||||||
|
Loading…
Reference in New Issue
Block a user