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

- removed some unnecessary cg. prefixes when calling tcg methods

Browse Source 
from inside other tcg methods

git-svn-id: trunk@9315 -
This commit is contained in:
Jonas Maebe 2007-11-22 09:03:35 +00:00
parent 093237e74d
commit b4b069908f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cgobj.pas
View File

@ -1896,7 +1896,7 @@ implementation
tmpreg:=getintregister(list,bitnumbersize);
a_op_const_reg_reg(list,OP_SHR,bitnumbersize,3,bitnumber,tmpreg);
tmpaddrreg:=cg.getaddressregister(list);
tmpaddrreg:=getaddressregister(list);
a_load_reg_reg(list,bitnumbersize,OS_ADDR,tmpreg,tmpaddrreg);
if (result.ref.base=NR_NO) then
result.ref.base:=tmpaddrreg
@ -1919,7 +1919,7 @@ implementation
var
tmpvalue: tregister;
begin
tmpvalue:=cg.getintregister(list,valuesize);
tmpvalue:=getintregister(list,valuesize);
if (target_info.endian=endian_little) then
begin
@ -2030,7 +2030,7 @@ implementation
var
tmpvalue: tregister;
begin
tmpvalue:=cg.getintregister(list,destsize);
tmpvalue:=getintregister(list,destsize);
if (target_info.endian=endian_little) then
begin
@ -2103,7 +2103,7 @@ implementation
LOC_CSUBSETREG:
begin
{ hard to do in-place in a generic way, so operate on a copy }
tmpreg:=cg.getintregister(list,loc.size);
tmpreg:=getintregister(list,loc.size);
a_load_subsetreg_reg(list,loc.size,loc.size,loc.sreg,tmpreg);
a_bit_set_reg_reg(list,doset,bitnumbersize,loc.size,bitnumber,tmpreg);
a_load_reg_subsetreg(list,loc.size,loc.size,tmpreg,loc.sreg);