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

+ helper methods to load a field into a register

Browse Source 
git-svn-id: trunk@32596 -
This commit is contained in:
Jonas Maebe 2015-12-05 18:03:51 +00:00
parent a9498b6735
commit 2046220f56
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/hlcgobj.pas
View File

@ -553,6 +553,11 @@ unit hlcgobj;
public
procedure g_load_reg_field_by_name(list: TAsmList; regsize: tdef; recdef: trecorddef; reg: tregister; const name: TIDString; const recref: treference);
procedure g_load_const_field_by_name(list: TAsmList; recdef: trecorddef; a: tcgint; const name: TIDString; const recref: treference);
{ laod a named field into a register }
procedure g_load_field_reg_by_name(list: TAsmList; recdef: trecorddef; regsize: tdef; const name: TIDString; const recref: treference; reg: tregister);
{ same as above, but allocates the register and determines the def
based on the type of the field }
procedure g_force_field_reg_by_name(list: TAsmList; recdef: trecorddef; const name: TIDString; const recref: treference; out regdef: tdef; out reg: tregister);
{ routines migrated from ncgutil }
@ -3892,6 +3897,26 @@ implementation
end;
procedure thlcgobj.g_load_field_reg_by_name(list: TAsmList; recdef: trecorddef; regsize: tdef; const name: TIDString; const recref: treference; reg: tregister);
var
fref: treference;
fielddef: tdef;
begin
g_setup_load_field_by_name(list,recdef,name,recref,fref,fielddef);
a_load_ref_reg(list,fielddef,regsize,fref,reg);
end;
procedure thlcgobj.g_force_field_reg_by_name(list: TAsmList; recdef: trecorddef; const name: TIDString; const recref: treference; out regdef: tdef; out reg: tregister);
var
fref: treference;
begin
g_setup_load_field_by_name(list,recdef,name,recref,fref,regdef);
reg:=getregisterfordef(list,regdef);
a_load_ref_reg(list,regdef,regdef,fref,reg);
end;
procedure thlcgobj.location_force_reg(list: TAsmList; var l: tlocation; src_size, dst_size: tdef; maybeconst: boolean);
var
hregister,